I have a workbook with data in columns A:N and I need to be able to
delete any blank part rows in columns A:G without disturbing the data in
columns H:N.
How do I delete ranges, eg A12:G12 where A12 is blank, without deleting
the remaining part of the row - H12 onwards?
I know how to delete individual blank cells or entire rows where a cell
is blank but not part rows.
Grateful for any suggestions.
--
Robert

Range("A12:G12").Delete Shift:=xlShiftup


--
Regards,
Tom Ogilvy


Robert wrote in message ...
I have a workbook with data in columns A:N and I need to be able to
delete any blank part rows in columns A:G without disturbing the data in
columns H:N.
How do I delete ranges, eg A12:G12 where A12 is blank, without deleting
the remaining part of the row - H12 onwards?
I know how to delete individual blank cells or entire rows where a cell
is blank but not part rows.
Grateful for any suggestions.
--
Robert

My original query was not clear - I want to delete all part rows in
columns A:N where the cell in column A is blank without selecting each
part row individually. The following will delete complete rows;
Range("A3:N1000").Select
Selection.SpecialCells(xlCellTypeBlanks).EntireRow .Delete
but I don't know how to restrict the deletions to columns A:N.

Robert

In message , Tom Ogilvy
writes
Range("A12:G12").Delete Shift:=xlShiftup


--
Regards,
Tom Ogilvy


Robert wrote in message ...
I have a workbook with data in columns A:N and I need to be able to
delete any blank part rows in columns A:G without disturbing the data in
columns H:N.
How do I delete ranges, eg A12:G12 where A12 is blank, without deleting
the remaining part of the row - H12 onwards?
I know how to delete individual blank cells or entire rows where a cell
is blank but not part rows.
Grateful for any suggestions.
--
Robert

Many thanks

Robert

In message , Tom Ogilvy
writes
Your original query was clear and I answered the question you asked. If
your question now is how to implement this for the range

Sub DeleteRows()
Range("A3:N30").Select
Selection.SpecialCells(xlCellTypeBlanks) _
.EntireRow.Select
Intersect(Selection, Columns("A:N")).Select
Selection.Delete shift:=xlShiftUp
End Sub

Gets the job done.

--
Regards,
Tom Ogilvy

Robert wrote in message ...
My original query was not clear - I want to delete all part rows in
columns A:N where the cell in column A is blank without selecting each
part row individually. The following will delete complete rows;
Range("A3:N1000").Select
Selection.SpecialCells(xlCellTypeBlanks).EntireRow .Delete
but I don't know how to restrict the deletions to columns A:N.

Robert

In message , Tom Ogilvy
writes
Range("A12:G12").Delete Shift:=xlShiftup


--
Regards,
Tom Ogilvy


Robert wrote in message
...
I have a workbook with data in columns A:N and I need to be able to
delete any blank part rows in columns A:G without disturbing the data
in
columns H:N.
How do I delete ranges, eg A12:G12 where A12 is blank, without deleting
the remaining part of the row - H12 onwards?
I know how to delete individual blank cells or entire rows where a cell
is blank but not part rows.
Grateful for any suggestions.
--
Robert