2 sütundaki tarihe göre süz

[erzen]

Merhabalar. Ekteki dosyada F ve N sütunlarında tarihler var. Listboxa iki tarih arasındaki kayıtları süzdürmek istiyorum. Önce F sütununa göre süzsün liste silinmeden altınada N sütununa göre süzdüklerini yazsın. Mümkün müdür acaba?

 

[fedeal]

merhaba, dogru anlamışımdır umarım.

Private Sub CommandButton1_Click()
On Error Resume Next
Sheets("Sayfa1").Activate
Dim tarih, i
                          If TextBox1.Value = "" Then
                        MsgBox ("İlk Tarihi Giriniz")
                      Exit Sub
                    Else
                End If
             If TextBox2.Value = "" Then
          MsgBox ("Son Tarihi Giriniz")
        Exit Sub
     Else
End If
            ListBox1.Clear
TextBox2 = Format(TextBox2, "dd.mm.yyyy")
TextBox1 = Format(TextBox1, "dd.mm.yyyy")
For c = 4 To Range("f65536").End(xlUp).Row
On Error Resume Next
        If CDate(Cells(c, "f")) >= CDate(TextBox1) And CDate(Cells(c, "f")) <= CDate(TextBox2) Then
            i = i + 1
For t = 1 To 14
        ListBox1.AddItem
        ListBox1.Column(t - 1, i - 1) = Cells(c, t)
Next
        End If
  Next
  For c = 4 To Range("n65536").End(xlUp).Row
On Error Resume Next
        If CDate(Cells(c, "n")) >= CDate(TextBox1) And CDate(Cells(c, "n")) <= CDate(TextBox2) Then
            i = i + 1
For t = 1 To 14
        ListBox1.AddItem
        ListBox1.Column(t - 1, i - 1) = Cells(c, t)
Next
        End If
  Next
Son:
End Sub

iyi çalışmalar.

 

[erzen]

Teşekkür ederim. aynen istediğim gibi. elinize sağlık

 

[erzen]

Kodlardaki For t = 1 To 14 yerine sütun belirtmek istesek nasıl bir değişilik yapmamız gerekir. Yani listboxta B,C ve F sütunları görünsün. Teşekkürler

 

[fedeal]

For t = 1 To 14
ListBox1.AddItem
ListBox1.Column(t - 1, i - 1) = Cells(c, t)
Next
yerine

ListBox1.AddItem
ListBox1.Column(0, i - 1) = Cells(c, 1)
ListBox1.Column(1, i - 1) = Cells(c, 2)
.....

gibimi