| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy to new workbook
I created this code to copy info from one book to another. I need to change
it so that the information can be copied over into the new book because currently it only copies over into the workbook "book2". can anyone help? Here is my code: Private Sub CommandButton20_Click() Workbooks.Add Windows("Product Calculator1.xls").Activate Columns("A:D").Select Application.CutCopyMode = False Selection.Copy Windows("Book2").Activate Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Windows("Product Calculator1.xls").Activate Columns("H:H").Select Application.CutCopyMode = False Selection.Copy Windows("Book2").Activate range("E1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False range("F1").Select Windows("Product Calculator1.xls").Activate Columns("K:K").Select Application.CutCopyMode = False Selection.Copy Windows("Book2").Activate Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False range("G1").Select Windows("Product Calculator1.xls").Activate Columns("N:N").Select Application.CutCopyMode = False Selection.Copy Windows("Book2").Activate Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False range("H1").Select Windows("Product Calculator1.xls").Activate Columns("Q:Q").Select Application.CutCopyMode = False Selection.Copy Windows("Book2").Activate Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False range("I1").Select Windows("Product Calculator1.xls").Activate Columns("R:R").Select Application.CutCopyMode = False Selection.Copy Windows("Book2").Activate Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False range("J1").Select Windows("Product Calculator1.xls").Activate Columns("S:S").Select Application.CutCopyMode = False Selection.Copy Windows("Book2").Activate Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False range("J1").Select ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 1 Application.CutCopyMode = False Windows("Product Calculator1.xls").Activate range("S1").Select End Sub |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Macro to copy an image (or picture) from one workbook to a new sheetin another workbook | Excel Worksheet Functions | |||
| Excel-how to link source workbook to copy of destination workbook | Excel Worksheet Functions | |||
| Copy cells based on conditions in one workbook to another workbook | Excel Discussion (Misc queries) | |||
| loop through a column on a workbook copying data on each row to another workbook, then copy data back to the original workbook | Excel Programming | |||
| Copy a range of cells in an unopened workbook and paste it to the current workbook | Excel Programming | |||
Threaded Mode
