I have a simple macro it works fine on other computers with office 2016 (on windows 7 & 10 64x) but on my laptop also 64x, with office 2019 it was very strang some times it works, and most of the time I receive a 1004 error and when I debug it shows error at this line "ActiveSheet.Pictures.Paste.Select"
I tried to erase my office version on my laptop and installed office 2016 but same behavior, I tried to install office 2019 32x and 64x also same behavior, I checked tools>references on other working laptop they are the same as mine!! I even tried to repair C++ redistributable installations from the control panel
how could I solve this issue?
I tried to erase my office version on my laptop and installed office 2016 but same behavior, I tried to install office 2019 32x and 64x also same behavior, I checked tools>references on other working laptop they are the same as mine!! I even tried to repair C++ redistributable installations from the control panel
how could I solve this issue?
VBA Code:
Sub Copy_Data_from_DropDownMenus_to_table()
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Range("A10").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
With Selection
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlInsideVertical).LineStyle = xlContinuous
.Borders(xlInsideHorizontal).LineStyle = xlContinuous
End With
Application.CutCopyMode = False
Range("L2").Select
Selection.Copy
Range("L10").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 0).Range("A1").Select
ActiveSheet.Pictures.Paste.Select
Application.CutCopyMode = False
Range("A2").Select
end sub
Last edited by a moderator: