Veri bul ve listele

[erkan_hakan]

Arkadaşlar herkese iyi günler
Yaptığım bir çalışma için rapor sayfası hazırlıyorum. Verileri listbox3 'e getirmek için 2 koşul var 1.si satıcılara(1 olabilir 2 olabilir bazen 5 olabilir değişken) ve tarih aralığına göre 2. sadece tarih aralığına göre gelen bilgileri nasıl listbox3'e getirebilirim.


:?

 

[Tarkan VURAL]

Ã?rnek satır verilerini yazar mısınız?

 

[erkan_hakan]

sayın tarkan kusura bakmayın bayadır siteye gelmiyordum. sorunla ilgilendiğin
için teşekkür ederim ama hallettim.

aşağıdaki kodla halloldu
Private Sub rpr_Click()

Range("A2:I65536").ClearContents
Set ad = Sheets("dbase")
sat = WorksheetFunction.CountA(ad.Range("A2:A65536"))
c = 0
d = 0
For satr = 2 To sat + 10
If ad.Cells(satr, 1).Value = ListBox2.Value And ad.Cells(satr, 3).Value >= CDate(trh1.Value) And ad.Cells(satr, 3).Value <= CDate(trh2.Value) Then
c = c + 1
d = d + ad.Cells(satr, 3).Value
Cells(c + 1, 1) = ad.Cells(satr, 1).Value
Cells(c + 1, 2) = ad.Cells(satr, 2).Value
Cells(c + 1, 3) = ad.Cells(satr, 3).Value
Cells(c + 1, 4) = ad.Cells(satr, 4).Value
Cells(c + 1, 5) = ad.Cells(satr, 5).Value
Cells(c + 1, 6) = ad.Cells(satr, 6).Value
Cells(c + 1, 7) = ad.Cells(satr, 7).Value
Cells(c + 1, 8) = ad.Cells(satr, 8).Value
Cells(c + 1, 9) = ad.Cells(satr, 9).Value
End If
Next satr
adres = "rpr!A2:I" & c + 1
ListBox3.RowSource = adres
End Sub

 

[Tarkan VURAL]

Ok, Kolay gelsin.