Spet se oglašam in prosim za pomoč. Na internetu sem našel naslednjo kodo
Koda: Izberi vse
Sub deleteABC()
Application.screenupdating = false
lastRow = ThisWorkbook.Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
For i = lastRow To 1 Step -1 'When deleting or inserting rows always work backwards.
If cells(i,2).value = "abc" or cells(i,2).value = "testing" then
rows(i).delete
End If
Next i
Application.screenupdating = true
End Sub
Koda: Izberi vse
Sub deleteABC()
Dim ws As Worksheet
For Each ws In Worksheets
Application.ScreenUpdating = False
LastRow = ws.Cells(ws.Rows.Count, 2).End(xlUp).row
For i = LastRow To 1 Step -1 'When deleting or inserting rows always work backwards.
If cells(i,2).value = "abc" or cells(i,2).value = "testing" then
rows(i).delete
End If
Next i
Next ws
Application.ScreenUpdating = True
End Sub
S spoštovanjem,
Drago