Sayıya çevirme

[Ridan]

Sorum şudur; Aşağıda resimde gürelen rakamları E12:J... makro ile sayıya dönüştürülmesi..
E12:J arası değişkendir. Sayıya dönüştürürken önce virgüller kaldırılacak, sonra noktalar virgül yapılacak.

 

[AdemCan]

Bul - Değiştir işleminin makro ile yapılışı;

Örnek 1

Sub ornek()
For x = 12 To Range("E65536").End(3).Row
    Cells(x, "E").Replace What:=",", Replacement:=""
    Cells(x, "E").Replace What:=".", Replacement:=","
   
    Cells(x, "F").Replace What:=",", Replacement:=""
    Cells(x, "F").Replace What:=".", Replacement:=","
   
    Cells(x, "G").Replace What:=",", Replacement:=""
    Cells(x, "G").Replace What:=".", Replacement:=","
   
    Cells(x, "H").Replace What:=",", Replacement:=""
    Cells(x, "H").Replace What:=".", Replacement:=","
   
    Cells(x, "I").Replace What:=",", Replacement:=""
    Cells(x, "I").Replace What:=".", Replacement:=","
   
    Cells(x, "J").Replace What:=",", Replacement:=""
    Cells(x, "J").Replace What:=".", Replacement:=","
   
Next x
End Sub

Örnek 2

Sub ornek2()
For Each hucre In Range("E12:J" & Range("E65536").End(3).Row)

    hucre.Replace What:=",", Replacement:=""
    hucre.Replace What:=".", Replacement:=","

Next hucre
End Sub

 

[Ridan]

Bul - Değiştir işlemini makro ile yapmıştım, sayıya çevirmedi. Makrosuz bul değiştir yapınca sayıya çeviriyor.

 

[AdemCan]

Hazırladığım örnek kodları, deneyerek paylaştım, Siz kodları denediniz mi?