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 ??
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 ??