VBA Q

[cfree36]

I am trying to delete all the rows with a 1 in a specified range

I was trying to use this code:

'    For Each c In Sheets("sheet1").Range("FILTERRANGE")
'        If c.Value = 1 Then
'        c.Select
'        Selection.EntireRow.Delete
'        End If
'    Next c

It runs but the rows with 1 in them do not delete?

I would appreciate any help here....

 

[Harvey]

If c.Value = "1" Then

could help if the values are text.
Another option is use val(c.value)to convert it to an integer.

Note also, that you are running your loop from top to bottom, which means that if any rows are actually deleted, it skips the row after every row deleted.

 

[texasalynn]

I tried and it works for me? Is there a named range area setup "FILTERRANGE"? Also is the 1 in a cell by itself? Because that is what this code is looking for

 

[cfree36]

there is a range named filterrange, each cell has either a 0 or a 1 based on an IF formula.

I very well could be skipping rows... how do I make the code run from bottom to top?

 

[Harvey]

    Dim i As Integer, j As Integer
    
    With Sheets("Sheet1").Range("test")
    For i = .Rows.Count - 1 To 0 Step -1
        For j = .Columns.Count - 1 To 0 Step -1
            If Val(Cells(.Row, .Column).Offset(i, j).Value) = 1 Then
                Cells(.Row, .Column).Offset(i, j).EntireRow.Delete
            End If
        Next j
    Next i
    End With

 

[cfree36]

THANKS.
When I get a second I'll give that a try as well.
Sorry for the delayed thanks... it's been crazy at work this week!

THANKS AGAIN!