Deleting multiple rows based on different criteria VBA

[simora33]

Hi,

I am trying to create a macro that will delete multiple rows at once, based on different criteria. The rows need to be selected first and deleted simultaneously. My code seems to "forget" the first selection and only delete the rows from the last if-statement. Any help would be greatly appreciated. Here is what I have tried:

If condition1 = 0 Then
    Sheets("Sheet1").Select
    Range("1:1,2:2,4:4").Select
    Range("A4").Activate
        
    End If
    
If condition2 = 0 Then
    Sheets("Sheet1").Select
    Range("5:5,6:6,8:8").Select
    Range("A8").Activate
        
    End If
    
    Selection.Delete Shift:=xlUp
    
End Sub

 

[JackDanIce]

Welcome to the board. It's not clear what the condition is, relative to row being deleted, i.e. why delete rows 1, 2 and 4 if condition1 = 0 and rows 5, 6, 8 if condition2 = 0.

The rows deleted seem to be of a similar pattern, e.g. x, x + 1, x + 3

Without benefit of seeing the worksheet you can see in front of you, can you provide more clarity (imagine you're explaining the problem to someone who is blind) or post the full macro you have?

I suspect you've tried to record a macro as you do not need to use .Select in manipulating objects so providing more information will help.

 

[footoo]

Dim rng As Range
Sheets("Sheet1").Select
If condition1 = 0 Then Set rng = Range("1:2,4:4")
If condition2 = 0 Then
    If rng Is Nothing Then
        Set rng = Range("5:6,8:8")
    Else
        Set rng = Union(rng, Range("5:6,8:8"))
    End If
End If
rng.Delete

 

[simora33]

That is EXACTLY what I was trying to do - worked perfectly

Thank you so much!!