Tümünü Değiştir Hk.

[Ömer2134]

Arkadaşlar merhaba

Ekte bulunan dosyada sayıların virgülünü sildirmek istiyorum

Örnek 1,352 sayısı 1352 şekklinde olacak.

Ben bu şekilde yapmaya çalıştım ama olmuyor.


Sub denem2()



Range("A6:G16").Replace What:=",", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

End Sub





Teşekkürler.

 

[Ziynettin]

Merhaba,

Bu şekilde deneyiniz.

Sub ondlik_birlestir()
On Error Resume Next
For Each alan In [A6:G16]
    alan.Value = Replace(alan.Value, ",", "") * 1
Next alan
End Sub

 

[ASLAN7410]

Merhaba.

Alternatif olsun.

Sayfayı açtığınızda Ctrl+A ile sayfayı seçin, Ctrl+H'a basın, Aranan kısma
, (virgül işaretini) yazın, Yeni değer kısmına hiç bir şey yazmayın,
Tümünü değiştiri tıklayın, istediğiniz oluyor galiba.

 

[Ömer2134]

Teşekkürler arkadaşlar.