Using New VBA code

K

Kris

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?
 
L

Luke M

You have some extra spaces before the command 'entire row.delete'. Should be:

Selection.EntireRow.SpecialCells(xlBlanks).EntireRow.Delete
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

HELP - Running Macros in VBA 7
Copy rows from one worksheet automatically, ignore rows that are b 2
delete blank rows with functions 1
delete empty rows in workbook 1
Delete All Blank Rows--A plea for help 6
VBA set thick borders around non empty cells in range 0
Fails to delete empty rows 4
delete row formula changes array range on related sheet 8

Top