iyi akşamlar arkadaşlar.
Private Sub CommandButton19_Click()
Set sh = Sheets("Sayfa2")
For i = 2 To sh.Cells(Rows.Count, "a").End(xlUp).Row
If sh.Cells(i, 7).Value >= CDate(Format(TextBox12.Value, "dd.mm.yyyy")) And sh.Cells(i, 7).Value <= CDate(Format(TextBox13.Value, "dd.mm.yyyy")) Then...