Döngü İle Toplama Hk.

[emre311]

Merhaba;
Aşağıdaki kodlar gibi 100 den fazla çarpım ve toplam yaptırmam gerekiyor. Döngüye sokup toplata bilirmiyiz? Kolay yolu varmıdır? 6. satırdan 168 nci satıra kadar yapacak. Excel Korumalı olduğundan üzerinde işlem yapamıyorum VBA ile yapmam gerekiyor.

Pe1 = (WorksheetFunction.Sum(Range("M6:N6")) * WorksheetFunction.Sum(Range("AB6")))
Pe2 = (WorksheetFunction.Sum(Range("M7:N7")) * WorksheetFunction.Sum(Range("AB7")))
Pe3 = (WorksheetFunction.Sum(Range("M8:N8")) * WorksheetFunction.Sum(Range("AB8")))
Pe4 = (WorksheetFunction.Sum(Range("M9:N9")) * WorksheetFunction.Sum(Range("AB9")))
Pe5 = (WorksheetFunction.Sum(Range("M10:N10")) * WorksheetFunction.Sum(Range("AB10")))
Pe6 = (WorksheetFunction.Sum(Range("M11:N11")) * WorksheetFunction.Sum(Range("AB11")))
Pe7 = (WorksheetFunction.Sum(Range("M12:N12")) * WorksheetFunction.Sum(Range("AB12")))
Pe8 = (WorksheetFunction.Sum(Range("M13:N13")) * WorksheetFunction.Sum(Range("AB13")))

PeToplam = Pe1 + Pe2 + Pe3 + Pe4 + Pe5 + Pe6 + Pe7 + Pe8

 

[YUSUF44]

Döngü yerine aşağıdaki satır da aynı işi görür. Ben 6. satırdan 130. satıra kadar ayarladım, siz kendinize göre uyarlarsınız:

PeToplam = WorksheetFunction.SumProduct([M6:M130], [AB6:AB130]) + WorksheetFunction.SumProduct([N6:N130], [AB6:AB130])

Not: Kod TOPLA:ÇARPIM formülünün karşılığıdır. Belirtilen hücrelerde metinsel ifade bulunmamalıdır.

 

[emre311]

Çok teşekkür ederim Yusuf bey işime yaradı hergün yeni birşeyler öğreniyoruz. İyi çalışmalar dilerim