makro ile format değiştir

[honestman]

Merhaba,

Ben aşağıdaki gibi bir sütundaki sayı formatını nasıl makro ile excelin toplama yapabileceği sayı formatına dönüştürebilirim? Replace denedim ama beceremedim. Yardımınızı rica ederim...




500.00
2,601.00
1,101.00
501.00
601.00
5,101.00
2,101.00
2,601.00

 

[mancubus]

Sub Rakama_Cevir()
    With Range("A2:A15000") 'örnektir. dosyadaki yerine göre düzeltilmeli.
        .NumberFormat = "General"
        .Value = .Value
    End With
End Sub

 

[asi_kral]

Merhaba,

Ben aşağıdaki gibi bir sütundaki sayı formatını nasıl makro ile excelin toplama yapabileceği sayı formatına dönüştürebilirim? Replace denedim ama beceremedim. Yardımınızı rica ederim...




500.00
2,601.00
1,101.00
501.00
601.00
5,101.00
2,101.00
2,601.00

Merhaba
Verilerin A sütununda olduğu varsayılmıştır.
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub değiştir_1967()
'Konu       :   Hesaplama Moduna Çevir
'Mail       :   m.batu.1967@gmail.com
'Coder By   :   asi_kral_1967
Dim asi As Long, kral As Long
For asi = 1 To Cells(Rows.Count, "A").End(xlUp).Row
Cells(asi, "A") = Replace(Cells(asi, "A"), ",", "")
Cells(asi, "A") = Replace(Cells(asi, "A"), ".", ",")
Next
Range("A:A").NumberFormat = "#,##0.00"
MsgBox "İşlem Tamamlandı", vbInformation, "asi_kral_1967"
End Sub

Eki inceleyiniz.