Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Formula/Macro to delete rows that do not meet criteria from a list? | Excel Worksheet Functions | |||
Macro, delete rows that meet criteria | Excel Programming | |||
Delete rows with different criteria | Excel Programming | |||
Cut and Paste macro based on criteria then delete empty rows | Excel Programming | |||
Delete rows w/o criteria | Excel Programming |