Aziz_SA
11-29-2022, 10:42 AM
Hi !
I hope you are doing great !
I'm a beginner in the VBA programming , and while I'm trying use the following macro to consolidate data, i face some errors.
if any one kindly can check the following for me and guide me if there are any errors to be resolved , this would be really highly appreciated!!
thank you in advance!! :yes
consolidate Macro
ActiveCell.Offset(-12, -4).Range("A1").Select
Selection.CurrentRegion.Select
Selection.Copy
Sheets("Sheet1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 3).Columns("A:D").EntireColumn.Select
Application.CutCopyMode = False
Selection.Copy
ActiveCell.Offset(0, -2).Range("A1").Select
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False
ActiveCell.Offset(0, 4).Columns("A:F").EntireColumn.Select
Selection.Delete Shift:=xlToLeft
ActiveCell.Offset(0, -5).Range("A1").Select
End Sub
I hope you are doing great !
I'm a beginner in the VBA programming , and while I'm trying use the following macro to consolidate data, i face some errors.
if any one kindly can check the following for me and guide me if there are any errors to be resolved , this would be really highly appreciated!!
thank you in advance!! :yes
consolidate Macro
ActiveCell.Offset(-12, -4).Range("A1").Select
Selection.CurrentRegion.Select
Selection.Copy
Sheets("Sheet1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 3).Columns("A:D").EntireColumn.Select
Application.CutCopyMode = False
Selection.Copy
ActiveCell.Offset(0, -2).Range("A1").Select
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False
ActiveCell.Offset(0, 4).Columns("A:F").EntireColumn.Select
Selection.Delete Shift:=xlToLeft
ActiveCell.Offset(0, -5).Range("A1").Select
End Sub