listbox ta toplama işlemi

[zfr10]

2010 ve 2003 de denedim fakat 2003 de nesne bu özelliği desteklemiyor hatası verdi. Bunun sebebi nedir Sayın Hocam?

 

[vardar07]

2003 hiç kullanmadığım için bilemiyorum. 2003 kullanan bir arkadaş yardımcı olur inşallah.

 

[Zeki Gürsoy]

Kodun içinde "sumifs" gördüm. 2003 versiyonda bu yoktur.

 

[zfr10]

Zeki Bey sumıfs yerine ne yazabiliriz ki 2003 ve 2010 da çalışsın?

 

[vardar07]

Private Sub ComboBox1_Change() Kodlarını silip aşağıdakini ekleyip deneyiniz.

Private Sub ComboBox1_Change()
Dim wf As WorksheetFunction
Set sh = Sheets("İCMAL")
Set wf = Application.WorksheetFunction
veri = wf.CountIf(sh.Range("M2:M100"), ComboBox1)
b = "İCMAL!M2:M" & son
c = "İCMAL!E2:E" & son
d = "İCMAL!F2:F" & son
e = "İCMAL!G2:G" & son
If veri < 1 Then MsgBox "ARADIĞINIZ " & ComboBox1 & " YILINA AİT VERİ YOK": Exit Sub
TextBox1.Value = Evaluate("=SumProduct((" & b & "=" & ComboBox1 & ")*(" & c & "))")
TextBox2.Value = Evaluate("=SumProduct((" & b & "=" & ComboBox1 & ")*(" & d & "))")
TextBox3.Value = Evaluate("=SumProduct((" & b & "=" & ComboBox1 & ")*(" & e & "))")
End Sub

 

[zfr10]

Sayın Vardar Bey alakanız için teşekkür ederim sizin de başınızı ağrıtıyorum fakat kodları uyguladım değer özelliği ayarlanamadı diye hata verdi. İnitialize olayındaki kodların aynı kalmasından olabilir mi?

 

[vardar07]

Ekteki dosya aynı hatayı verirse tarafımdan yapacak bir şey yok. 2003 kullansam deneme olurdu olmadığı için. kesin cevap veremiyorum.

 

[zfr10]

Sayın Vardar Bey kodlar sorunsuz çalıştı. Elinize sağlık, çok teşekkür ederim.

 

[vardar07]

Sayın Vardar Bey kodlar sorunsuz çalıştı. Elinize sağlık, çok teşekkür ederim.

Rica ederim. Sorun nedenmiş bizde öğrensek!!!.