Delete Row if Cell value Starts with...

[programsam]

Gang, LR returns 0 Value... sure it's an easy fix. What am I doing wrong?

Sub freshList2()With Sheets("sL")


Dim LR As Long


LR = Range("A" & .Rows.Count).End(xlUp).Row


    For i = 1 To LR Step -1
        If Left(Range("A" & i).Value, 1) <> "1*" Then
            .Rows(i).EntireRow.Delete
        End If
    Next i




End With






End Sub

 

[Michael M]

Try using

LR = cells(rows.count,"A").end(xlup).row

 

[MARK858]

The below works for me...

Sub freshList2()
    With Sheets("sL")

        Dim LR As Long, i As Long
        LR = .Range("A" & .Rows.Count).End(xlUp).Row


        For i = LR To 2 Step -1
            If Left(.Range("A" & i).Value, 1) <> 1 Then
                .Rows(i).Delete
            End If
        Next i

    End With

End Sub

 

[Rick Rothstein]

Gang, LR returns 0 Value... sure it's an easy fix. What am I doing wrong?

LR = Range("A" & .Rows.Count).End(xlUp).Row

Remove the dot in front of the Rows keyword (you do not have With statement for that dot to refer back to).

 

[MARK858]

Remove the dot in front of the Rows keyword (you do not have With statement for that dot to refer back to).

The OP has a With statement, it is just the board is displaying it bad and is on the Sub line.

 

[Rick Rothstein]

The OP has a With statement, it is just the board is displaying it bad and is on the Sub line.

I missed that

 

[MARK858]

I think the OP had it wrong in their statement

LR returns 0 Value

I think it is the i that was returning 0 because they had the LR and the i the wrong way around in

For i = 1 To LR Step -1

so it was doing a -1 step from 1 to 0.