TOPLA.ÇARPIM Makro Karşılığı.

[cqners]

Merhabalar;

Aşağıdaki formülün Makro olarak karşılığı nedir? (Form içerisinde bulamadım.)
Sayfada herhangi bir hücreye yazabilir.
İlginiz için Teşekkürler.

=TOPLA.ÇARPIM(--('F:\Rapor\M01\[01.xls]AY'!$C$2:$C$2500=B13);--('F:\Rapor\M01\[01.xls]AY'!$F$2:$F$2500=C13);--('F:\Rapor\M01\[01.xls]AY'!$K$2:$K$2500))

=TOPLA.ÇARPIM(--('F:\Rapor\M01\[01.xls]AY'!$C$2:$C$2500=B14);--('F:\Rapor\M01\[01.xls]AY'!$F$2:$F$2500=C14);--('F:\Rapor\M01\[01.xls]AY'!$M$2:$M$2500))

 

[kelkitli]

Selamlar,
Sayın Korhan Hoca şöyle bir makro yazmıştı. Kendinize uyarlayınız.

For X = 1 To 12
AYIN_İLK_GÜNÜ2 = CLng(DateSerial(2008, X, 1))
AYIN_SON_GÜNÜ2 = CLng(DateSerial(2008, X + 1, 0))
T5 = Evaluate("=SUMPRODUCT((Sayfa2!Z2:Z65536>=" & AYIN_&#304;LK_G&#220;N&#220;2 & ")*(Sayfa2!Z2:Z65536<=" & AYIN_SON_G&#220;N&#220;2 & "))")
T6 = Evaluate("=SUMPRODUCT((Kay&#305;p!Z2:Z65536>=" & AYIN_&#304;LK_G&#220;N&#220;2 & ")*(Kay&#305;p!Z2:Z65536<=" & AYIN_SON_G&#220;N&#220;2 & "))")
Controls("TextBox" & X) = T1 + T2
TOPLAM = TOPLAM + T1 + T2
Next
TextBox13 = TOPLAM2

 

[kelkitli]

Şu dosyayı inceleyiniz. Bu da Sayın Korhan Hocaya ait

 

[cqners]

Sn. kelkitli,


Vermi&#351; oldu&#287;unuz dosyay&#305; bilgi yetersizli&#287;inden dolay&#305; uyarl&#305;yamad&#305;m. G&#246;stermi&#351; oldu&#287;unuz ilgi i&#231;in Te&#351;ekk&#252;rler.

 

[kelkitli]

Dosyanızı eklerseniz yardımcı olanlar olabilir.

 

[cqners]

Sn. kelkitli,


Haklısınız, Talep edilen Makro koduna ayit kısa bir örnek oluşturdum. Bu kısa örnekten yola çıkarak verilen kodu anlayarak öğrenebilirim.