Soru Atlayarak Çarpma ve Toplama

[leonadies]

Üstadlar
B sutunundaki alınan ürünler var bu satır sayısı kadar formül next döngüsü sağlayarak ve Sonuçlar E sütununda olmak üzere;
H*I+J*K+L*M+N*O ............... (CD sütununa kadar böyle giedecek) VBA ile nasıl çözümleriz?

 

[muygun]

Merhaba;

Sub işlem()
Application.ScreenUpdating = False
On Error Resume Next
Range("e2:e65536").ClearContents
For i = 2 To Range("b65536").End(xlUp).Row
Top = 0
For k = 8 To Cells(1, 256).End(xlToLeft).Column Step 2
Top = Top + (Cells(i, k) * Cells(i, k + 1))
Next k
Cells(i, "e") = Top
If Cells(i, "e") = 0 Then Cells(i, "e") = ""
Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

Bir butona bağlayıp deneyin.
İyi çalışmalar.

NOT: Bu tür sorularınıza doğru ve hızlı cevap almak için örnek dosya ekleyin.

 

[leonadies]

@muygun Ellerine sağlık üstadım

 

[Korhan Ayhan]

Döngüsüz alternatif;

Option Explicit

Sub Toplam_Tutarlar()
    Range("E2:E" & Rows.Count).ClearContents
    
    With Range("E2:E" & Cells(Rows.Count, 2).End(3).Row)
        .Formula = "=SUMPRODUCT((($H$1:$CC$1=""ALIŞ FİYAT"")*(H2:CC2))*(($I$1:$CD$1=""ALIŞ ADET"")*(I2:CD2)))"
        .Value = .Value
    End With
End Sub

 

[leonadies]

Teşekkürler @Korhan Ayhan hocam