VBA using Excel (If Statement) please help!!!

[aordoqui]

I need help

I am trying to make an if statment that deletes the entire row if a cell's value in that row is less than 100.

Example: I have a list of people with all sorts of information on them in separate columns, age is one of the columns. I want to delete the person or row if that person is, lets say, under the age of 100.

 

[johnwm]

Put a command button on the sheet and use something like:

Private Sub CommandButton1_Click()
Dim myrange As Range
Dim myrange2 As Range
Dim rowcounter As Long
Set myrange = Worksheets("Sheet1&quot.Range("A1:c100&quot
For rowcounter = 100 To 1 Step -1
If myrange.Cells(rowcounter, 2).Value > 50 Then
Set myrange2 = myrange.EntireRow(rowcounter)
myrange2.Delete
End If
Next
End Sub

Where the 2 is the column you are testing

 

[johnwm]

aordoqui,

Did it work OK for you?