copy to new workbook

G

Guest

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
 
R

raymond.allan

Suppose your current workbook is Book1.xls

You have another workbook open called Book2.xls with 1 worksheet Sheet1

Book1 being the active workbook

Range("A1:D200").copy

Workbooks("Book2").Sheets("Sheets1").Range("A1").PasteSpecial
Application.CutCopymode = False

' Contents of A1:D200 will be copied into the new workbook

HTH

Rgds
Raymond
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top