ıcınde su kelımenın gectıgı satırdan sonrasını secmek

[tirinvest]

Selam arkadaslar..
Bir tablom var ve bu tabloda her seferinde belli yerlerini degistirmemiz gerekiyor.
Tablonun icinde bir fatura var ve fatura icerigi -dogal olarak- degisiyor. Faturanin basindaki degisiklikleri gayet guzel makroya kayit edebiliyorum. Ama sonundaki degisiklikler -fatura icindeki kalemler degistigi icin- makroya kayit etsemde istedigim yerden baslatamiyorum.
VB de soyle bir kod varmidir/yazilabilirmi?
icinde su kelime gecen satirdan sonra 10 satir sev ve sil..

Simdiden tesekkur ederim.

Omer

Bununla beraber Herkesin Kandilini Kutlarim.

 

[hamitcan]

Dosya ekleyin daha çabuk cevap bulun.

 

[tirinvest]

Su sekilde icinde bir kelime gecen satiri buldurmak ve sonrasinda 10 satir silmek istiyorum.

makro kayit ederek satiri buluyorum. secip siliyorum. ama fatura icerigi her faturada farkli oldugu icin makri diger faturada ayni islemleri yaptigi halde sonuc alamiyorum dogal olarak.
aslinda yazabilmek istedigim ve aradigim kod bu

range ("bu kelimeden sonraki 10 satir")

Cells.Find(What:="5012039795", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Range("B47,A47:I62").Select

saygilar

 

[hamitcan]

Umarım, dosyama uyarlayamadım demezsiniz.

Sub secsil()
    For i = 50 To 1 Step -1
        If Cells(i, 1) Like "*" & [d1] & "*" Then
        Rows(i + 1 & ":" & i + 10).Delete
        End If
    Next
End Sub