listbox görüntüleme

[MUTLUXXX]

Private Sub CommandButton1_Click()
On Error Resume Next
son = [a65536].End(3).Row
ListBox1.AddItem
ListBox1.List(0, 0) = WorksheetFunction.Round(Evaluate("=SUMPRODUCT((A3:A" & son & "=" & CLng(CDate(DTPicker1)) & ")*(B3:B" & son & "=" & """" & ComboBox1 & """" & son & ")*(L3:L" & son & "))"), 2)
End Sub

Arkadaşlar yukarıdaki makroyu tek tarih ve tek combobox seçimi yaparak düzenlemek istiyorum nasıl yapabilirim?Listeye değer 0 geliyor oysa L sütununda değer var .Şididen teşekkür ediyorum yardımlarınız için.

 

[zafer]

Merhaba

ListBox1.List(0, 0) = WorksheetFunction.Round(Evaluate("=SUMPRODUCT((A3: A" & son & "=" & CLng(CDate(DTPicker1)) & ")*(B3:B" & son & "=" & """" & ComboBox1 & """" & son & ")*(L3:L" & son & "))"), 2)

Kırmizı boyalı yerleri kaldırıp deneyin