Delete Entire Row Based on a "Greater Than" Number

[Bobaree]

I have found examples of how to delete a row based on text in a row, but I'm looking for VBA code that will identify rows with a integer that is >5 and then delete the entire row. Suggestions would be greatly appreciated.

 

[Andrew Poulsom]

Like this?

If ActiveCell.Value > 5 Then

 

[Bobaree]

Do I replace "ActiveCell" with the column identifier (C column for example)? The column wiill be variable in length (last row).

 

[Andrew Poulsom]

Maybe this will help you:

Sub Test()
    Dim LR As Long
    Dim r As Long
    With ActiveSheet
        LR = .Range("C" & .Rows.Count).End(xlUp).Row
        For r = LR To 2 Step -1
            With .Range("C" & r)
                If .Value > 5 Then
                    .EntireRow.Delete
                End If
            End With
        Next r
    End With
End Sub

AutoFilter is another possibility and may be considerably quicker depending on the number of rows of data.

 

[Bobaree]

Beautiful. Thank you so much.