Ã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
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