I recorded this macro in Excel 2016 with the macro recorder and want to insert vba . Of course the two files were opened already when the macro was recorded. I am poor in VBA and after looking at many examples of how to do this online cannot get it to work. Here is the Macro recorder's version.
Sub openwkbks()
Windows("Aqu010216.xlsm").Activate
Sheets("Brfig").Select
Range("B7:B15").Select
Selection.Copy
Windows("Matrix.xlsm").Activate
Range("C5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Selection.Columns.AutoFit
Windows("Aqu010216.xlsm").Activate
Range("D7:D15").Select
Selection.Copy
Windows("Matrix.xlsm").Activate
Range("C6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Windows("Aqu010216.xlsm").Activate
Range("F7:F15").Select
Selection.Copy
Windows("Matrix.xlsm").Activate
Range("C7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Windows("Aqu010216.xlsm").Activate
Range("H7:H15").Select
Selection.Copy
Windows("Matrix.xlsm").Activate
Range("C8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Windows("Aqu010216.xlsm").Activate
Range("J7:J15").Select
Selection.Copy
Windows("Matrix.xlsm").Activate
Range("C9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Windows("Aqu010216.xlsm").Activate
Sheets("Points").Select
Range("E7:E15").Select
Selection.Copy
Windows("Matrix.xlsm").Activate
Range("C10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Windows("Aqu010216.xlsm").Activate
Range("g7:g15").Select
Selection.Copy
Windows("Matrix.xlsm").Activate
Range("C11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Windows("Aqu010216.xlsm").Activate
Range("i7:i15").Select
Selection.Copy
Windows("Matrix.xlsm").Activate
Range("C12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Windows("Aqu010216.xlsm").Activate
Range("n7:n15").Select
Selection.Copy
Windows("Matrix.xlsm").Activate
Range("C13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Windows("Aqu010216.xlsm").Activate
Range("p7:p15").Select
Selection.Copy
Windows("Matrix.xlsm").Activate
Range("C14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
End Sub
The"Matrix" workbook has this code and where the data needs to be transferred to. The "Aqu010216.xlsm" is but one workbook of many with different names that will need to be opened (not simultaneously) to feed the Matrix workbook
Bookmarks