slet rækker hvis 4 af kolonnerne er tomme

Sub SletHvis()

Dim t, rk

Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell)).Select
rk = Selection.Rows.Count

Cells(1, 1).Select

For t = 1 To rk
If Cells(t, "M") <> "" And Cells(t, "O") <> "" And Cells(t, "K") <> "" Then Cells(t, 100) = 1
Next

Range("CV1:CV" & rk).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Range("CV1:CV" & rk) = "" ' hjælpekolonne (100)
ActiveCell.Select

End Sub

husk backup er en go ting :-)

With Range("A1:A20")
    rCount = .Rows.Count
    For r = rCount To 1 Step -1
        If .Cells(r, "M") = "" And .Cells(r, "O") = "" And .Cells(r, "K") = "" Then
            .Rows(r).EntireRow.Delete
        End If
    Next r
End With

fik løst det med sorter funktioner i excel, tjekker lige jeres løsninger ved lejlighed, tak for besvarelserne indtil videre :-)

Så skulle den virke - ignorer den første

Sub SletHvis()

Dim t, rk

Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell)).Select
rk = Selection.Rows.Count

Cells(1, 1).Select

For t = 1 To rk
If Cells(t, "M") = "" And Cells(t, "O") = "" And Cells(t, "K") = "" Then Cells(t, 100) = "" Else Cells(t, 100) = 1
Next

Range("CV1:CV" & rk).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Range("CV1:CV" & rk) = "" ' hjælpekolonne (100)
ActiveCell.Select

End Sub

Sub Slettomme()
'sletter tomme rækker
Application.ScreenUpdating = False
ActiveCell("k1").Select
ActiveCell.Select
Do
If ActiveCell.Value = "" _
And ActiveCell.Offset(0, 2).Value = "" _
And ActiveCell.Offset(0, 4).Value = "" _
Then

  ActiveCell.EntireRow.Delete
ActiveCell.Offset(1, 0).Activate
       
Else: ActiveCell.Offset(1, 0).Activate
End If
Loop Until ActiveCell.Row = 11876
Application.ScreenUpdating = True
End Sub

Judomads --> Hvorfor ligger du et svar, på et spm. der allerede er besvaret 3 gange?
iøvrig med en løsning der er langsommere og størrere!!

jeg får ikke tid til at tjekke løsninger forløbigt, men giver gerne point for løsningerne, kan være jeg bruger dem en dag hvor sorter funktionen ikke rækker langt nok. smid et svar den første med rigtig løsning

Jeg tillader mig at smide et svar