Aranan satırdan sonraki belli aralığı silme

[Daglaroglu]

Ekteki örnekte olduğu gibi belli bir satırdan sonraki, takip eden 3 satırı da süzerek sheet2 de düzenlenmiş çalışmayı elde etmeye çalışıyorum.

aranan satırımız :

GHB000000000000000000000000000

(bu satırdan sonra gelen 3 satırda silinecek)

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub ARANAN_DEĞERİ_BUL_SONRAKİ_ÜÇ_SATIRI_SİL()
    ARANAN_DEĞER = Application.InputBox("LÜTFEN ARANAN DEĞİERİ GİRİNİZ !", "ARANAN DEĞER")
    If ARANAN_DEĞER = False Then Exit Sub
    If ARANAN_DEĞER = "" Then
    MsgBox "HATALI VERİ GİRİŞİ !" & Chr(10) & "LÜTFEN FARKLI BİR VERİ GİRİŞİ YAPINIZ.", vbCritical, "DİKKAT !"
    Exit Sub
    End If
    SAY = WorksheetFunction.CountIf([A:A], ARANAN_DEĞER)
    If SAY = 0 Then GoTo SON
    For X = [A65536].End(3).Row To 1 Step -1
    If Cells(X, 1) = ARANAN_DEĞER Then
    Rows(X + 1 & ":" & X + 4).Delete
    End If
    Next
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
    Exit Sub
SON: MsgBox "ARADIĞINIZ DEĞER BULUNAMAMIŞTIR.", vbExclamation
End Sub

 

[Daglaroglu]

sağ olun, kod işliyor ama aranan satırı da silmesi gerekli. Şu hali ile sadece aranan satırın altındaki 3 satırı silmekte.

çok teşekkürler

 

[exam77]

O zaman Sayın Korhan Ayhan hocanın yazdığı kodda aşağıdaki düzeltmeyi yapınız...

Önceki Kod...

Rows(X + 1 & ":" & X + 4).Delete
End Sub

Yeni Kod...

Rows(X & ":" & X + 4).Delete
End Sub

 

[Daglaroglu]

teşekkürler