Excel: How do I Delete Rows on Two Conditions

[Cloggy42]

I am trying to delete rows that contain ZDEW in column H and do not start with W25G1 in column A. I used an asterik to show other letters/numbers may follow W25G1, but it's deleting all the ZDEW rows, including the ones that start with W25G1. Here is what I have. Where did I go wrong?

Sub DeleteZDEWs()
Dim iLastRow As Long
    Dim i As Long
    iLastRow = Cells(Rows.Count, "H").End(xlUp).Row
For i = iLastRow To 2 Step -1
        If Cells(i, "H").Value = "ZDEW" And Cells(i, "A").Value <> "W25G1*" Then
    Rows(i).Delete
    End If
Next i
    'deletes row when cell in Column H is a ZDEW and cell in Column A does not start with W25G1
End Sub

[TheSmileyCoder]

The asterisk cannot be used as a joker in that context. Instead you could use the leftfunction, that should suit your needs just fine.

[NeoPa]

First off, line #4 is unreliable. It should say :

iLastRow = Range("A1").SpecialCells(xlLastCell).Row

Lines #6 & #7 could be redone in either of two ways as :

1. If (Cells(i, "H") = "ZDEW") _
   And (Left(Cells(i, "A"), 5) <> "W25G1") Then Call Rows(i).Delete

2. If (Cells(i, "H") = "ZDEW") _
   And (Cells(i, "A") Not Like "W25G1*") Then Call Rows(i).Delete

[Cloggy42]

Thank ya'll so much! I am very new at this and don't know how to insert a function, so I couldn't test the Left function suggestion. However, the first option to fix lines 6 & 7 worked! (Also, I don't know how to add code tags.) A million thank yous!

[NeoPa]

You're welcome Cloggy :-)

In fact, the first option, the one you chose, is an example of using the Left() function. It really is as easy as that.

Cloggy42:
(Also, I don't know how to add code tags.)

Please visit [code] Tags Must be Used and Before Posting (VBA or SQL) Code. They will fill you in on that and other important points on how to deal with code here.