ListView de DTPickerle iki Tarih Arasını Süzme

[iaydin20]

Merhaba;
ListView in 4.kolonunda evrak tarihleri var bu tarihleri DTPicker ile verileri süzerek 7.ve 8.kolonda bulunan sayıların toplamınıda TextBox2 ve TextBox3 yazmasını istiyorum yardımcı olabilirseniz çok memnun olurum...
Saygılar

 

[Mahmut Kök]

Örnek dosya ekleyebilirseniz yardımcı olmaya çalışalım.

 

[iaydin20]

Merhaba Dosyayı ekledim Yardımlarınızı bekliyorum

 

[iaydin20]

Arkadaşlar yardımlarınızı bekliyorum...

 

[Mahmut Kök]

Aşağıdaki gibi deneyebilirsiniz.

Private Sub CommandButton3_Click()
Set s1 = Sheets("kasakayıt")
ListView1.ListItems.Clear
ilk = CDate(DTPicker1.Value)
son = CDate(DTPicker2.Value)
If ilk > son Then
MsgBox "İLK TARİH, İKİNCİ TARİHTEN BÜYÜK OLAMAZ"
Exit Sub
End If
For a = 2 To s1.Range("d65536").End(3).Row
If CDate(s1.Cells(a, "d")) >= ilk And CDate(s1.Cells(a, "d")) <= son Then
ListView1.ListItems.Add , , s1.Cells(a, 1)
ListView1.ListItems(ListView1.ListItems.Count).SubItems(1) = s1.Cells(a, 2)
ListView1.ListItems(ListView1.ListItems.Count).SubItems(2) = s1.Cells(a, 3)
ListView1.ListItems(ListView1.ListItems.Count).SubItems(3) = s1.Cells(a, 4)
ListView1.ListItems(ListView1.ListItems.Count).SubItems(4) = s1.Cells(a, 5)
ListView1.ListItems(ListView1.ListItems.Count).SubItems(5) = s1.Cells(a, 6)
ListView1.ListItems(ListView1.ListItems.Count).SubItems(6) = Format(s1.Cells(a, 7), "#,##0.00")
ListView1.ListItems(ListView1.ListItems.Count).SubItems(7) = Format(s1.Cells(a, 8), "#,##0.00")
yedi = yedi + (s1.Cells(a, 7) * 1)
sekiz = sekiz + (s1.Cells(a, 8) * 1)
End If
Next
'textbox2=yedi
'textbox3=sekiz   'Bu metinkutularını formunuzda bulamadım.
End Sub

 

[iaydin20]

üstadım yardımınız için teşekkür ederim textbox ları başka bi userform la karıştırmışım
bu forma ListBox eklemişim
Listbox4=7.kolon toplamı
Listbox3=8.kolon toplamı
listbox2 =listbox4 - listbox3
listbox5 = eğer(listbox2>0;"b";"a") bu formulün makrosunu uygulamak istiyorum

İllede listbox olmasına gerek yok hocam başka birşeyde olabilir yardımlarınızı bekliyorum