Belirli bir sütundaki bilgileri silen bir macro ?

[Kemal Demir]

Deminki sorum için pardon:

Sorum: "a" sutunu altındaki rakamların içerisinde var olan harfleri silmek için makro kulklanmak istiyorum .yardımcı olurmusunuz

Saygılar

 

[Kemal Demir]

yardım

Gunaydın

Sayfa Kirliliği için üzgünüm daha henüz alışamadım.

Sorum ise hala geçerli yardımcı olursanız sevinirim.

 

[ALPEN]

Private Sub metinayikla()
Dim nums As String
For i = 1 To Cells(65536, 1).End(xlUp).Row
    For b = 1 To Len(Cells(i, 1))
        If IsNumeric(Mid(Cells(i, 1), b, 1)) = True Then
            nums = nums & Mid(Cells(i, 1), b, 1)
        End If
   Next b
   Cells(i, 1) = CLng(nums)
   nums = ""
Next i
End Sub

 

[Kemal Demir]

Saol

Teşeşkkur ederim

 

[Kemal Demir]

Sorun

Hocam Teşşekürümü geri almıyorum

Ama ben yapamadım yada olmuyor verilen hatayı size yazıyorum (run Time error '13') Type mismatch)
Tekrar yardım istesem ..
Saygılar

 

[ALPEN]

aşağıdaki dosyayı inceleyin.

 

[Kemal Demir]

Ýlginize Teşeküür ederim

Cok teşekkur ederim

 

[engindiler]

teşekkürler, benimde işime yaradı....

 

[Serpily]

ben de yüz bulunca astarını istiyorum ama....
üzerinde durduğum yani aktif sütunun veya satırın metinlerini ayıklasa tam bir fonksiyon olmaz mıydı?