Hi All. Let me start by saying that I'm not very good at VBA, so need a little help.
I have 2 workbooks, one is called Journal.xlsx and the other is called abcd.xlsm. I want to copy the following (values only) from ( 2 different ranges) in abcd.xlsm to Journal.xlsm
The ranges I want to copy from and to are as follows:
From To
abcd worksheet named Sheet1, range A1 : IZ2121 Journal worksheet named Engine, paste (values only) to A1
abcd worksheet named Sheet2, range A1 : AXA2110 Journal worksheet named ASX_Data, paste (values only) to I12
After the following is done I'd like workbook abcd to close.
So far this is what I have (it does the first section of the copy and values paste only)
Sub Copy_PasteSpecial_Method()
'Copy range to clipboard
Workbooks("abcd.xlsx").Worksheets("Sheet1").Range("A1:IZ2121").Copy
'PasteSpecial to paste values, formulas, formats, etc.
Workbooks("Journal.xlsm").Worksheets("engine").Range("A1").PasteSpecial Paste:=xlPasteValues
End Sub
Would really appreciate any help
I have 2 workbooks, one is called Journal.xlsx and the other is called abcd.xlsm. I want to copy the following (values only) from ( 2 different ranges) in abcd.xlsm to Journal.xlsm
The ranges I want to copy from and to are as follows:
From To
abcd worksheet named Sheet1, range A1 : IZ2121 Journal worksheet named Engine, paste (values only) to A1
abcd worksheet named Sheet2, range A1 : AXA2110 Journal worksheet named ASX_Data, paste (values only) to I12
After the following is done I'd like workbook abcd to close.
So far this is what I have (it does the first section of the copy and values paste only)
Sub Copy_PasteSpecial_Method()
'Copy range to clipboard
Workbooks("abcd.xlsx").Worksheets("Sheet1").Range("A1:IZ2121").Copy
'PasteSpecial to paste values, formulas, formats, etc.
Workbooks("Journal.xlsm").Worksheets("engine").Range("A1").PasteSpecial Paste:=xlPasteValues
End Sub
Would really appreciate any help