Topla.çarpım formülünün makrosu

[mbattal]

Arkadaşlar merhaba,
Aşağıda yazmış olduğum formülün makrosu nasıl yazılır?


=TOPLA.ÇARPIM(('aaa'!J$3:J$30000>=GRAFİK!$B$4)*('aaa'!J$3:J$30000<=GRAFİK!$B$5)*('aaa'!E$3:E$30000=GRAFİK!A14)*('aaa'!I$3:I$30000))


Saygılarımla,

 

[İhsan Tank]

Merhaba
Dosya ekler misiniz_?

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki linkte çok güzel örnekler var. İncelermisiniz.

Topla.Carpim(Sumproduct)Fonksiyonunun Vba Icindeki Farkli Kullanimlari

 

[mbattal]

Sayın İhsan Bey,
İsteğiniz üzere EK'te dosyamı önderiyorum
Teşekkürler

 

[İhsan Tank]

Sayın İhsan Bey,
İsteğiniz üzere EK'te dosyamı önderiyorum
Teşekkürler

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub tarih_arası_kriterli_topla_61()
Dim ts, kaplan, trabzonspor, hamsi As Date
Dim bordo, mavi
Set bordo = Sheets("aaa")
Set mavi = Sheets("GRAFİK")
For ts = 14 To 24
For kaplan = 3 To bordo.Cells(Rows.Count, "A").End(xlUp).Row
If bordo.Cells(kaplan, "F") >= mavi.Range("B4") And _
bordo.Cells(kaplan, "F") <= mavi.Range("B5") And _
bordo.Cells(kaplan, "A") = mavi.Cells(ts, "A") Then
mavi.Cells(ts, "B") = bordo.Cells(kaplan, "E")
End If
If bordo.Cells(kaplan, "J") >= mavi.Range("B4") And _
bordo.Cells(kaplan, "J") <= mavi.Range("B5") And _
bordo.Cells(kaplan, "A") = mavi.Cells(ts, "A") Then
mavi.Cells(ts, "C") = bordo.Cells(kaplan, "K")
End If
Next
Next
End Sub

 

[mbattal]

İhsan Bey,
Öncelikle (bordo mavili) cevabınız için teşekkür ederim.
Fakat toplama işlemini yapmıyor.
"A" dan bir değer, "B" den bir değer...... alıp yazıyor. iki tarih arasındaki "A" ların toplamını yazmıyor.

Saygılarımla...

 

[İhsan Tank]

İhsan Bey,
Öncelikle (bordo mavili) cevabınız için teşekkür ederim.
Fakat toplama işlemini yapmıyor.
"A" dan bir değer, "B" den bir değer...... alıp yazıyor. iki tarih arasındaki "A" ların toplamını yazmıyor.

Saygılarımla...

Özür dilerim sanırım biraz aceleye geldi bir yeri atlamışım

Option Explicit
Sub tarih_arası_kriterli_topla_61()
Dim ts, kaplan, trabzonspor, hamsi As Date
Dim bordo, mavi
Set bordo = Sheets("aaa")
Set mavi = Sheets("GRAFİK")
For ts = 14 To 24
For kaplan = 3 To bordo.Cells(Rows.Count, "A").End(xlUp).Row
If bordo.Cells(kaplan, "F") >= mavi.Range("B4") And _
bordo.Cells(kaplan, "F") <= mavi.Range("B5") And _
bordo.Cells(kaplan, "A") = mavi.Cells(ts, "A") Then
mavi.Cells(ts, "B") = mavi.Cells(ts, "B") + bordo.Cells(kaplan, "E")
End If
If bordo.Cells(kaplan, "J") >= mavi.Range("B4") And _
bordo.Cells(kaplan, "J") <= mavi.Range("B5") And _
bordo.Cells(kaplan, "A") = mavi.Cells(ts, "A") Then
mavi.Cells(ts, "C") = mavi.Cells(ts, "C") + bordo.Cells(kaplan, "K")
End If
Next
Next
End Sub

 

[mbattal]

Sayın İhsan Bey,
Çok teşekkür ederim
Saygılarımla...

 

[İhsan Tank]

Sayın İhsan Bey,
Çok teşekkür ederim
Saygılarımla...

Rica ederim
:keyif: