Private Sub CommandButton1_Click()

ListBox1.Clear



For i = 2 To 1000



If CLng(CDate(Worksheets(1).Range("b" & i).Value)) >= CLng(CDate(TextBox1.Text)) _

And CLng(CDate(Worksheets(1).Range("b" & i).Value)) <= CLng(CDate(TextBox2.Text)) Then

sat1 = i: sat = "0000" + sat1: sat = Right(sat, 5) + " = "

ekle = (" - " & (Worksheets(1).Range("b" & i).Value) & " - " _

& (Worksheets(1).Range("f" & i).Value))

ListBox1.AddItem (sat + ekle)

End If

TextBox3.Text = ListBox1.ListCount

Next i

End Sub