Functionu Koda Çevirme

[askm]

Kolay gelsin. Aşağıdaki function ile yazı ile rakamları ayırıyor. Ben bunu tüm sütuna nasıl uygularım. Yani normal düğme içerisine nasıl entegre edebilirim.
Teşekkürler.

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

 

[Emir Hüseyin Çoban]

. . .

Sub kod()
    For i = 1 To 10
        Hücre = Cells(i, "A")
        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)
        Cells(i, "B") = Sonuç
        Sonuç = Empty
    Next i
End Sub

. . .

 

[askm]

Çok teşekkürler