Help with error codes ... what am i missing???

[rhino4eva]

lastrow = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
For Count = 2 To lastrow
Range("$a$2:a" & lastrow).Find("Sample").EntireRow.Select
Selection.Delete Shift:=xlUp
Next Count
End Sub


I am trying to develop a module to scan thru sheet1 and delete every line where the word "Sample" occurs
I am using the lastrow technique because the length of the sheet is variable. But I get a runtime 91 error that states object variable or with block variable is not set
I don't know where to go with it ... any ideas will be gratefully received

 

[than_gold]

I think, you are getting error when you don't find the 'Sample'.
try this code instead of loop:

Sub test()With ActiveSheet
    .AutoFilterMode = False
    With Range("d1", Range("a" & Rows.count).End(xlUp))
        .AutoFilter 1, "*sample*"
        On Error Resume Next
        .Offset(1).SpecialCells(12).EntireRow.Delete
    End With
    .AutoFilterMode = False
End With
End Sub

 

[JazzSP8]

The Filter method does seem like it would work best in the case, but as an FYI for you - If you are using a loop to delete then you need to work backwards through it as the "lastrow" ceases to be which will cause an error.

To give an example of deleting rows with a loop then it needs to be something like;

Sub DeleteStuff()
lastrow = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row

For Count = lastrow To 1 Step -1

   If Cells(Count, "A").Value = "Sample" Then Rows(Count).Delete
     
Next i

End Sub