Macro Not running

[SantanaKRE8s]

Macro stops when it has to get data from the "data" Workbook. I have a workbook that copies data from another workbook. The Macro was working but when I added the option to run the Macro automatically when I open the workbook it does not work.


Private Sub Workbook_Open()
'

Sheets("FAB & JAB OOR").Select

'
Windows("data.xlsx").Activate
Range("D2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("FBN JBL OOR_TEST FILE.xlsm").Activate
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("data.xlsx").Activate
Range("F2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("FBN JBL OOR_TEST FILE.xlsm").Activate
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("data.xlsx").Activate
Range("G2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("FBN JBL OOR_TEST FILE.xlsm").Activate
Range("C3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("data.xlsx").Activate
Range("I2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("FBN JBL OOR_TEST FILE.xlsm").Activate
Range("D3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("data.xlsx").Activate
Range("L2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("FBN JBL OOR_TEST FILE.xlsm").Activate
Range("E3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("data.xlsx").Activate
Range("Q2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("FBN JBL OOR_TEST FILE.xlsm").Activate
Range("F3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("data.xlsx").Activate
Range("Y2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("FBN JBL OOR_TEST FILE.xlsm").Activate
Range("G3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("data.xlsx").Activate
Range("Z2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("FBN JBL OOR_TEST FILE.xlsm").Activate
Range("H3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("data.xlsx").Activate
Range("AA2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("FBN JBL OOR_TEST FILE.xlsm").Activate
Range("I3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("data.xlsx").Activate
Range("AR2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("FBN JBL OOR_TEST FILE.xlsm").Activate
Range("J3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Dashboard").Select


End Sub

 

[SantanaKRE8s]

I switched the VBA code that copies the data from the data workbook from the module to the " This Workbook " and its debugging again

 

[SantanaKRE8s]

 

[SantanaKRE8s]

Ok I added the Breakpoint to the VBA code in the data point and I hit run and it started to work, the data was transferred over to the main file. So How do I fix that?

 

[Skyybot]

Ok I added the Breakpoint to the VBA code in the data point and I hit run and it started to work, the data was transferred over to the main file. So How do I fix that?

View attachment 95739

Try:

Workbooks("data.xlsm").Activate

 

[SantanaKRE8s]

I deleted the MACRO and went ahead and redorded the macro again. How do I add the Workboo open() to that MACRO?

 

[Skyybot]

I don't know. I haven't seen the new Macro, but the following will open a new Workbook:

Dim myWb as Workbook
Set myWb = Workbooks.Open("Full_Address_Of_FileName") ' i.e. - C:\Users\Person\My Documents\Workbook.xlsm

 

[SantanaKRE8s]

thank you Skyybot, This has been resolved and is working. Yes the extension was incorrect for the workbook that I was getting the data from. I was able to put the correct extension in my MACRO based on the type of excel sheet I was downloading from Power BI, and I added a run all to the workbook open and it worked. Splashscreen all Macros are working. Thnk you guys for the help and patience.

 

[Skyybot]

You're very welcome. Glad to help!

 

[Joe4]

thank you Skyybot, This has been resolved and is working. Yes the extension was incorrect for the workbook that I was getting the data from. I was able to put the correct extension in my MACRO based on the type of excel sheet I was downloading from Power BI, and I added a run all to the workbook open and it worked. Splashscreen all Macros are working. Thnk you guys for the help and patience.

Guess I shouldn't have assumed that you had already checked that!
Anyway, glad you got it figured out and thanks to all who joined forces to help out!