Vba kod yazılabilinir mi

[kaya41]

Arkadaşlar Topla çarp yöntemiyle veri çekiyorum.
ama sayfalarım 5 000 satırlı hale gelince inanılmaz sıkıntı olmaya başladı.
bende düşündüm ki formüldeki koşulları sağlayan vba kod varmıdır.
veya bu formül nasıl sadeleştirilebilinir.
örnek ekleyemedim kusura bakmayın.

kullandığım kod

=TOPLA.ÇARPIM(
('[ÜRETİM DOSYASI 2013.xls]ÜRETİM 2013'!$GO$3:$GO$4000=E3)
*('[ÜRETİM DOSYASI 2013.xls]ÜRETİM 2013'!$O$3:$O$4000="STOK GEBZE")
*('[ÜRETİM DOSYASI 2013.xls]ÜRETİM 2013'!$S$3:$S$4000=T3)
*('[ÜRETİM DOSYASI 2013.xls]ÜRETİM 2013'!$I$3:$I$4000="+")
*(C3=51)
*('[ÜRETİM DOSYASI 2013.xls]ÜRETİM 2013'!$AF$3:$AF$4000))

 

[kaya41]

Kendi soruma kendim cevap vereyim

topla çarpın kastığı durumlarda kullanılabilir bir kod.

=EĞER(C3=51;ÇOKETOPLA('[ÜRETİM DOSYASI 2013.xls]ÜRETİM 2013'!$AF$3:$AF$5000;
'[ÜRETİM DOSYASI 2013.xls]ÜRETİM 2013'!$I$3:$I$5000;"+";
'[ÜRETİM DOSYASI 2013.xls]ÜRETİM 2013'!$GO$3:$GO$5000;E3;
'[ÜRETİM DOSYASI 2013.xls]ÜRETİM 2013'!$S$3:$S$5000;T3);"")