Satır silme

[1903emre34@gmail.com]

Merhaba,

"A" sütunda içerisinde yer alan, TEK DÜZEN HESAP PLANI AYRINTILI BILANÇO VE AYRINTILI GELIR TABLOSU ( TL ), (2014) (2015), açıklama,aktif, pasif ,aktif toplamı, pasif toplamı önceki dönem cari dönem, gelir tablosu kelimeler yer alıyorsa satırlardan silinmesini istiyorum nasıl kod oluşturabiliriz? (sarı işaretli) ,istenen sayfa2 yapılmıştır

 

[Korhan Ayhan]

Deneyiniz.

Sub KOŞULLU_SATIR_SİL()
    Application.ScreenUpdating = 0
    Application.Calculation = 0

    Kriter = Array("TEK DÜZEN HESAP PLANI AYRINTILI BILANÇO VE AYRINTILI GELIR TABLOSU ( TL )", "(2014) (2015)", "Açıklama", "AKTIF", "Önceki Dönem Cari Dönem", " AKTIF TOPLAMI", "PASIF", " PASIF TOPLAMI", "GELIR TABLOSU")
    Son = Cells(Rows.Count, 1).End(3).Row
    
    For X = Son To 1 Step -1
        For Y = 0 To UBound(Kriter)
            If Cells(X, 1) = Kriter(Y) Then
                Rows(X).Delete
            End If
        Next
    Next
    
    Application.ScreenUpdating = 1
    Application.Calculation = 1
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[1903emre34@gmail.com]

Teşekkürler