Deleting Rows based on Value of Column

[UofA_Hogs]

Hello there,

This is my first post. I am pretty decent at excel but just beginning in writing VB Macros

I am trying to figure out how to write a script to delete entire rows based on a certain value in a column.


Any Help?

Thanks

 

[Marcelo Branco]

Hi,

Maybe this can help

http://www.rondebruin.nl/delete.htm

M.

 

[UofA_Hogs]

I am not sure why this is not working, I keep getting an error message for the following code:


Sub Delete_row_loop()
Dim Firstrow As Integer
Dim Lastrow As Integer
Dim Lrow As Integer

Sheets("Script").Select
Firstrow = 2
Lastrow = .Cells(.Rows.Count, "A").End(x1up).Row



For Lrow = Lastrow To Firstrow Step -1
With .Cells(Lrow, "D")
If Not IsError(.Value) Then
If .Value = "0" Then .EntireRow.Delete
End If
End With
Next Lrow
End Sub


The error message I keep getting is a Compile error: Invalid or unqualified reference.

Any information would be great.

 

[jim may]

On your line:

Lastrow = .Cells(.Rows.Count, "A").End(x1up).Row

remove both "."'s before the Cells( and Rows

 

[Marcelo Branco]

I think the problems are in

You must reference a sheet (not select) like

With Sheets("Script")
....
....
End with

End Sub


and in

End(x1Up)

try
End(xlUp)

xl not x1

HTH

M.