Je wilt rijen verwijderen waarvan de kolommen B, C én D géén gegevens bevatten.
De volgende code zorgt daarvoor. In dit voorbeeld worden alleen de rijen 3 en 7 verwijderd want die bevatten in én kolom B én C én D geen gegevens.
Sub Verwijder_Rijen_Indien_Geen_Waarde_In_Kolommen_B_C_D()
Dim Laatste_Rij As Long
Laatste_Rij = Cells(Rows.Count, "A").End(xlUp).Row
Range("B1:B" & Laatste_Rij) = Evaluate(Replace _
("IF(B1:B@&C1:C@&D1:D@="""",""#N/A"",IF(B1:B@="""","""",B1:B@))", "@", Laatste_Rij))
On Error Resume Next
Columns("B").SpecialCells(xlConstants, xlErrors).EntireRow.Delete
If Err.Number = 1004 Then
MsgBox "Er zijn geen rijen gevonden" & Chr(13) _
& "die aan de criteria voldoen!"
End If
On Error GoTo 0
Err.Clear
End Sub