bir hücreden sadece sayısal değerleri alma

[einfach]

Merhaba,

Bir hücrede karışık bir şekilde metinsel ve sayısal değerler bulunmaktadır. (a1b2c3d4 gibi). Formül veya makro ile bu hücredeki sadece sayısal değerleri nasıl başka bir hücreye alabilirim.
Yardımlarınızı rica ederim.

 

[uzmanamele]

merhaba

syn Korhan Ayhan'ın ktf ile çözümü işinizi görür sanıyorum

'kodları yazan : Korhan Ayhan
Function RAKAMAYIR(Hücre As Range)
    For X = 1 To Len(Hücre)
    If IsNumeric(Mid(Hücre, X, 1)) Then SONUÇ = SONUÇ & Mid(Hücre, X, 1)
    Next
    SONUÇ = IIf(SONUÇ = 0, "Rakam Bulunamadı!", SONUÇ * 1)
    RAKAMAYIR = SONUÇ
End Function

Function HARFAYIR(Hücre As Range)
    For X = 1 To Len(Hücre)
    If Not IsNumeric(Mid(Hücre, X, 1)) Then SONUÇ = SONUÇ & Mid(Hücre, X, 1)
    Next
    SONUÇ = IIf(SONUÇ = 0, "Harf Bulunamadı!", SONUÇ)
    HARFAYIR = SONUÇ
End Function

 

[einfach]

Merhaba,
çabuk dönüş için teşekkürler, ancak commandbutton içerisine kodu yazdığımda end sub, end function oluyor, dolayısıyla kodu çalıştıramıyorum,
yönlendirebilirseniz sevinirim

 

[Necdet]

Merhaba,

Fonksiyonda Nokta ve Virgülü de dikkate almak gerek.

Function RAKAMAYIR(Hücre As Range)
For X = 1 To Len(Hücre)
    If IsNumeric(Mid(Hücre, X, 1)) Or Mid(Hücre, X, 1) = "." Or Mid(Hücre, X, 1) = "," Then SONUÇ = SONUÇ & Mid(Hücre, X, 1)
Next
SONUÇ = IIf(SONUÇ = 0, "Rakam Bulunamadı!", SONUÇ * 1)
RAKAMAYIR = SONUÇ
End Functio