Soru Sütun Atlayarak Toplama

[leonadies]

Üstadlar B sutunundaki son satıra kadar olmak üzere; Alış adetlerini (H,J,L,N..... şeklinde birer atlayarak 100 sütun diyelim) E sütununda toplatmak istiyorum.
VBA ile nasıl yaparız ?

 

[Necdet]

Merhaba.

Sub Makro1()

    Dim i As Long
    
    For i = 2 To Cells(Rows.Count, "B").End(3).Row
    
        Range("E" & i) = Evaluate("=SUM(IF(MOD(COLUMN(H" & i & ":N" & i & "),2)=0,H" & i & ":N" & i & "))")
    
    Next i
    
End Sub

 

[leonadies]

@Necdet hocam ellerine sağlık ancak 100 sütun civarı toplama yaptırmam lazım. N sütundan sonra toplamıyor.

 

[Necdet]

e koddaki N'yi değiştirin o zaman

 

[leonadies]

Ok