LinkBack URL
About LinkBacks
Hello!
I need help with vba code. I have to insert the same sheet to over 100 workbooks. Instead of opening all the workbooks and copying the sheet is there a way I can use VBA to insert the sheet to all the excel files?
Thank you!!!
Hello!
I need help with vba code. I have to insert the same sheet to over 100 workbooks. Instead of opening all the workbooks and copying the sheet is there a way I can use VBA to insert the sheet to all the excel files?
Thank you!!!
I don't know of a way to copy a sheet to a closed workbook.
A macro could open each workbook in a folder, copy the one sheet, and save\close the workbook.
If you want help with that macro, record a macro where you manually do all the steps (open, copy sheet, save, close) for one workbook from the folder. Then post the code for the recorded macro here. Remember to surround your pasted code with CODE tags (it's a forum rule). See my signature block below.
Someone here can then change your recorded macro to loop through all the workbooks in the folder.
Last edited by AlphaFrog; 04-01-2014 at 01:38 PM.
Surround your VBA code with CODE tags e.g.;
[CODE]your VBA code here[/CODE]
The # button in the forum editor will apply CODE tags around your selected text.
Maybe:
Please Login or Register to view this content.
Recorded the macro: Wanted to move "Sheet1" to "Workbook" file.
THANKS!!
Sub CopySheet()
'
' CopySheet Macro
'
'
Sheets("Sheet1").Select
Sheets("Sheet1").Copy After:=Workbooks("Workbook"). _
Sheets(4)
End Sub
Hey John,
The code worked perfectly! Is there a way to retain the name of the Sheet? When I move the sheets over it renames it to ‘Sheet1’ instead of the original name ‘Formulas’.
Thank you so much!! This will save me a lot of time, really appreciate it!!
Originally Posted by JOHN H. DAVIS
Recorded the macro: Wanted to move "Sheet1" to "Workbook" file.
THANKS!!
Sub CopySheet()
'
' CopySheet Macro
'
'
Sheets("Sheet1").Select
Sheets("Sheet1").Copy After:=Workbooks("Workbook"). _
Sheets(4)
End Sub
Well, so much for using CODE tags.
Did you try John's solution? EDIT: disregard.
Sorry it's my first time posting! Forgive me.
Nevermind I got it to work figured it out!
Thank you again! Love you guys!!
Glad to hear it works for you and thanks for the feedback. Please comply with Forum Rule No. 9.
9. Acknowledge the responses you receive, good or bad. If your problem is solved, please say so clearly, and mark your thread as Solved: Click Thread Tools above your first post, select "Mark your thread as Solved". Or click the Edit button on your first post in the thread, Click Go Advanced, select [SOLVED] from the Prefix dropdown, then click Save Changes. If more than two days have elapsed, the Dropdown option or Edit button will not appear -- ask a moderator to mark it.
The code copies and paste it directly to the workbooks.
Is there a way I can move the active sheet tab to worksheets and keep the formatting and printing options (the same everything) instead of copying and pasting?
I saw the code below, but I don’t know how to incorporate it into the code. Many thanks!!
ActiveSheet.Move Before:=Workbooks("Test.xls").Sheets(1)Please Login or Register to view this content.
'Moves active sheet to beginning of named workbook.
'Replace Test.xls with the full name of the target workbook you want.
Please Login or Register to view this content.
Maybe:
Please Login or Register to view this content.
I don't mean to step on anyone's toes, but I don't think you want to reference the workbook Test.xls
Maybe try something like this. It copies the worksheet to the opened workbook's tab position 1.
Please Login or Register to view this content.
Good catch AlfaFrog. Looks like my toes needed some stepping on.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
Register To Reply
Bookmarks