Vipin Aeri
Member
Hallo all, I am stuck at one point. as I am unable to write a macro to copy my filtered data to another sheet in the same workbook.
I tried the following Macro but it works only when I have other filtered data. you can see it in my macro too. But when I re filtered the same data for another creiteria.
Then it doesnot work. Please help me and let me know where I am making a mistake. my code is :
>>> use code - tags <<<
I tried the following Macro but it works only when I have other filtered data. you can see it in my macro too. But when I re filtered the same data for another creiteria.
Then it doesnot work. Please help me and let me know where I am making a mistake. my code is :
>>> use code - tags <<<
Code:
Sub MoveData()
Dim a, Lr&
With Sheets("WORKSHEET")
Lr = .Range("A" & Rows.Count).End(3).Row
a = .Range("A6:G" & Lr)
End With
With Sheets("STOCK TRACKING TEMPLATE")
Lr = .Range("E" & Rows.Count).End(3).Row
.[E1:I1].Offset(Lr).Resize(UBound(a)) = Application.Index(a, Evaluate("row(1:" & UBound(a) & ")"), Array(1, 2, 3, 6, 5))
End With
End Sub
Attachments
Last edited by a moderator: