Sayı değerindeki noktayı virgüle çevirme ve otomatik toplam

[31130]

Selamlar
herkese kolay gelsin
ben sorunun ben için büyük sizler için küçük bir sorun olduğu için burda sizlerden yardım bekliyorum.
Başka bir programdan excele veri aktarma sonucu sayı değerinde (.) olarak geldiğinden hesaplama yapmıyor. (.) ları (,) çevirerek yapıacak hesaplama ile .en sonda otomatik olarak tüm değerleri toplamnı yapmak istiyorum
veri aktarmada satır sayısı her seferde aynı sayıda satır ekrana gelmemektedir.
Bazen 2 bazen de 50 veya daha fazla satır olmaktadır .
Yardımlarınız için şimdiden teşekkür ederim.

 

[meslan]

Merhaba
KTF ile yapılmış dosyanız ekte

 

[Necdet]

Merhaba,

Sütunu Seçiniz
Ctrl+H
Aranan Değere M2
Yeni Değere hiç bir şey yazmayın
Tümünü Değiştir

Sütun seçili iken
Aranan değere .
Yeni değere ,
Tümünü değiştir

 

[31130]

merhaba
ktf ile yapılmış dosyanız ekte

ilginize teşekkürler
bu formulu otomatik olarak bir tuşa bağlı makro ile yapabilirmiyiz.

 

[meslan]

Merhaba

Sub Hesapla()
For i = 3 To [M65536].End(3).Row
deg = Cells(i, "E").Value
deg1 = Cells(i, "F")
deg2 = Cells(i, "M")
deg2 = Left(deg2, Len(deg2) - 2)
deg2 = Replace(deg2, ".", ",")
Cells(i, "O") = deg / deg1 * deg2
Next
Range("O" & [O65536].End(3).Row + 1) = WorksheetFunction.Sum(Range("O3:O" & [O65536].End(3).Row))
End Sub

 

[31130]

merhaba

sub hesapla()
for i = 3 to [m65536].end(3).row
deg = cells(i, "e").value
deg1 = cells(i, "f")
deg2 = cells(i, "m")
deg2 = left(deg2, len(deg2) - 2)
deg2 = replace(deg2, ".", ",")
cells(i, "o") = deg / deg1 * deg2
next
range("o" & [o65536].end(3).row + 1) = worksheetfunction.sum(range("o3:o" & [o65536].end(3).row))
end sub

teşekkürler