DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub CEVIR()
For SUT = 1 To Cells(65536, "A").End(3).Row
AYIR = Replace(Cells(SUT, "A"), ".", ",")
Cells(SUT, "A") = AYIR
Cells(SUT, "A") = Cells(SUT, "A") * 1
Next
[B1] = WorksheetFunction.Sum(Range("A1:A65536"))
End Sub
=+TOPLA.ÇARPIM(--(YERİNEKOY(A1:A10;".";",";1)))