for step ile toplama

[qwert11]

iyi günler
elimde dosyada tarihlere göre niktar ve o miktara bağlı tüketimler var
amacım "cm" sütununda tüm miktarın toplamı "cn" sütununda ise tüketimleri toplamam gerekli yazdığımız makro
Sub sum()
top = 0
For x = 3 To 1096
For y = 4 To 89 Step 2
Next y
Next x
top = top + Cells(x, y).Value
End Sub

bu şekilde ama bir sonuc elde edemedik
acaba hatayı nerde yapmaktayım yardım ederseniz sevinirim

 

[Korhan Ayhan]

Selamlar,

Bu işlem için ikili döngüye gerek yok. ETOPLA fonksiyonunun makro halini kullanarak sonuca gidebilirsiniz.

Option Explicit
 
Sub TOPLAM_AL()
    Dim X As Long
    
    For X = 3 To Range("A65536").End(3).Row
        Cells(X, "CM") = WorksheetFunction.SumIf(Range("B2:CK2"), "MİKTAR", Range("B" & X & ":CK" & X))
        Cells(X, "CN") = WorksheetFunction.SumIf(Range("B2:CK2"), "TÜKETİM", Range("B" & X & ":CK" & X))
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[qwert11]

Keisnlikle aklımın ucundan bile geçmemişti(geçsene sonuc alamazdım sanırım o kadar iyi değilim zaten)elleirinize ve fikrinize sağlık