- Katılım
- 31 Aralık 2005
- Mesajlar
- 4,293
- Excel Vers. ve Dili
- Office 2019 (64 bit) - Türkçe
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
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