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").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
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").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