Küsurtlı Sayılarda Dört İşlem Sorunu

[excelmaster]

Selamun Aleyküm.

Aktif hücrenin solundaki hücreden inputboxa yazdığım rakamı çıkarmak istiyorum. Ancak soldaki hücre ya da inputboxa yazdığım rakam küsuratlı ise hata veriyor. Hatam nerede? Yardımınızı rica ederim.


Sub FORMÜLLÜ()

Dim HÜCRE As Double, TUTAR As Double

TUTAR = InputBox("TUTARI YAZ !")

HÜCRE = ActiveCell.Offset(0, -1).Value

ActiveCell.Offset(0, -1).FormulaR1C1 = "=" & HÜCRE & "-" & TUTAR

End Sub

 

[Levent Menteşoğlu]

İlgili satırı aşağıdaki ile değiştirerek deneyin.

ActiveCell.Offset(0, -1).FormulaR1C1 = Replace("=" & HÜCRE & "-" & TUTAR, ",", ".")

 

[excelmaster]

İlgili satırı aşağıdaki ile değiştirerek deneyin.

ActiveCell.Offset(0, -1).FormulaR1C1 = Replace("=" & HÜCRE & "-" & TUTAR, ",", ".")

Allah razı olsun. Sorunum çözüldü.