Topla.Çarpım makrosunu döngü ile yapabilirmiyiz.

[kelkitli]

Değerli Dostlar Selamlar,
=TOPLA.&#199;ARPIM((Sayfa2!$F$2:$F$35000=B4)*(Sayfa2!$J$2:$J$35000>=$D$1)*(Sayfa2!$J$2:$J$35000<=$D$2);Sayfa2!$G$2:$G$35000)
Form&#252;l&#252; Sayfa1 D s&#252;tununda D1,D2,D3 &#231;o&#287;altarak kullan&#305;yorum.
Sub topla_&#231;arp&#305;m()
Range("d1") = Evaluate("=SumProduct(--(a1:a10=a1),--(b1:b10=b1),--(c1:c10))")
End Sub
Bunu a&#351;a&#287;&#305;daki &#351;ekilde makro yapmaya &#231;al&#305;&#351;t&#305;m ba&#351;aramad&#305;m.
Bu i&#351;lemi makroya d&#246;n&#252;&#351;t&#252;r&#252;p D s&#252;tununda d&#246;ng&#252; ile en son bo&#351; sat&#305;ra kadar &#231;al&#305;&#351;t&#305;rmak istiyorum.
Sub topla_&#231;arp&#305;m()
Set S1=Sayfa1
Set S2=Sayfa2
S1.Range("d4") = Evaluate("=SumProduct(--(f2:f35000=b4),--(j2:j35000=d1),--(g2:g35000))")
End Sub

 

[parsley2]

g&#246;nderdi&#287;im dosyay&#305; incelerseniz, mutlaka &#231;&#246;zeceksiniz topla.&#231;arp&#305;m&#305; makrolu yapmak i&#231;in epey u&#287;ra&#351;m&#305;&#351;t&#305;m.

 

[kelkitli]

Say&#305;n Parsley2 cevab&#305;n&#305;z i&#231;in te&#351;ekk&#252;r ederim. Ancak ben uyarl&#305;yamad&#305;m.

 

[parsley2]

dosya ekleyin yardımcı olmaya çalışayım.

 

[kelkitli]

Dosya ekledim

 

[parsley2]

formülünüzdeki (J) sütunu belirtiğiniz C mi acaba? c ise formülünüz zaten çalışır ama makro ile de yapılır.

=TOPLA.ÇARPIM((Sayfa2!$F$2:$F$35000=C4)*(Sayfa2!$C$2:$C$35000>=$D$1)*(Sayfa2!$C$2:$C$35000<=$D$2);Sayfa2!$G$2:$G$35000)

 

[parsley2]

ayrıca formülünüzü bu şekilde düzeltirseniz, yani D2 ve D2 deki $ işaretinin kaldırılık vaziyeti ile yana doğru ve aşağı doğru kopyalarsanız doğru sonuç alırsınız.

=TOPLA.ÇARPIM((Sayfa2!$F$2:$F$35000=$B4)*(Sayfa2!$C$2:$C$35000>=D$1)*(Sayfa2!$C$2:$C$35000<=D$2);Sayfa2!$G$2:$G$35000)

 

[kelkitli]

Say&#305;n parsley2 J=c do&#287;rudur. Makro ile yap&#305;lmas&#305; kasmay&#305; &#246;nler ondan dolay&#305; makro daha iyi olur diye d&#252;&#351;&#252;n&#252;yorum.