Macro (Delete Entire row Cell in column R is empty)

**andrewvt** · 12-20-2011, 05:58 AM

Can someone please help me with code in VB (Marco) to delete entire row when cell in column R is empty

Please look at example

Capture.jpg

Andrew

**arlu1201** · 12-20-2011, 06:03 AM

Any reason why you have highlighted cells in column AR in yellow?

**jeskit** · 12-20-2011, 06:08 AM

You could do a For Loop. You could write it so it says:

Please Login or Register  to view this content.

**andrewvt** · 12-20-2011, 06:31 AM

Conditional formatting makes it yellow. No other reason

**andrewvt** · 12-20-2011, 06:31 AM

Code doesn't work. I'm new to VB so please help

**jeskit** · 12-20-2011, 06:38 AM

Sorry that was example Try

Please Login or Register  to view this content.

**andrewvt** · 12-20-2011, 07:06 AM

Hi Jeskit

It worked but I have to run it a couple of times before it completely remove all lines

I have it as follows

Sub Delete_Row()

Dim cell As Range

For Each cell In Range("Quotation!R21:Quotation!R105")
If cell.Value = " " Then 'if you want this to look for cell which have no values at all put if cell.value = ""
cell.EntireRow.Delete
End If
Next cell

End Sub