bir hücreden rakam alma

[akhelmet]

Merhaba,

bir hücrenin içindeki yazıdan sadece rakam alabilirmiyiz acaba

a1 hücre içinde yazan yazı : çilek reçeli 500 gr

a2 hücresine sadece 500 yazdırabilirmiyiz

teşekkürler

 

[Ömer]

Merhaba,

Örnek dosyayı inceleyiniz..

 

[Necdet]

Merhaba,

Küsuratları da dikkate almaya çalıştım. Dosyayı inceler misiniz?

Ayrıca Aşağıdaki Linki de İnceleyebilirsiniz.

http://www.excel.web.tr/search.php?searchid=539390

Sub RakamAl()
Columns("B").ClearContents
For i = 1 To [A65536].End(3).Row
    Metin = Cells(i, "A")
    Sayı = ""
    For j = 1 To Len(Metin)
        Karakter = Mid(Metin, j, 1)
        If IsNumeric(Karakter) = True Or Karakter = "." Or Karakter = "," Then
            Sayı = Sayı & Karakter
        End If
    Next j
    Cells(i, "B") = Sayı + 0
Next i
End Sub

 

[akhelmet]

yardımı olan herkese çok teşekkürler