hücrede ki veriye göre satırı komple silme

[esad45]

arkadaşlar bir listem var ve bu litede borcu yokları sonsuza kadar silmek için bir makro yapmak istiyorum ek teki listemde borcu yok yazanların komple satırlarının silinmesi için bir makro yazılabilinirmi

 

[Orion1]

Dosyanız ektedir.

Sub borcuyok59()
Dim i  As Long, sat As Long
Sheets("Sayfa1").Select
sat = Cells(Rows.Count, "G").End(xlUp).Row
Application.ScreenUpdating = False
For i = sat To 3 Step -1
    If UCase(Cells(i, "G").Value) = "BORCU YOK" Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı." & vbLf & "evrengizlen@hotmail.com", _
    vbOKOnly + vbInformation, Application.UserName

End Sub

 

[esad45]

teşekkür ederim lakin ben örnek vermiştim verilerim "veri sayfası" adlı sayfa da U sutununda BY yazarsa silinse buna göre ayarlanamaz mı ?

 

[esad45]

İşin mantığı nedir

Bu işin mantığınızda anlatırsanız sevinirm

 

[esad45]

İşin mantığı nedir

Bu işin mantığınızda anlatırsanız sevinirm