VBA - Using asterisks when searching for number

[aggelognc]

hello!
I have a column of numbers in the form of 70.00.01.0024, 70.00.01.0013, 71.00.00.0013, 71.00.00.0024, etc. What im trying to do is, find the cells and cut the rows that they are at (e.g. B1:B4).

I tried doing that searching 70.**.**.**24 but doesn't work.

here's what I have so far



Sub Κουμπί1_Κλικ()


a = ActiveWorkbook.ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row


MsgBox (a)


For i = 1 To a


If Worksheets("CQ").Cells(i, 2).Value = "70.**.**.**24" Then


Worksheets("CQ").Rows(i).Cut
Worksheets("TQ").Activate
b = Worksheets("TQ").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("TQ").Cells(b + 1, 1).Select
ActiveSheet.Paste

End If


Next


Application.CutCopyMode = True
Worksheets("CQ").Select


End Sub


Any ideas ??

 

[mole999]

> http://www.exceluser.com/excel_help/functions/guide-to-excel-wildcards.htm

 

[Rick Rothstein]

hello!
I have a column of numbers in the form of 70.00.01.0024, 70.00.01.0013, 71.00.00.0013, 71.00.00.0024, etc. What im trying to do is, find the cells and cut the rows that they are at (e.g. B1:B4).

I tried doing that searching 70.**.**.**24 but doesn't work.

here's what I have so far

Sub Κουμπί1_Κλικ()

a = ActiveWorkbook.ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

MsgBox (a)

For i = 1 To a

  [B][COLOR="#FF0000"]If Worksheets("CQ").Cells(i, 2).Value = "70.**.**.**24" Then[/COLOR][/B]

{{{snip}}}

Any ideas ??

Try changing the red highlighted line of code to this...

If Worksheets("CQ").Cells(i, 2).Value Like "##.##.##.####" Then

 

[aggelognc]

Try changing the red highlighted line of code to this...

If Worksheets("CQ").Cells(i, 2).Value Like "##.##.##.####" Then

Thank you Mr. Rothstein! worked perfectly!