Aynı satırları koşula göre silme

[ferits]

Dosya ekte yardımcı olur musunuz

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Sartli_Sil()
 
    Dim i As Long
 
    Application.ScreenUpdating = False
    
    Range("A2:D" & Rows.Count).Sort Key1:=Range("B2"), Order1:=xlAscending, _
        Key2:=Range("C2"), Order2:=xlAscending
    
    For i = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
        If Cells(i - 1, "B") = Cells(i, "B") Then
            Rows(i).Delete Shift:=xlUp
        End If
    Next i
    
    Application.ScreenUpdating = True
        
End Sub

.

 

[ferits]

çok teşekkür ederim üstad tam istediğim gibi olmuş.