Macro to Delete rows on a criteria
 

I have macro code to hide rows based on a certain critera but I don't
know how to adapt the code to delete the rows. Basically it checks a
column and for every row <0 it hides it. Problem is I want to delete
the row. How do i change the code below to delete?


BeginRow = 2
EndRow = 500
ChkCol = 13

For RowCnt = BeginRow To EndRow
If Cells(RowCnt, ChkCol).Value < 1 Then
Cells(RowCnt, ChkCol).EntireRow.Hidden = True
End If
Next RowCnt

Macro to Delete rows on a criteria
 

Try changing this line
Cells(RowCnt, ChkCol).EntireRow.Hidden = True
to this:
Cells(RowCnt, ChkCol).EntireRow.Delete


--
-John
Please rate when your question is answered to help us and others know what
is helpful.


" wrote:

I have macro code to hide rows based on a certain critera but I don't
know how to adapt the code to delete the rows. Basically it checks a
column and for every row <0 it hides it. Problem is I want to delete
the row. How do i change the code below to delete?


BeginRow = 2
EndRow = 500
ChkCol = 13

For RowCnt = BeginRow To EndRow
If Cells(RowCnt, ChkCol).Value < 1 Then
Cells(RowCnt, ChkCol).EntireRow.Hidden = True
End If
Next RowCnt

Macro to Delete rows on a criteria
 

For the OP

If you want to delete rows loop backwords
See this page for examples
http://www.rondebruin.nl/delete.htm


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"John Bundy" (remove) wrote in message ...
Try changing this line
Cells(RowCnt, ChkCol).EntireRow.Hidden = True
to this:
Cells(RowCnt, ChkCol).EntireRow.Delete


--
-John
Please rate when your question is answered to help us and others know what
is helpful.


" wrote:

I have macro code to hide rows based on a certain critera but I don't
know how to adapt the code to delete the rows. Basically it checks a
column and for every row <0 it hides it. Problem is I want to delete
the row. How do i change the code below to delete?


BeginRow = 2
EndRow = 500
ChkCol = 13

For RowCnt = BeginRow To EndRow
If Cells(RowCnt, ChkCol).Value < 1 Then
Cells(RowCnt, ChkCol).EntireRow.Hidden = True
End If
Next RowCnt