Rakam haricindeki tüm karakterler makro ile silinsin.

[kelkitli]

Selamlar Değerli Dostlar,
Hücre içindeki rakam haricindeki karakterlari silmek istiyorum.

 

[uzmanamele]

merhaba
bu ktf işinizi görür mü

'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&#199
HARFAYIR = SONUÇ
End Function

 

[abdi]

Rakamları b sutununa yazar
Bi deneyip sonucu bildiriniz.

Sub rakamlarıal()

For i = 1 To [a65536].End(3).Row

a = Len(Cells(i, 1).Value)

    For t = 1 To a
    
    k = Mid(Cells(i, 1), t, 1)
    If IsNumeric(k) = True Then
    y = y + k
Else
End If
Next
Cells(i, 2).Value = y
MsgBox y
y = ""
Next

'MsgBox y
End Sub

 

[kelkitli]

Değerli Dostlar,
Sayın uzmanamele, Sayın abdi, cevaplarınız için teşekkürler ederim. Aslında ben daha kısa bir kod olabilir diye soruyu bu şekil sormuştum. Benim her kod çalıştırdığımda web sayfasından bina numarasıyla birlikte bir kaç kare şekilli karakter de alıyor. Atıyorum A1 hücresinde bu veri olsun.
=TEMİZ(A1) formülü bu işi görüyor. Bunu kodla yapabilsem mesele çözülmüş olacak. Programda kullanılan tek formül bu olmasın istiyorum.