İKİ TARİH ARASINDAKİ VERİLERİN LİSTBOX1 'E AKTARILMAS

[oerbas]

ÝKÝ TARÝH ARASINDAKÝ VERÝLERÝN LÝSTBOX1 'E AKTARILMAS

ComboBox1'in RowSource özelliğini kullanarak EVRAK DEFTERİ sayfasındaki C sütununda bulunan tarih bilgileri aktarılmaktadır. ComboBox2 yede yine aynı şekilde C sütunu tarıh bilgileri alınmaktadır.

Ben ComboBox1 le ilk tarihi ComboBox2 ile de son tarih seçip bu iki tarih arasındaki verilerin ListBox1 de listelenmesini istiyorum.

CommandButon1 e yazdığım aşağıdaki cod' u doğru olarak çalıştıramadım yardımcı olabilirseniz çok sevineceğim

CommandButon1 Codu

Private Sub CommandButton1_Click()
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
        
    End If
    
Next i

End Sub

 

[ALPEN]

Private Sub CommandButton1_Click()
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, 1)
End If

Next i

End Sub

 

[oerbas]

ÝKÝ TARÝH ARASINDAKÝ VERÝLERÝN LÝSTBOX1 'E AKTARILMAS

Alpen bey gönderdiğiniz codu denedim

listbox1.additem Sheets("EVRAK DEFTERİ").Cells(i, 1)

bu satırda hata verdi.

incelemeniz için örnek çalışmamı gönderiyorum. Dosya üzerinde yardımcı olabilirmisiniz.

 

[oerbas]

Hocam eğer örnek dosya bozuksa tekrar gönderebilirm ilk sıkıştırdığımda bende bozuk olarak gözüküyordu.

 

[oerbas]

Bu kodla sorgulama yaptığım zaman sadece tarihler listeleniyor. Diğer bilgiler listelenmiyor. Oysa ben tarih girdiğm zaman A ve H Sütun aralığının listelenmesini istiyorum

Private Sub CommandButton1_Click()
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, 1)
End If

Next i

End Sub