cümle içerisinden rakam alma

[durhan]

Arkadaşlar,

kırmızı renkli olarak gösterdiğim (belirgin olsun diye koyu ve kırmızı yaptım) 11 haneli ve 10 haneli sayıları D ve E sutunlarına aldırmak istiyorum

böyle yüzlerce satırım var, şuan manuel olarak satır içerisinden kopyala - yapıştır yapmaktayım.

bunun için bir formül ve kod varsa ne kadar güzel olur.

tüm ilgili arkadaşlara teşekkür ederim.

NOT: parçaal formülüyle sayıların olduğu yer sabit olsa aldırıyorum, ancak sayıların bulunduğu karakterler sabit değil

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kullanıcı tanımlı fonksiyonu deneyiniz.

Function RAKAM_AL(Veri As Range, Optional Kriter As Byte = 1)
    Dim Data, X
    
    Application.Volatile True
    
    If Veri.Text = "" Then
        RAKAM_AL = "SAYI YOK!"
        Exit Function
    End If
    
    Data = Split(Veri.Text, " ")
    
    For X = 0 To UBound(Data)
        If IsNumeric(Data(X)) Then
            Say = Say + 1
            If Say = Kriter Then
                RAKAM_AL = Data(X)
                Exit Function
            End If
        End If
    Next
End Function

 

[durhan]

Sayın Korhan hocam, çok mükemmel oldu, elinize sağlık