call2shree
New Member
Hi Experts
When I run the below code found the error as "object doesn't support this property or method"
From RAW data sheet , column A contains 12121 move to 12121 sheet.
please help
When I run the below code found the error as "object doesn't support this property or method"
From RAW data sheet , column A contains 12121 move to 12121 sheet.
please help
Code:
Sub cureent()
a = Worksheets("RAW").Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To a
If Worksheets("RAW").Cells(i, 1).Value = "12121" Then
Worksheets("RAW").Row(i).Copy
Worksheets("12121").Activate
b = Worksheets("12121").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("12121").Cells(b + 1, 1).Select
activatesheet.Paste
Worksheets("12121").Activate
End If
Next
Application.CutCopyMode = False
ThisWorkbook.Worksheets("12121").Cells(1, i).Select
End Sub
Last edited by a moderator: