Kar zarar Hesaplama

[tekvir]

Merhabalar,

aşağıdaki excel dosyasında haftalık kar ve zararları gün gün yazmam gerekiyor. Fabrikadan alış 0.25 satış fiyatıda 0.25 ancak kodlarda bir hata veriyor yardımcı olabilir misiniz?

Sub kar()
Dim i, a, e, kar, alinan, kalan, toplamkar, toplamzarar As Long, f As Double
kar = 0.5
alinan = 0.25
For f = 4 To 17
    a = Cells(f, "F").Value
    i = Cells(f, "L").Value
    e = Cells(f, "O").Value
    Range(f, "R").Value = a * kar
    kalan = Range(f, "F").Value - Range(f, "O")
    Range(f, "U").Value = kalan * alinan
    toplamkar = toplamkar * Range(f, "R").Value
    toplamzarar = toplamzarar * Range(f, "U").Value
Next
Range("R18").Value = toplamkar
Range("U18").Value = toplamzarar
End Sub

 

[antonio]

Kodlarınızı denemeye fırsatım olmadı, ancak incelerken "Range(f, "R")" şeklinde yazdığınız tüm hücre tanımlarının hatalı olduğunu fark ettim. Bunları; örnek: Range("R" & f) şeklinde değiştirerek başlayın. küsuratlı verileri değişken tiplerinde "Double" olarak belirtin, kodların içinde sonuçların doğru çıkması için hesaplamalarda örnek: zarar = Cdbl(..<kodlarınız>..) gibi detaylara dikkat ederseniz faydalı olur.
İyi çalışmalar.

NOT: Range() ile Cells() yapılarının yazım şeklini karıştırdığınızı anladım. Cells(f, "R") ifadesi doğrudur. Ancak Range() yazım tarzı farklıdır.