Makro ile belli bir tarih aramak ve satırı komple silmek

[alioltulu]

Mehraba;

Elimde bir dosya var makro ile günün tarihinin yazılı hücreleri bulabiliyorum fakat tümünü seçip ve satırları komple sildirmek istiyorum. Konu hakkında yardımlarınızı bekliyorum dosya ekte bulunmakradır. Elimde bul makrosuda aşağıdaki gibidir.



Sub bulvesil()

Set Bul = Range("X:X").Find(Range("J1"))
If Not Bul Is Nothing Then Bul.Select

End Sub

Ekli listede bulunduğumuz günün tarihini X kolonunda bulmasını ve ardından o günün tarihinde olan bütün satırları silmesini istiyorum bunun hakkında yardımlarınızı beklemekteyim..

Kolay Gelsin.

 

[Huseyinkis]

Mehraba;

Elimde bir dosya var makro ile günün tarihinin yazılı hücreleri bulabiliyorum fakat tümünü seçip ve satırları komple sildirmek istiyorum. Konu hakkında yardımlarınızı bekliyorum dosya ekte bulunmakradır. Elimde bul makrosuda aşağıdaki gibidir.



Sub bulvesil()

Set Bul = Range("X:X").Find(Range("J1"))
If Not Bul Is Nothing Then Bul.Select

End Sub

Ekli listede bulunduğumuz günün tarihini X kolonunda bulmasını ve ardından o günün tarihinde olan bütün satırları silmesini istiyorum bunun hakkında yardımlarınızı beklemekteyim..

Kolay Gelsin.

Ekteki kodları denermisiniz

Sub bulvesil()

Do

Set bul = Range("X:X").Find(Range("J1"))
bul.Select
Rows(Selection.Row & ":" & Selection.Row).Select
Selection.Delete

Set bul = Range("X:X").Find(Range("J1"))
Loop While Not bul Is Nothing
End Sub

 

[alioltulu]

Ekteki kodları denermisiniz

Sub bulvesil()

Do

Set bul = Range("X:X").Find(Range("J1"))
bul.Select
Rows(Selection.Row & ":" & Selection.Row).Select
Selection.Delete

Set bul = Range("X:X").Find(Range("J1"))
Loop While Not bul Is Nothing
End Sub

Hüseyin Bey Teşekkür ediyorum. Bir sorunum daha var bu kodu kullanabilmem için x kolonunda ki tarihler formülsüz olması gerekiyor ama benim size göndermiş olduğum dosyada tarihler formüllüdür.

=J3+I3 Olarak dormüllemişim ben. formül sonucunu arama yapma şansımız yok mu ?