Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete row problem
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete row problem
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete row problem
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" wrote in message ... 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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete row problem
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Delete Picture VBA If Then Problem | Excel Programming | |||
Delete row problem, could some help me on that? | Excel Programming | |||
Delete problem | New Users to Excel | |||
Delete Sheets Problem | Excel Programming | |||
Name Delete Problem Again | Excel Programming |