Makro ile satır silme

[acetinnster]

Arkadaşlar şartı bağlı satır silme ilgili yardım edebilirmisiniz
Ek te dosya da detaylar mevcuttur.
Şimdiden herkese teşekkürler

 

[YUSUF44]

Dosyada mevcut düğme için aşağıdaki kodları deneyiniz:

Private Sub CommandButton1_Click()
son = Cells(Rows.Count, "C").End(3).Row
For i = son To 2 Step -1
    If Cells(i, "C") & ".xlsm" <> ActiveWorkbook.Name Then
        Rows(i).Delete
    End If
Next
End Sub

 

[acetinnster]

Sayın YUSUF44 hocam çok sağolun ellerinize sağlık Allah razı olsun