First 3 criteria work but not the 4th, which is looking cells in column "J"
with all start of "HG", anybody can help please?

Sub Macro1()
Dim i As Long, LastRow As Long
Application.ScreenUpdating = False
LastRow = Range("A" & Rows.Count).End(xlUp).Row
For i = LastRow To 2 Step -1
If Cells(i, "I") = "" Or Cells(i, "J") = "sss" Or Cells(i, "J") =
"ccccc" Or Cells(i, "J") = "//" Or Cells(i, "J") = "HG*" Then
Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True
End Sub

Change = to Like if using wild cards.

Cells(i, "J") Like "HG*" Then

Also note that due to case sensitive in the comparison with = etc you might
have to convert the value to uppercase or lower case for the purpose of the
comparison like the following.

UCase(Cells(i, "J")) Like "HG*" Then


--
Regards,

OssieMac


"Seeker" wrote:

> First 3 criteria work but not the 4th, which is looking cells in column "J"
> with all start of "HG", anybody can help please?
>
> Sub Macro1()
> Dim i As Long, LastRow As Long
> Application.ScreenUpdating = False
> LastRow = Range("A" & Rows.Count).End(xlUp).Row
> For i = LastRow To 2 Step -1
> If Cells(i, "I") = "" Or Cells(i, "J") = "sss" Or Cells(i, "J") =
> "ccccc" Or Cells(i, "J") = "//" Or Cells(i, "J") = "HG*" Then
> Rows(i).Delete
> End If
> Next i
> Application.ScreenUpdating = True
> End Sub
>

> UCase(Cells(i, "J")) Like "HG*" Then

Or, alternately, use this Like operator pattern method...

Cells(i, "J") Like "[Hh][Gg]*" Then

--
Rick (MVP - Excel)


"OssieMac" <(E-Mail Removed)> wrote in message
news:191E28C1-1E58-4D81-B596-(E-Mail Removed)...
>
> Change = to Like if using wild cards.
>
> Cells(i, "J") Like "HG*" Then
>
> Also note that due to case sensitive in the comparison with = etc you
> might
> have to convert the value to uppercase or lower case for the purpose of
> the
> comparison like the following.
>
> UCase(Cells(i, "J")) Like "HG*" Then
>
>
> --
> Regards,
>
> OssieMac
>
>
> "Seeker" wrote:
>
>> First 3 criteria work but not the 4th, which is looking cells in column
>> "J"
>> with all start of "HG", anybody can help please?
>>
>> Sub Macro1()
>> Dim i As Long, LastRow As Long
>> Application.ScreenUpdating = False
>> LastRow = Range("A" & Rows.Count).End(xlUp).Row
>> For i = LastRow To 2 Step -1
>> If Cells(i, "I") = "" Or Cells(i, "J") = "sss" Or Cells(i, "J") =
>> "ccccc" Or Cells(i, "J") = "//" Or Cells(i, "J") = "HG*" Then
>> Rows(i).Delete
>> End If
>> Next i
>> Application.ScreenUpdating = True
>> End Sub
>>

Tks vm Qssie, it works.

"OssieMac" wrote:

>
> Change = to Like if using wild cards.
>
> Cells(i, "J") Like "HG*" Then
>
> Also note that due to case sensitive in the comparison with = etc you might
> have to convert the value to uppercase or lower case for the purpose of the
> comparison like the following.
>
> UCase(Cells(i, "J")) Like "HG*" Then
>
>
> --
> Regards,
>
> OssieMac
>
>
> "Seeker" wrote:
>
> > First 3 criteria work but not the 4th, which is looking cells in column "J"
> > with all start of "HG", anybody can help please?
> >
> > Sub Macro1()
> > Dim i As Long, LastRow As Long
> > Application.ScreenUpdating = False
> > LastRow = Range("A" & Rows.Count).End(xlUp).Row
> > For i = LastRow To 2 Step -1
> > If Cells(i, "I") = "" Or Cells(i, "J") = "sss" Or Cells(i, "J") =
> > "ccccc" Or Cells(i, "J") = "//" Or Cells(i, "J") = "HG*" Then
> > Rows(i).Delete
> > End If
> > Next i
> > Application.ScreenUpdating = True
> > End Sub
> >