Sayfalardan listboxa kriterlere uyan verileri getirmek

[Korhan Ayhan]

Selamlar,

Arkadaşlar ekte gönderdiğim örnek dosyada "RAPOR" formunda verdiğim tarih aralığına göre tüm sayfalardaki kayıtları listelemek istiyorum. Tarih aralığı verip listele dediğimde sırayla sayfalarda bu tarihlere uyan kayıtları bulup altalta kopyalacak eğer bir sayfada veri bulamazsa bir sonraki sayfadan devam edecek. Eğer bu şekilde uzun bir işlem olacaksa kayıtları bulup AddItem özelliği ilede kayıtlar listelenebilir.

Yardımlarınız için teşekkür ederim.

 

[kundakci]

Merhaba

Sayfalarıdaki verileri seçilen tarih aralığında RAPOR sayfasına listeyen kodlar aşağıdadır.

Private Sub CommandButton1_Click()
Bastar = TextBox1
SonTar = TextBox2

Set S1 = Sheets("RAPOR")
Range("A2:F4500").Select
Selection.ClearContents
Range("A2").Select
SAYAC = 1
For sayfa = 1 To Worksheets.Count
    Worksheets(sayfa).Select
    If ActiveSheet.Name <> "RAPOR" Then
    'If [B1] <> "RAPOR" Then
        Range("b3").Select
        Do While ActiveCell.Value <> ""
            If Format(ActiveCell.Value, "dd/mm/yyyy") >= Bastar And Format(ActiveCell.Value, "dd/mm/yyyy") <= SonTar Then
               S1.Cells(1 + SAYAC, 1).Value = SAYAC
               S1.Cells(1 + SAYAC, 2).Value = ActiveCell.Value
               S1.Cells(1 + SAYAC, 3).Value = ActiveCell.Offset(0, 1).Value
               S1.Cells(1 + SAYAC, 4).Value = ActiveCell.Offset(0, 2).Value
               S1.Cells(1 + SAYAC, 5).Value = ActiveCell.Offset(0, 3).Value
               S1.Cells(1 + SAYAC, 6).Value = ActiveCell.Offset(0, 4).Value
               SAYAC = SAYAC + 1
            End If
            ActiveCell.Offset(1, 0).Select
        Loop
    End If
Next

End Sub

Kolay gelsin