Clearing entire row contents if cell is empty in a particular column

[sgk18]

Hi there,

Im sure there is a simple macro to do this but I have tried doing it myself without asking for advice and its not working.

I want to be able to clear the contents of whole rows where cells in column F are empty. Heres my latest attempt that doesnt work (Im sure Im way off)

Please Login or Register  to view this content.

Any advice would be great, cheers

[jraj1106]

Hi..

You mean that you want to delete the entire row if col F is empty... right?

[sgk18]

Hi jraj1106,

Yeah thats right if a cell is empty in column F then delete the entire row that cell is in, without shifting rows up

Cheers

[jraj1106]

I m back... U can try this code.

Sub DELETEROW()
Dim rcnt As Variant

rcnt = 1

Do While Range("A" & rcnt).Value <> ""
If Range("F" & rcnt).Value = "" Then
Rows(rcnt & ":" & rcnt).Delete
End If
rcnt = rcnt + 1
Loop
End Sub

Regards...