Delete row problem


S

Seeker

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
 
Ad

Advertisements

O

OssieMac

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
 
R

Rick Rothstein

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

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

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

Advertisements

S

Seeker

Tks vm Qssie, it works.

OssieMac said:
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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top