Toplu Format Değiştirme

[drummers]

Excell dosyamda "E","F","G" hücrelerimdeki veriler

2351,00
45358,54

Şeklinde ondalık ayrımı olmaksızın bulunmakta. Hücreleri biçimlendir, sayı formatı yapıyorum fakat her hücreye F2 yapıp enter yapmam gerekiyor ve veriler çok fazla. Bu gücreleri makro ile ondalık ayrılacak şekilde nasıl yapabiliriz.

Dosya boyutu çok büyük olduğu için koyamadım. Teşekkürler

 

[Emir Hüseyin Çoban]

. . .

Hücre formatlarını sayı yap.
Daha sonra döngü kurup, hücre değerini çarpı 1 yaptır.

cells(i,"G")=cells(i,"G")*1 gibi

. . .

 

[monelogg]

Merhaba, ben de böyle bir şey hazırlamıştım, boşa gitmesin.
H, I, J sütunlarına E, F, G sütunlarındaki sayıların ondalık kısımlarını atarak yazdırıyor.

Option Explicit

Sub virgulden_sonrasini_ayir()
Dim i As Integer
Dim j As Integer
Dim k As Integer

    For i = 1 To [E65536].End(xlUp).Row
        Cells(i, "H") = Split(Cells(i, "E").Text, ",")
        Cells(i, "H") = CDbl(Cells(i, "H"))
    Next
    
    For j = 1 To [F65536].End(xlUp).Row
        Cells(j, "I") = Split(Cells(j, "F"), ",")
        Cells(j, "I") = CDbl(Cells(j, "I"))
    Next
    
    For k = 1 To [G65536].End(xlUp).Row
        Cells(k, "J") = Split(Cells(k, "G"), ",")
        Cells(k, "J") = CDbl(Cells(k, "J"))
    Next
End Sub