Hi all,
I have a macro that copies a complete row (in this case row 2) and past it in a new row below the selected cell.
I've tried to move the row that i want to copy to a different tab but i didnt succeed.
So for example i want to have the information i want to copy in row 1 in tab X
copied to the row below a selected cell in tab Y
Can someone help? Thanks!!
Sub Rij_Invoegen()
Dim xlCalc As XlCalculation
With Application
.ScreenUpdating = False
xlCalc = .Calculation
.Calculation = xlCalculationManual
.EnableEvents = False
.DisplayAlerts = False
End With
Rows(2).Copy
Rows(ActiveCell.Row).Offset(1).Insert
Rows.Copy
ActiveCell.Offset(1, 0).Select
ActiveCell.EntireRow.Hidden = False
With Application
.ScreenUpdating = True
.EnableEvents = True
.DisplayAlerts = True
.Calculation = xlCalc
.CutCopyMode = False
End With
End Sub
Bookmarks