satır silme

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. Tüm sayfalardaki fazla satırları siler. Bu sebeple dosyanızın yedeğini alıp deneyiniz.

Option Explicit
 
Sub SATIR_SİL()
    Dim SAYFA As Worksheet, X As Long
    
    Application.ScreenUpdating = False
    
    For Each SAYFA In Worksheets
        With SAYFA
            For X = 6 To .Range("A65536").End(3).Row
                If .Cells(X, 1).MergeArea.Count = 5 Then
                    .Range("A" & X + 3 & ":IV" & X + 4).Delete
                ElseIf .Cells(X, 1).MergeArea.Count = 4 Then
                    .Range("A" & X + 3 & ":IV" & X + 3).Delete
                End If
            Next
        End With
    Next
    
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[aacanakova]

Hocam çok teşekkür ederim süper olmuş işimi çok kolaylaştırdı .Bir de bunun 4 satırlı olupta sadece son 1 satırını tüm kitapta otomatik olarak sildirecek hale getirebilirmisiniz acaba .............

 

[Korhan Ayhan]

Selamlar,

Zaten önerdiğim kod hem 5 satır, hemde 4 satırdan oluşan tablonuza uygun şekildedir.