VBA for Template and Copying Cells.

Hi all. I have the following macro which when executed, this is what it does :

Step 1: It Opens a saved template, called "Template",from a defined location,
Step 2: An Input Box appears, prompting the user to insert a new name for a new document
Step 3: A new workbook (based on a saved template) is created with the name inputted in step 2 above.

The code is the following and can be viewed below. (Merits to Norie who suggested to use the Add.method for this code).

Please Login or Register  to view this content.

What I would like to do, if it is possible, is that I would like to copy some cells from another workbook into this newly created workbook.

Therefore, for example, this is how the macro should function:
Step 1: It Opens a saved template, called "Template", from a defined location.
Step 2: An Input Box appears, prompting the user to insert a new name for a new document
Step 3: A new workbook (based on the saved template) is created with the name inputted in step 2 above. E.g: "Workbook 2"
Step 4: Some cells from another Workbook, say "Workbook 1" are copied and pasted into the newly created "Workbook 2".
Step 5: Save and close Workbook 2

Can someone help me out if this is possible. Appreciate a lot.

Thanks everyone

Hey,

Thanks a lot for your help. That worked out very great !!!


If it is not too much of a bother to ask, is it possible to also do the following with the codes outlined above:

Step 1: A macro is run from "WorkBook1".It Opens a saved template, called "Template", from a defined location.
Step 2: An Input Box appears, prompting the user to insert a new name for a new document
Step 3: A new workbook (based on the saved template) is created with the name inputted in step 2 above. E.g: "Workbook 2"
Step 4: Some cells from "Workbook 1" (the same workbook mentioned in Step 1) are copied and pasted into the newly created "Workbook 2".
Step 5: Save and close Workbook 2

I don't know if this can be done! Appreciate a lot your kind help

Big Thanks

Hey,

Thanks a lot for your help. That worked out very great !!!


If it is not too much of a bother to ask, is it possible to also do the following with the codes outlined above:

Step 1: A macro is run from "WorkBook1".It Opens a saved template, called "Template", from a defined location.
Step 2: An Input Box appears, prompting the user to insert a new name for a new document
Step 3: A new workbook (based on the saved template) is created with the name inputted in step 2 above. E.g: "Workbook 2"
Step 4: Some cells from "Workbook 1" (the same workbook mentioned in Step 1) are copied and pasted into the newly created "Workbook 2".
Step 5: Save and close Workbook 2

I don't know if this can be done! Appreciate a lot your kind help

Big Thanks

Ah ok I guess I am doing it wrong. Sorry for the inconvenience, if I may ask for some additional help.

The first code works great. I run the macro from "Workbook 1", the "template" opens, a new windows opens prompting the user to insert the name of a new document.
The document is created

However I got stuck when the second code is run (maybe I am inserting the wrong paths?). The cells are not copying to the newly created worksheet. I tried to change the path but it will say that the 'Worksheet is already open.."

Thanks a lot!

That would be great. Really thanks a lot!

I have attached a small extract from the data I am using, so as to make it more straightforward.

I am working with 'WorkBook1'. This is from where I will run both macros.
Once macro 1 is run, the document 'Template' opens. A prompt-box tells the user to input the name of a new document and a copy of 'Template' is created. For the sake of argument I will call the new document: "WorkBook2".
I would like that cells, A30:A34 from "WorkBook1" are copied to "WorkBook2" which has just been created.

Currently I am having some issues in the last bit, where the cells need to be copied, since I think I have not adjusted the path in the correct way.


Thanks and really appreciate it, sorry for any inconvenience.

Terrific That's awesome. Thanks a lot for your kind help. It is amazingly good Cheers, appreciate a lot !