Hücre içindek değerden Harflerin silinmesi

[hüseyintok]

Merhaba "B" kolonunda bulunan hücrelerin harf ve rakam içerenlerden harflerin silinmesi için nasıl bir kod yazmabilirim

 

[Korhan Ayhan]

Merhaba,

Arşiv konularını inceleyiniz.

Arama Sonuçları

 

[muhasebeciyiz]

Sub HarfleriSil()
Dim hücre As Range
Dim metin As String
Dim sonuç As String
Dim karakter As String

For Each hücre In Range("B1:B10") ' buradaki aralığı düzenleyiniz
metin = hücre.Value
sonuç = ""

For i = 1 To Len(metin)
karakter = Mid(metin, i, 1)
If karakter Like "[0-9]" Then
sonuç = sonuç & karakter
End If
Next i

hücre.Value = sonuç
Next hücre
End Sub

 

[hüseyintok]

Sub HarfleriSil()
Dim hücre As Range
Dim metin As String
Dim sonuç As String
Dim karakter As String

For Each hücre In Range("B1:B10") ' buradaki aralığı düzenleyiniz
metin = hücre.Value
sonuç = ""

For i = 1 To Len(metin)
karakter = Mid(metin, i, 1)
If karakter Like "[0-9]" Then
sonuç = sonuç & karakter
End If
Next i

hücre.Value = sonuç
Next hücre
End Sub

Teşekkürler Muhasebeciler