Solved: how can i change this code to identifiy the 2 digit no?

[rrosa1]

hi
how can i change this code to identify the 2 digit no

[vba]day1 = "1"
With ws1
For i = .Cells(.Rows.Count, 1).End(xlUp).Row To 8 Step -1
If InStr(1, .Cells(i, 2).Value, day1) = 1 Then
.Cells(i, 2).EntireRow.Delete

End If
Next i

End With[/vba]
this code work untill if the cell value is one digit but if it 11,12,13,14,15,16,17,18,19 than also it delete the row how can i change that not to delete those row?

[GTO]

hi
how can i change this code to identify the 2 digit no...

this code work untill if the cell value is one digit but if it 11,12,13,14,15,16,17,18,19 than also it delete the row how can i change that not to delete those row?

This seems confusing. Until/if woulld seem to be opposite, you start by askking to identify 'the 2 digit no', but then say you do not want to delete these rows.

How about giving us some sample data of what we are likely to encounter in the cells, and which would be deleted and which not?

Mark

[rrosa1]

i have following value in column B
Days
1 <- i want to delete this row
2
4
3
1 <-this row
5
2
6
1 <-this row
19
1 <-and this row

not the 19 row but it delete 19 row also i hope i am explain that can be understandable
thanks for help.

[Tinbendr]

how about [VBA]With ws1
For i = .Cells(.Rows.Count, 1).End(xlUp).Row To 8 Step -1
If Len(.Cells(i, 2).Value) = 1 Then
If InStr(1, .Cells(i, 2).Value, day1) = 1 Then
.Cells(i, 2).EntireRow.Delete
End If
End If
Next i
End With[/VBA]

[Bob Phillips]

Why not just use

[vba]

With ws1
For i = .Cells(.Rows.Count, 1).End(xlUp).Row To 8 Step -1
If .Cells(i, 2).Value = 1 Then
.Rows(i).Delete

End If
Next i

End With
[/vba]

[rrosa1]

thanks for help
Tinbender and XLD
it work great