"Find" ile Raporlama

[Zeki Gürsoy]

Merhaba,
Aşağıdaki arama makrosunu koşula uyanların listelenmesi için uyarladım. "aranan" satırını ">=01.06.2006" biçiminde düzenleyemedim.
Yardımcı olursanız sevinirim.


Sub Rapor()

aranan = ">=" & "01.06.2006"

say = WorksheetFunction.CountIf([a:a], aranan) - 1

bul = Columns("A:A").Find(What:=aranan).Row

Application.ScreenUpdating = False

[e1] = Cells(bul, 1)

For i = 1 To say
bul = Columns("A:A").FindNext(After:=Cells(bul, 1)).Row
Cells(i, 5) = Cells(bul, 1)
Cells(i, 6) = Cells(bul, 2)
Cells(i, 7) = Cells(bul, 3)
Next

End Sub

 

[Levent Menteşoğlu]

Bence normal bir for-next döngüsü ile tüm hücreleri karşılaştırın.