Sumproduct

[ETEKİN]

Selam Arkadaşlar;
Const strFORMUL1 = "SUMPRODUCT((%Rng1<=TODAY())*((%Rng2=""MAAŞ"")+(%Rng2=""İKRAMİYE""))*(%Rng3))"

Yukarıdaki gibi formülüm var; %Rng2= maaş,ikramiye,....... diye gidecek,
ben Maaş,ikramiye,..... gibi giden bu uzun tanımı tek isim altında toplamak istiyorum.Örneğin;

GELİR=MAAŞ,İKRAMİYE,...

Const strFORMUL1 = "SUMPRODUCT((%Rng1<=TODAY())*(%Rng2=""GELİR"")*(%Rng3))"

İlginize çok teşekkür ederim

 

[ETEKİN]

Arkadaşlar sorduğum bu sorunun cevabı yok mu? Yoksa ben mi anlamatım?
Sevgi ve saygıyla

 

[Korhan Ayhan]

Selamlar,

&#214;rnek dosyan&#305;z&#305; g&#246;rmeden nas&#305;l bir i&#351;lem yapmak istedi&#287;inizi anlamak zor. &#214;rnek dosya eklerseniz belki farkl&#305; &#231;&#246;z&#252;mler &#246;nerebiliriz.

 

[ETEKİN]

Dosya ekte

 

[ETEKİN]

Dosyayı bir türlü ekleyemedim bende kodları yapıştırdım.İlgi ve alaka için teşekkürler.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next

If Target.Address(0, 0) <> "C2" And Target.Address(0, 0) <> "C3" Then
If Target.Address(0, 0) <> "E2" And Target.Address(0, 0) <> "E3" Then
If Target.Address(0, 0) <> "G2" And Target.Address(0, 0) <> "G3" Then
If Target.Address(0, 0) <> "I2" And Target.Address(0, 0) <> "I3" Then


Const strRng1 = "A%n:A%n"
Const strRng2 = "A%n:A%t"
Const strRng3 = "B%n:B%t"

DEGER = "MAAŞ"

'BANKA GELİR
'Const strFORMUL1 = "SUMPRODUCT((%Rng1<=TODAY())*((%Rng2=""MAAŞ"")+(%Rng2=""İKRAMİYE"")+(%Rng2=""AVANS""))*(%Rng3))"
Const strFORMUL1 = "SUMPRODUCT((%Rng1<=TODAY())*(%Rng2=""" & DEGER & """)*(%Rng3))"

t1 = 6
t2 = 16
For i = 6 To 485 Step 11
Rng1 = Replace(strRng1, "%n", i)
Rng2 = Replace(Replace(strRng2, "%n", t1), "%t", t2)
Rng3 = Replace(Replace(strRng3, "%n", t1), "%t", t2)
Formul1 = Replace(Replace(Replace(strFORMUL1, "%Rng1", Rng1), "%Rng2", Rng2), "%Rng3", Rng3)

BGELİR1 = BGELİR1 + Evaluate(Formul1)



t1 = t1 + 11
t2 = t2 + 11
Next i

'GENEL
[C2] = BGELİR1 + BGELİR2 + BGELİR3 + BGELİR4 + BGELİR5 + BGELİR6 + BGELİR7
[C3] = BGİDER1 + BGİDER2 + BGİDER3 + BGİDER4 + BGİDER5 + BGİDER6 + BGİDER7
'BANKA
[E2] = BGELİR1 + BGELİR2 + BGELİR3 + BGELİR4 + BGELİR5 + BGELİR6 + BGELİR7
[E3] = BGİDER1 + BGİDER2 + BGİDER3 + BGİDER4 + BGİDER5 + BGİDER6 + BGİDER7

'CEP
[G2] = C1 + C2 + C3 + C4 + C5 + C6 + C7 + Ç1 + Ç2 + Ç3 + Ç4 + Ç5 + Ç6 + Ç7
[G3] = CÇ1 + CÇ2 + CÇ3 + CÇ4 + CÇ5 + CÇ6 + CÇ7

End If
End If
End If
End If

End Sub

 

[ETEKİN]

Arkadaşlar bir türlü dosyayyı bilgisayarımdan yükleyemedim. Sorduğum soruya acaba yukarıda yapıştırdığım kodlara bakarak bir yorum yapabilirmisiniz.

 

[Levent Menteşoğlu]

Dosyan&#305;z&#305; rar olarak s&#305;k&#305;&#351;t&#305;r&#305;p eklermisiniz.

 

[ETEKİN]

Sayın Levent Bey;
Dosya ektedir.Yardımlarınız için çok teşekkür ederim.