Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Using New VBA code
I am trying to set up a macro to delete rows if some of the columns in the
row do not contain data. here is the code that I am using: Sub DeleteBlankRows2() 'Deletes the entire row within the selection if _ some of the cells WITHIN THE SELECTION contain no data. On Error Resume Next Selection.EntireRow.SpecialCells(xlBlanks) . EntireRow.Delete On Error GoTo 0 End Sub The columns have pick lists build in some, but if I leave the pick list blank I want it to delete the entire row. When I run the macro I get a Syntax Error that says something is not set up right. Can anyone help me? |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Using New VBA code
You have some extra spaces before the command 'entire row.delete'. Should be:
Selection.EntireRow.SpecialCells(xlBlanks).EntireR ow.Delete -- Best Regards, Luke M *Remember to click "yes" if this post helped you!* "Kris" wrote: I am trying to set up a macro to delete rows if some of the columns in the row do not contain data. here is the code that I am using: Sub DeleteBlankRows2() 'Deletes the entire row within the selection if _ some of the cells WITHIN THE SELECTION contain no data. On Error Resume Next Selection.EntireRow.SpecialCells(xlBlanks) . EntireRow.Delete On Error GoTo 0 End Sub The columns have pick lists build in some, but if I leave the pick list blank I want it to delete the entire row. When I run the macro I get a Syntax Error that says something is not set up right. Can anyone help me? |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Using New VBA code
Look out with this
See this page http://www.rondebruin.nl/specialcells.htm -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Luke M" wrote in message ... You have some extra spaces before the command 'entire row.delete'. Should be: Selection.EntireRow.SpecialCells(xlBlanks).EntireR ow.Delete -- Best Regards, Luke M *Remember to click "yes" if this post helped you!* "Kris" wrote: I am trying to set up a macro to delete rows if some of the columns in the row do not contain data. here is the code that I am using: Sub DeleteBlankRows2() 'Deletes the entire row within the selection if _ some of the cells WITHIN THE SELECTION contain no data. On Error Resume Next Selection.EntireRow.SpecialCells(xlBlanks) . EntireRow.Delete On Error GoTo 0 End Sub The columns have pick lists build in some, but if I leave the pick list blank I want it to delete the entire row. When I run the macro I get a Syntax Error that says something is not set up right. Can anyone help me? |
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Using New VBA code
Why are you RE-posting the same question?
-- Don Guillett Microsoft MVP Excel SalesAid Software "Kris" wrote in message ... I am trying to set up a macro to delete rows if some of the columns in the row do not contain data. here is the code that I am using: Sub DeleteBlankRows2() 'Deletes the entire row within the selection if _ some of the cells WITHIN THE SELECTION contain no data. On Error Resume Next Selection.EntireRow.SpecialCells(xlBlanks) . EntireRow.Delete On Error GoTo 0 End Sub The columns have pick lists build in some, but if I leave the pick list blank I want it to delete the entire row. When I run the macro I get a Syntax Error that says something is not set up right. Can anyone help me? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Drop Down/List w/Code and Definition, only code entered when selec | Excel Worksheet Functions | |||
Code to find code | Excel Discussion (Misc queries) | |||
Convert a Number Code to a Text Code | Excel Discussion (Misc queries) | |||
Unprotect Code Module in Code | Excel Discussion (Misc queries) | |||
copying vba code to a standard code module | Excel Discussion (Misc queries) |