Soru Buton ile Replace

[k0081]

Merhaba arkadaşlar;

B3:B100 aralığındaki verilerde bulunan noktayı (.) nasıl virgül(,) yapabilirim ?

Yardımcı arkadaşa şimdiden Teşekkürler.

 

[Ömer]

Merhaba,

Deneyiniz.

Sub degistir()
    Range("B3:B100").Replace ".", ","
End Sub

 

[muygun]

Merhaba;
Sayfanın kod bölümüne;

Sub değiştir()
For i = 3 To 100
mtn = Cells(i, 2)
Cells(i, 2) = Replace(mtn, ".", ",")
Next i
End Sub

Kodlarını ekleyerek deneyin.
İyi çalışmalar.

 

[k0081]

@Ömer

@muygun

Her iki kodda çalışıyor., Tamamdır. Çok Teşekkür ediyorum.