Hücre içinde karakter değişikliği

[umax]

Merhaba,
Bir excel sütunu içinde belirli tutarlar var ve ondalık bölümleri "," ile ayrılmış durumda. Ancak virgülleri makro yardımı ile boşluk yapmak istiyorum. Makro kaydet deyince aşağıdaki kod oluşuyor ancak makroyu çalıştırınca virgülleri boşluğa çevirmiyor. Bu konuda yardımlarınızı rica ediyorum.


Columns("AA:AA").Select
Selection.Replace What:=",", Replacement:=" ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

 

[leumruk]

Selamlar,
Aşağıdaki kodu deneyiniz.

Sub Deneme()
Dim deg As String
For i = 1 To [A65536].End(3).Row
deg = LCase(Replace(Cells(i, "a"), ",", ""))
Cells(i, "a") = deg
Next i
End Sub