İKİ TARİH ARASI RAPOR

[oerbas]

ÝKÝ TARÝH ARASI RAPOR

EVRAK DEFTERİ isimli sayfadan ComboBox1 ile ilk tarihi seçiyorum ComboBox2 ile de son tarihi seçiyorum ListBox 1 de bu iki tarih arasındaki gelen evrakların raporunu almak istiyorum yardımcı olursanız çoooook sevinirim.

Ã?rnek dosya gönderiyorum dosya üzerinden yardımcı olursanız sevinirim

 

[ALPEN]

ilgili user forma bir buton ekleyin ve içine

Dim x As Date
For i = 2 To Sheets("EVRAK DEFTERİ").Cells(65536, 1).End(xlUp).Row
    x = Sheets("EVRAK DEFTERİ").Cells(i, 3)
    If x >= CDate(ComboBox1.Value) And x <= CDate(ComboBox2.Value) Then
        ListBox1.AddItem Sheets("EVRAK DEFTERİ").Cells(i, 4)
    End If
    
Next i

yazın.

 

[oerbas]

ALPEN bey demişki

Dim x As Date
For i = 2 To Sheets("EVRAK DEFTERİ").Cells(65536, 1).End(xlUp).Row
x = Sheets("EVRAK DEFTERİ").Cells(i, 3)
If x >= CDate(ComboBox1.Value) And x <= CDate(ComboBox2.Value) Then
ListBox1.AddItem Sheets("EVRAK DEFTERİ").Cells(i, 4)
End If


Yardımcı olduğunuz için çok teşekkür ederim.

İlk tarihi seçince ComboBox1 içinde 38308 yazılıyor ComboBox2 de ise normal tarih yazılıyor. ilk tarih seçilince listeleme yapılıyor ama son tarih seçilince bir etki olmuyor gibi gözüküyor. Birde tek sutun listeleniyor A VE F sütun aralığının listelenmesini sağlayabilirmiyiz.

Sağlıcakla kalınız