Macro to delete rows if they don't begin with "0"

[Guest]

Hi - and thanks for reading this.
I have a macro where I am trying to delete rows that don't begin with "0".
These are text cells (hence the apostrophes). The sample below deletes the
rows if they DO begin with "0" and I can't find out how to make it delete if
they DON'T being with "0". I've searched the group for ages - without
success. I've tried Not Like - but that doesn't work.
Thanks for your help (it's probably easy for you!)

Application.ScreenUpdating = False
For i = 90 To 3 Step -1
If Cells(i, 1).Value Like "0*" Then Rows(i).Delete
Next
Application.ScreenUpdating = True

 

[paul.robinson]

Hi
You could try

If left(Cells(i, 1).Value,1) ="0" Then Rows(i).Delete

regards
Paul

 

[Mike H]

Andy,

Try this

If Left(Cells(i, 1).Value, 1) = "o" Then Rows(i).Delete

Note this is case sensitive for a non case sensitive version use
If UCase(Left(Cells(i, 1).Value, 1)) = "O" Then Rows(i).Delete

Mike

 

[Guest]

Hi - and thanks!

I've modified it to <> "0" and that's great!

Cheers.

Hi
You could try

If left(Cells(i, 1).Value,1) ="0" Then Rows(i).Delete

regards
Paul

 

[mo_in_france]

Hi - and thanks for reading this.
I have a macro where I am trying to delete rows that don't begin with "0".
These are text cells (hence the apostrophes). The sample below deletes the
rows if they DO begin with "0" and I can't find out how to make it delete if
they DON'T being with "0". I've searched the group for ages - without
success. I've tried Not Like - but that doesn't work.
Thanks for your help (it's probably easy for you!)

Application.ScreenUpdating = False
  For i = 90 To 3 Step -1
    If Cells(i, 1).Value Like "0*" Then Rows(i).Delete
  Next
Application.ScreenUpdating = True

Do you really need a macro?

If you don't, then....

1) filter on the data such that the rows you don't want are visible
2) Select the visible rows
3) Delete the rows


Regards