DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Makro1()
For Each hucre In Range("a1").CurrentRegion
adr = hucre.Address
Range(adr) = Replace(hucre.Text, Chr(160), "")
Range(adr) = Replace(hucre.Text, ",", "")
Next
End Sub
İnternetten bir tablo yapıştırdım fakat rakamları sayı olarak görmüyor.
emeklerinize sağlık hepinize ayrı ayrı teşekkürler
İnternetten bir tablo yapıştırdım fakat rakamları sayı olarak görmüyor.