Merhaba,
isteğiniz aşağıdaki gibi mi acaba?
Sub toplama()
satir = 15
While Cells(satir, 7) <> ""
satir = satir + 1
Wend
For i = 15 To satir - 1
toplam = toplam + Cells(i, 7).Value
Next i
Cells(satir, 4) = "Toplam……………: " & toplam
End Sub
Yanıtınız için teşekkürler ancak en önemli sorun toplam satırının mal adedine göre her zaman değişik olması örnek de 15. satır da olan toplam başka bir örnek de 16, 17, 18 gibi mak adedine göre değişkenlik göstermektedir.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.
