Soru Sayıya Çevirme

[mcetinkaya65]

60 aylık bir kredi ödeme sayfası var ama, ne yatımsa sayıya çeviremedim.

 

[sahir73]

Sub SayiyaCevir()

Application.Calculation = xlCalculationManual

Range("a2:AD50000").SpecialCells(xlCellTypeConstants).Select

On Error Resume Next

For Each Alan In Range("C2:AD50000").SpecialCells(xlCellTypeConstants)

Alan.NumberFormat = "General"

If Alan.Value <> "" Then Alan.Value = CDbl(Alan)

Next

Application.Calculation = xlCalculationAutomatic

end sub

 

[sahir73]

Sayiya çevirdim.

 

[mcetinkaya65]

Üstad eline sağlık.Bir kısım tamamda sondaki kuruşları paraya katmış.
Örnek 3192,89 yazması gerekirken 3,19289 yazmış toplam ana para 130000 tl çıkması gerekirken 130 tl çıkıyor

 

[sahir73]

umarım bu sefer doğrudur.

 

[Merhum İdris SERDAR]

.

Aşağıdaki gibi bir kod kullanabilirsiniz.

Sub virgul()
  
    Range("C2:J61").NumberFormat = "#,##0.00"
    Range("C2:J61").Replace ",", "", xlPart
    
End Sub

.

 

[mcetinkaya65]

İlginize teşekkürler.
Allah razı olsun.