Döngü İle Toplama İşlemi

[bichet]

Merhaba,

Aşağıdaki kod yazıldığında sadece cells(20,i) ve Cells(satir_sayisi + 19, i) hücrelerindeki rakamları topluyor. Noktalı virgül veya iki nokta üst üste ile yazıldığında da malum list separator hatası alıyorum. Yardımcı olursanız sevinirim.

For i = 4 To ay_sayisi + 4
    
    Cells(satir_sayisi+20, i) = Application.WorksheetFunction.Sum(Cells(20, i), Cells(satir_sayisi + 19, i))
    
Next i

 

[ÖmerFaruk]

Denemeden yazdım, umarım yazım hatası yoktur.
Cells(satir_sayisi+20, i) = WorksheetFunction.Sum(Range(Cells(20, i), Cells(satir_sayisi + 19, i)))


İlave bilgi
Aşağıdaki yazım şekilleri VBA için geçerli bir aralıklara örnektir.
Range("A1:B10")
Range("A" & i, "A" & i+10 )
Range(Cells(i,1),Cells(i+10,1)

 

[bichet]

Çok teşekkürler. İyi çalışmalar diliyorum.