Delete rows if cell is blank on a specific range.

[p9j123]

Hi Excel Gurus,

Can someone help me with a macro that will delete entire row if Cell on Column D is blank.

[Col D] [Col E] [Col F]

Row 12	Row 12	Row 12
Row 13	Row 13	Row 13
Row 14		Row 14
Row 15		Row 15
Row 16		Row 16
Row 17	Row 17	Row 17
	Row 18	Row 18
Row 19	Row 19
	Row 20
Row 21	Row 21
Row 22	Row 22	Row 22
Row 23	Row 23	Row 23
	Row 24	Row 24
	Row 25	Row 25
	Row 26	Row 26
Row 27	Row 27	Row 27
Row 28	Row 28
Row 29		Row 29
Row 30	Row 30	Row 30

<colgroup><col width="64" span="3" style="width:48pt"> </colgroup><tbody>
</tbody>

The macro should only read starting row 12 to row 20 only. Any blank cell on Column D beyond row 20 will be ignored.

In the illustration above, the macro should only delete rows 18 and 20

 

[hiker95]

p9j123,

Please TEST this FIRST in a COPY of your workbook (always make a backup copy before trying new code, you never know what you might lose).

1. Copy the below code
2. Open your NEW workbook
3. Press the keys ALT + F11 to open the Visual Basic Editor
4. Press the keys ALT + I to activate the Insert menu
5. Press M to insert a Standard Module
6. Where the cursor is flashing, paste the code
7. Press the keys ALT + Q to exit the Editor, and return to Excel
8. To run the macro from Excel press ALT + F8 to display the Run Macro Dialog. Double Click the macro's name to Run it.

Sub DeleteBlankRows_D12_D20()
' hiker95, 04/19/2014, ME772227
On Error Resume Next
Range("D12:D20").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0
End Sub

Before you use the macro with Excel 2007 or newer, save your workbook, Save As, a macro enabled workbook with the file extension .xlsm

Then run the DeleteBlankRows_D12_D20 macro.

 

[Sahak]

Hi,

Try:

Sub Macro1()
    Range("D12:D20").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

 

[p9j123]

Thank you Both.

 

[hiker95]

p9j123,

You are very welcome. Glad we could help.

And, come back anytime.