Delete Row

[drums4monty]

Hi

I want to check a worksheet where column C has figures entered. How do I check this column and if it is blank or has a 0 (zero) entered in it, the row is deleted. The range is A9:E119 for the whole work sheet and the Column range is C9:C119.

I have tried to write it mylef but I just dont know enough yet.

[Simon Lloyd]

Hi just add a module and paste this in, you can either run it via a command button or give it a keyboard shortcut

Please Login or Register  to view this content.

Regards,
Simon

[drums4monty]

Hi Simon

Many thanks for the help, when I run the code I get this error:

Delete method of Range class failed

and when I press debug it highlights this line:

MyCell.EntireRow.Delete

Regards

Alan

[Raiby]

Hi Alan

And what do you think of this?

Sub Delete()
For i = 9 To 119
For j = 3 To 3
If Cells(i, j) = "0" Or Cells(i, j) = "" Then
Rows(i).Delete
End If
Next j
Next i
End Sub

[drums4monty]

Hi Raiby

Thanks for the code, I cannot get it to work.

Alan

[Raiby]

Hi Alan

Did you see my correction?

[Simon Lloyd]

DrumsforMonty, i'm no expert and my code worked for me but there is a flaw, as it looks from the top down if it comes across 2 blanks in a row it will only see them as one, so i posted my answer to another forum (full of experienced guys) and i got a lesson aswell as a couple of solutions here's the thread http://vbaexpress.com/forum/showthre...9882#post79882 MDmackillop probably has the solution closest to what you need.

Regards,
Simon

[drums4monty]

Hi Simon, thanks for that, I have joined that forum.

[drums4monty]

Hi Raiby

Sorry I didnt see a correction.

Alan

[Raiby]

Hi Alan

In fact I forgot this piece of code:
Or Cells(i, j) = "" for the blanks

But i suppose that it doesn't change your problem.It's strange. The code works for me.