Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
formatting a macro
I new to VB programming. I need to create a macro that will be able
to copy the sheet and then format the copy to look like the initial sheet. Here is my copy: Sub WorksheetCopy() ' ' WorksheetCopy Macro ' Macro recorded 02/26/2007 by fhlbsyh ' ' Application.Run "'HOEPACalc-final(2).xls'!Sheet19.InsertSheets2" Sheets("HOEPA Worksheet").Select Application.Goto Reference:="Anti_Predatory_Lending_Worksheet" Selection.Copy Sheets("Loanxys").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Range("D17").Select End Submacro Please help me. Maggie |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
formatting a macro
Sometimes, it's just easier to copy the worksheet--than the cells, the formats,
the headers, the footers, autofilters, .... I'm not sure how you're creating those worksheets, but if you record a macro when you select the sheet to copy edit|Move or copy sheet (select copy) and plop it where it belongs You'll see the code. Then you can clean anything you want. Maggie wrote: I new to VB programming. I need to create a macro that will be able to copy the sheet and then format the copy to look like the initial sheet. Here is my copy: Sub WorksheetCopy() ' ' WorksheetCopy Macro ' Macro recorded 02/26/2007 by fhlbsyh ' ' Application.Run "'HOEPACalc-final(2).xls'!Sheet19.InsertSheets2" Sheets("HOEPA Worksheet").Select Application.Goto Reference:="Anti_Predatory_Lending_Worksheet" Selection.Copy Sheets("Loanxys").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Range("D17").Select End Submacro Please help me. Maggie -- Dave Peterson |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
formatting a macro
On Feb 28, 11:43 am, Dave Peterson wrote:
Sometimes, it's just easier to copy the worksheet--than the cells, the formats, the headers, the footers, autofilters, .... I'm not sure how you're creating those worksheets, but if you record a macro when you select the sheet to copy edit|Move or copy sheet (select copy) and plop it where it belongs You'll see the code. Then you can clean anything you want. Maggie wrote: I new to VB programming. I need to create a macro that will be able to copy the sheet and then format the copy to look like the initial sheet. Here is my copy: Sub WorksheetCopy() ' ' WorksheetCopy Macro ' Macro recorded 02/26/2007 by fhlbsyh ' ' Application.Run "'HOEPACalc-final(2).xls'!Sheet19.InsertSheets2" Sheets("HOEPA Worksheet").Select Application.Goto Reference:="Anti_Predatory_Lending_Worksheet" Selection.Copy Sheets("Loanxys").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Range("D17").Select End Submacro Please help me. Maggie -- Dave Peterson- Hide quoted text - - Show quoted text - Okay that worked now I am having the problem of renaming the tab. I would like to have an input box that I would be able to rename what I want it to be. Any suggestions |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro formatting last row | Excel Worksheet Functions | |||
Formatting for a Macro | Excel Discussion (Misc queries) | |||
Macro Formatting? Please Help | Excel Programming | |||
formatting macro | Excel Programming | |||
Macro for formatting | Excel Programming |