Delete row if cell is empty

Quote:

---

Originally Posted by Amanda1

Then, to everyone and bear in mind what I have just said about myself being brand new - in the script that I attempted, (pieced together from bits and some of my own additions), where did I go wrong & if you've got the patience to explain that will really be the icing on the cake for me!!:cloud9:


[VBA] With ActiveSheet
.DisplayPageBreaks = False
StartRow = 1
EndRow = 2000
For Lrow = EndRow To StartRow Step -1
If (.Cells(Lrow, "E").Value) Then .Rows(Lrow).Delete
Else
End If

[/VBA]

It will be obvious to all of you, but not to me. It can be my lesson for today.

---

[vba]
With ActiveSheet
.DisplayPageBreaks = False
StartRow = 1
EndRow = 5 '2000
For Lrow = EndRow To StartRow Step -1
If (.Cells(Lrow, "E").Value) <> "" Then
.Rows(Lrow).Delete
End If
Next Lrow
End With
[/vba]

Ah Ha

I thought there had to be an "Else" with an "If" and a "Then" - that obviously isn't true cause you don't have it in your script.

Thanks - owe you again.

Take care

Amanda

Quote:

---

Originally Posted by Amanda1

I thought there had to be an "Else" with an "If" and a "Then" - that obviously isn't true cause you don't have it in your script.

---

Not when there is not an else condition.

OK - I'm learning - thanks

Another question. In the script line
[VBA] If (.Cells(Lrow, "E").Value) <> "" Then
.Rows(Lrow).Delete
[/VBA]

How would I change the "" to be any number as a first entry in the cell ? e.g. if the cell started with 1, 2, 3,4 ,5 6, 7, 8, or 9, (Bearing in mind the number in the cell itself could be 34526 or similar, but it will obviously start with a 3).

I've been working on this and got myself into a real mess - I managed to delete every row of the worksheet, then I managed to just end up with only one row that started with a singular 1 - the fact there were probably about 1000 rows that all began with a 1 was besides the point, I lost all those and just kept the singular "1". Its probably dead easy, but I can't get it.

Thanks for your help

Cheers

Amanda:thinking:

[vba]
If Left(.Cells(Lrow, "E").Value, 1) = "1" Then
.Rows(Lrow).Delete
[/vba]

Hi

No, that isn't what I meant - What I need is <> 1 or<> 2 all the way up to 9. I've tried every permutation I can think of and none of them work for me. What is the correct way to do it

Thanks & after you tell me I will no doubt kick myself

Cheers Amanda