Find part of string & delete row

[Les Stout]

Hi all, use the code below to find "Total" to delete the row, Total is
part of the string & i am not sure how to change the code to find
"Total" even if it is part of a string ?

Sub DeleteTotalSuppSAP()
'
'
Dim i As Long
Dim iLastRow As Long

iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = iLastRow To 1 Step -1
If InStr(1, Cells(i, "G").Value, "total", vbTextCompare) Then
Rows(i).Delete
End If
Next i
End Sub

Les Stout

*** Sent via Developersdex http://www.developersdex.com ***

 

[Tom Ogilvy]

You code you show identifies cells in column G that contain the substring
total in any case (upper, lower, mixed).

so your code doesn't need to be changed.

 

[Les Stout]

Hi Tom, i have tried it again and cell G11827 has the string "Total due
to supplier" in it, so i want it to delete this row, but it does not ?

Les Stout

*** Sent via Developersdex http://www.developersdex.com ***

 

[Dave Peterson]

Maybe you shouldn't be basing the lastrow on column A:

iLastRow = Cells(Rows.Count, "A").End(xlUp).Row

maybe...

iLastRow = Cells(Rows.Count, "G").End(xlUp).Row

If column A ended in row 11, you'd only be looking at rows 1:11.

 

[Les Stout]

Thant did the trick, thanks Dave

Les Stout

*** Sent via Developersdex http://www.developersdex.com ***