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

[oerbas]

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

Aşağıdaki Codu kullanarak ComboBox lara girdiğim tarihe göre ListBox' a veri almak istiyorum.

Sorun şu sadece tarihlerin olduğu kolon listeleniyor. ben ise belirlediğim kolonların belirtilen tarihe göre listelenmesini istiyorum. Ã?rneğin A ve G Sütun aralığının Combobox1'e girilen tarihe göre listelenmesi

Cod:

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

 

[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) & "-" & Sheets("EVRAK DEFTERİ").Cells(i, 2) & "-" & Sheets("EVRAK DEFTERİ").Cells(i, 3) & "-" & Sheets("EVRAK DEFTERİ").Cells(i, 4) & "-" & Sheets("EVRAK DEFTERİ").Cells(i, 5)



   End If 

Next i 

End Sub

 

[oerbas]

Eksik olmayın çok yardımınız oluyor.

Ufak bir sorun var ListBox1' e aktarılan veriler birbiri içine girmiş halde geliyor. Sütunlar halinde gelmesini sağlamamız mümkünmü

 

[ALPEN]

dosyanızı gönderin.

edit : şifresini de

 

[oerbas]

ListBoxtaki verileri yazdırmak

Dosyayı gönderiyorum

Hocam az önce yanlışlıkla bu örnek dosyayı diğer sorumun üzerine gönderdim özür dilerim

şifre omerosman

 

[xxrt]

ListBox1'in Sütun ayarlarını;
ColumnCount Ã?zelliğini İstediğiniz sütun sayısını yazın.
ColumnWidths Ã?zelliğini Sütun Genişliği.70;80;55...gibi (Kafana Göre ayarlarsın)
UserForm Çalışırken Sayfaya Müdahale etmek istersen(Eminim istersin.)
UserFormu tıklat ShowModal özelliğini False yap..Ok..

 

[ALPEN]

inceleyin