Belirli metinden sonrasını silme

[Serdarrk]

Merhaba,

Aşağıdaki dosya gibi dosyalarda amacım B sütununda Zorlu Enerji yazan hücreden sonra aşağıdaki bütün satır ve sütunları makro ile silebilmek çünkü çok fazla bu şekilde sayfa bulunmakta. Zorlu Enerji hücresi kimi sayfada 310. satırda kiminde 311. kiminde 307. Bunu makrolaştırmak mümkün müdür?

http://s7.dosya.tc/server4/g5oqfc/crosoft_Office_Excel_Calisma_Sayfasi__2_.xlsx.html

 

[Korhan Ayhan]

Deneyiniz.

Sub Sil()
    Dim Sayfa As Worksheet, Bul As Range
    
    For Each Sayfa In ThisWorkbook.Worksheets
        Set Bul = Sayfa.Range("B:B").Find("ZORLU ENERJİ", , , xlPart)
        If Not Bul Is Nothing Then
            Sayfa.Range("A" & Bul.Row + 1 & ":A" & Rows.Count).EntireRow.Delete
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Serdarrk]

Çok teşekkür ederim Korhan Bey. Mükemmelsiniz, emeğinize sağlık.