excelde rakamlarla rakamları ayırmak ek te doyayı gönderdim..

[mechulfm]

Arkadaşlar rakamlarla rakamlar demişim yanlış olmuş, rakamlarla harfleri ayırmak..



Arkadaşlar bi depo sayımı yapıcaz. ancak stok kodlarını harflerle sayıları birbirinden ayırmam gerekiyor. kodunu buldum ancak hatalı oldu...

istediğim dosyayı excel olarak ek te sundum sizlere
mevcut durum ve nasıl olmasını istediğim dosyayı inceleyip nasıl yapmam gerektiğini yazarsanız memnun olurum..

 

[Ömer]

Merhaba,

Linki inceleyinz..

Cümle içinde kelimelerin ayrılması

.

 

[mechulfm]

Bu benim işimi görmedi. Galiba ekte gönderdiğim dosyayı incelemediniz galiba.. Ancak formüller güzel bana lazım olacak ama benim istediğim daha da başkaçç

 

[İhsan Tank]

tam olarak ne yapmak istiyorsunuz
örneğin 1.5MM 150CM POLİETİLEN LEVHA bu madde nasıl ayrılacak
yada
45GR-13GR BEYAZ GOFRAJ TOST bu madde nasıl ayrılacak
bilgi verirseniz yardım etmeye çalışayım

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kullanıcı tanımlı fonksiyonu kullanabilirsiniz. Özellikle "ADI" bölümünde belirli bir düzen olmadığı için eğer şartları ile sorgu eklenmiştir. Hatalı sonuçlara göre yeniden düzenlenebilir. Ekteki örnek dosyayı inceleyiniz.

Hücrede kullanım şekli;

[B][COLOR=blue]=PARÇA_AL(Hücre_Adresi;Ayırıcı_Simge;Almak_İstediğiniz_Bölüm)[/COLOR][/B]

Örnek;

=PARÇA_AL(A1;".";0)

A1 hücresindeki veriyi "." (nokta) işaretine göre parçalar ve ilk bölümünü alır.

Option Explicit
 
Function PARÇA_AL(Hücre As Range, Optional Simge As String = " ", Optional Bölüm As Byte = 0) As String
    Dim Ayır() As String, X As Byte
    Application.Volatile True
    
    Ayır = Split(Hücre.Text, Simge, , 2)
    If UBound(Ayır) = 0 Or UBound(Ayır) < Bölüm Then Exit Function
    
    For X = 1 To Len(Ayır(Bölüm))
        If IsNumeric(Mid(Ayır(Bölüm), X, 1)) Or Mid(Ayır(Bölüm), X, 1) = "." Then
            PARÇA_AL = PARÇA_AL & Mid(Ayır(Bölüm), X, 1)
        End If
    Next
End Function