Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
past method error
This is my first go at vb programming with excel. I have code attached to a
pushbutton to copy a sheet in the current workbook, open an existing workbook and pasting the copied info over the data in a sheet called "pricing". My code is below. I am getting a run-time err '1004': Paste method of Worksheet class failed. It does paste the info but doesn't finish the routine. Any help would be greatly appreciated. Private Sub CommandButton1_Click() Sheets("Sheet3").Select Selection.Copy Workbooks.Open Filename:="G:\PriceLists\PriceList2.xls" Workbooks("Pricelist2.xls").Activate Sheets("pricing").Activate ActiveSheet.Unprotect Password:="xxxx" ActiveSheet.Paste ActiveSheet.Protect Password:="xxxx" Sheets("Glossary").Select End Sub -- kr |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
past method error
Give this a try...
Private Sub CommandButton1_Click() Workbooks.Open Filename:="G:\PriceLists\PriceList2.xls" Workbooks("Pricelist2.xls").Activate with Workbooks("Pricelist2.xls").Sheets("pricing") .Activate .Unprotect Password:="xxxx" Thisworkbook.Sheets("Sheet3").Cells.Copy Desination:= .Cells .Protect Password:="xxxx" end with Workbooks("Pricelist2.xls").Sheets("Glossary").Sel ect End Sub -- HTH... Jim Thomlinson "kr" wrote: This is my first go at vb programming with excel. I have code attached to a pushbutton to copy a sheet in the current workbook, open an existing workbook and pasting the copied info over the data in a sheet called "pricing". My code is below. I am getting a run-time err '1004': Paste method of Worksheet class failed. It does paste the info but doesn't finish the routine. Any help would be greatly appreciated. Private Sub CommandButton1_Click() Sheets("Sheet3").Select Selection.Copy Workbooks.Open Filename:="G:\PriceLists\PriceList2.xls" Workbooks("Pricelist2.xls").Activate Sheets("pricing").Activate ActiveSheet.Unprotect Password:="xxxx" ActiveSheet.Paste ActiveSheet.Protect Password:="xxxx" Sheets("Glossary").Select End Sub -- kr |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
past method error
Thanks Jim, but now I am getting "Application-defined or object-defined
error". The debugger highlights the line beginning "ThisWorkbook.Sheets etc..." -- kr "Jim Thomlinson" wrote: Give this a try... Private Sub CommandButton1_Click() Workbooks.Open Filename:="G:\PriceLists\PriceList2.xls" Workbooks("Pricelist2.xls").Activate with Workbooks("Pricelist2.xls").Sheets("pricing") .Activate .Unprotect Password:="xxxx" Thisworkbook.Sheets("Sheet3").Cells.Copy Desination:= .Cells .Protect Password:="xxxx" end with Workbooks("Pricelist2.xls").Sheets("Glossary").Sel ect End Sub -- HTH... Jim Thomlinson "kr" wrote: This is my first go at vb programming with excel. I have code attached to a pushbutton to copy a sheet in the current workbook, open an existing workbook and pasting the copied info over the data in a sheet called "pricing". My code is below. I am getting a run-time err '1004': Paste method of Worksheet class failed. It does paste the info but doesn't finish the routine. Any help would be greatly appreciated. Private Sub CommandButton1_Click() Sheets("Sheet3").Select Selection.Copy Workbooks.Open Filename:="G:\PriceLists\PriceList2.xls" Workbooks("Pricelist2.xls").Activate Sheets("pricing").Activate ActiveSheet.Unprotect Password:="xxxx" ActiveSheet.Paste ActiveSheet.Protect Password:="xxxx" Sheets("Glossary").Select End Sub -- kr |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
past method error
Sorry Typo...
Desination:= .Cells Should Be Destination:= .Cells -- HTH... Jim Thomlinson "kr" wrote: Thanks Jim, but now I am getting "Application-defined or object-defined error". The debugger highlights the line beginning "ThisWorkbook.Sheets etc..." -- kr "Jim Thomlinson" wrote: Give this a try... Private Sub CommandButton1_Click() Workbooks.Open Filename:="G:\PriceLists\PriceList2.xls" Workbooks("Pricelist2.xls").Activate with Workbooks("Pricelist2.xls").Sheets("pricing") .Activate .Unprotect Password:="xxxx" Thisworkbook.Sheets("Sheet3").Cells.Copy Desination:= .Cells .Protect Password:="xxxx" end with Workbooks("Pricelist2.xls").Sheets("Glossary").Sel ect End Sub -- HTH... Jim Thomlinson "kr" wrote: This is my first go at vb programming with excel. I have code attached to a pushbutton to copy a sheet in the current workbook, open an existing workbook and pasting the copied info over the data in a sheet called "pricing". My code is below. I am getting a run-time err '1004': Paste method of Worksheet class failed. It does paste the info but doesn't finish the routine. Any help would be greatly appreciated. Private Sub CommandButton1_Click() Sheets("Sheet3").Select Selection.Copy Workbooks.Open Filename:="G:\PriceLists\PriceList2.xls" Workbooks("Pricelist2.xls").Activate Sheets("pricing").Activate ActiveSheet.Unprotect Password:="xxxx" ActiveSheet.Paste ActiveSheet.Protect Password:="xxxx" Sheets("Glossary").Select End Sub -- kr |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
past method error
I am good at typos also ~ note my description "Past method error" instead of
"Paste method error" Thanks so much for your help, I was about to pull my hair out trying different things. -- kr "Jim Thomlinson" wrote: Sorry Typo... Desination:= .Cells Should Be Destination:= .Cells -- HTH... Jim Thomlinson "kr" wrote: Thanks Jim, but now I am getting "Application-defined or object-defined error". The debugger highlights the line beginning "ThisWorkbook.Sheets etc..." -- kr "Jim Thomlinson" wrote: Give this a try... Private Sub CommandButton1_Click() Workbooks.Open Filename:="G:\PriceLists\PriceList2.xls" Workbooks("Pricelist2.xls").Activate with Workbooks("Pricelist2.xls").Sheets("pricing") .Activate .Unprotect Password:="xxxx" Thisworkbook.Sheets("Sheet3").Cells.Copy Desination:= .Cells .Protect Password:="xxxx" end with Workbooks("Pricelist2.xls").Sheets("Glossary").Sel ect End Sub -- HTH... Jim Thomlinson "kr" wrote: This is my first go at vb programming with excel. I have code attached to a pushbutton to copy a sheet in the current workbook, open an existing workbook and pasting the copied info over the data in a sheet called "pricing". My code is below. I am getting a run-time err '1004': Paste method of Worksheet class failed. It does paste the info but doesn't finish the routine. Any help would be greatly appreciated. Private Sub CommandButton1_Click() Sheets("Sheet3").Select Selection.Copy Workbooks.Open Filename:="G:\PriceLists\PriceList2.xls" Workbooks("Pricelist2.xls").Activate Sheets("pricing").Activate ActiveSheet.Unprotect Password:="xxxx" ActiveSheet.Paste ActiveSheet.Protect Password:="xxxx" Sheets("Glossary").Select End Sub -- kr |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
SaveAs method error | Excel Discussion (Misc queries) | |||
PasteSpecial Method Error | Excel Discussion (Misc queries) | |||
How can i get past the overflow error? | Excel Programming | |||
Error when use find method in vb6 | Excel Programming | |||
addfields method error | Excel Programming |