Soru Bakiye (A) Olan satırları silmek

[bulentkars]

Arkadaşlar Merhaba,

Excel "C" Satırlarında bakiye sonunda (A) olanların a:d arası satırların silmek istiyorum, örneğin resimde sarıya boyadığım satırlarrın silinmesini istiyorum. B Olanlar lar kalacak. Yardımcı Olabilirseniz sevinirim. Şimdiden Teşekkürler

 

[Muzaffer Ali]

Merhaba.

Sub test()
    Dim Bak As Range
    Do
        Set Bak = Range("C:C").Find(what:="(A)", lookat:=xlPart)
        If Bak Is Nothing Then Exit Do
        Range("A" & Bak.Row & ":D" & Bak.Row).Delete xlUp
    Loop
End Sub

 

[bulentkars]

Muzaffer Ali Bey,

Çok çok teşekkür ederim. Elinize sağlık