add a sheet button
 

I have a two page workbook. Page 1 is instructions for the information
expected on page two. Page 2 is called Customer Info.

I would like to have a button on page 1 that I could simply click on that
would add another Customer Info page with each click.
--
bob

add a sheet button
 

Sub copysheet()
Sheets("Template").Copy after:=Sheets(Sheets.Count)
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"vdmbqb" wrote in message
...
I have a two page workbook. Page 1 is instructions for the information
expected on page two. Page 2 is called Customer Info.

I would like to have a button on page 1 that I could simply click on that
would add another Customer Info page with each click.
--
bob

add a sheet button
 

Thank you for the response. I should have told you up front that I am not
that prolific in excel. I really do not know how to create the button or
assign the commands to that button. I was hoping to get specific, step by
step instructions. Thank you so much for any help you can give.
--
bob


"vdmbqb" wrote:

I have a two page workbook. Page 1 is instructions for the information
expected on page two. Page 2 is called Customer Info.

I would like to have a button on page 1 that I could simply click on that
would add another Customer Info page with each click.
--
bob

add a sheet button
 

If you're new to macros, you may want to read David McRitchie's intro
at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"vdmbqb" wrote in message
...
Thank you for the response. I should have told you up front that I am not
that prolific in excel. I really do not know how to create the button or
assign the commands to that button. I was hoping to get specific, step by
step instructions. Thank you so much for any help you can give.
--
bob


"vdmbqb" wrote:

I have a two page workbook. Page 1 is instructions for the information
expected on page two. Page 2 is called Customer Info.

I would like to have a button on page 1 that I could simply click on that
would add another Customer Info page with each click.
--
bob

add a sheet button
 

First of all......workbooks are comprised of one or more worksheets, not
"pages".

Pages are what you print on your printer.

Secondly......do you want a fesh, clean copy of Customer Info which presumably
has been formatted as you want?

I assume the original Customer Info sheet has been filled in with customer #1
info and now you want a customer #2 info sheet ready to be filled in.

You could just drag the Customer Info sheet to the right or left then drop it
where you want and hold CTRL key and drop the sheet which would create a copy.

Then clear the entered data from customer #1

Or you could a Template of the Customer Info sheet which you insert.

How do you want to proceed?


Gord Dibben MS Excel MVP

On Sat, 1 Dec 2007 14:07:01 -0800, vdmbqb
wrote:

I have a two page workbook. Page 1 is instructions for the information
expected on page two. Page 2 is called Customer Info.

I would like to have a button on page 1 that I could simply click on that
would add another Customer Info page with each click.

add a sheet button
 

On Dec 1, 5:33 pm, "Don Guillett" wrote:
Sub copysheet()
Sheets("Template").Copy after:=Sheets(Sheets.Count)
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"vdmbqb" wrote in message

...



I have a two page workbook. Page 1 is instructions for the information
expected on page two. Page 2 is called Customer Info.

I would like to have a button on page 1 that I could simply click on that
would add another Customer Info page with each click.
--
bob- Hide quoted text -

- Show quoted text -

Hi Don,

How would you do it so the new sheet will be named Sheet3 than
'Sheet1 (2)?

--Jim

add a sheet button
 

Please TOP post here
Sub copysheet()
Sheets("Template").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Sheet" & Sheets.Count
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Spike9458" wrote in message
...
On Dec 1, 5:33 pm, "Don Guillett" wrote:
Sub copysheet()
Sheets("Template").Copy after:=Sheets(Sheets.Count)
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"vdmbqb" wrote
in message

...



I have a two page workbook. Page 1 is instructions for the information
expected on page two. Page 2 is called Customer Info.

I would like to have a button on page 1 that I could simply click on
that
would add another Customer Info page with each click.
--
bob- Hide quoted text -

- Show quoted text -

Hi Don,

How would you do it so the new sheet will be named Sheet3 than
'Sheet1 (2)?

--Jim

add a sheet button
 

Thanks Don,

I tried this one and get a runtime error 9, subscript out of range.
What did I do wrong?

--Jim

On Dec 2, 9:18 am, "Don Guillett" wrote:
Please TOP post here
Sub copysheet()
Sheets("Template").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Sheet" & Sheets.Count
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"Spike9458" wrote in message

...



On Dec 1, 5:33 pm, "Don Guillett" wrote:
Sub copysheet()
Sheets("Template").Copy after:=Sheets(Sheets.Count)
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"vdmbqb" wrote
in message

...

I have a two page workbook. Page 1 is instructions for the information
expected on page two. Page 2 is called Customer Info.

I would like to have a button on page 1 that I could simply click on
that
would add another Customer Info page with each click.
--
bob- Hide quoted text -

- Show quoted text -

Hi Don,

How would you do it so the new sheet will be named Sheet3 than
'Sheet1 (2)?

--Jim- Hide quoted text -

- Show quoted text -

add a sheet button
 

Perhaps you do not have a sheet named

Template


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Spike9458" wrote in message
...
Thanks Don,

I tried this one and get a runtime error 9, subscript out of range.
What did I do wrong?

--Jim

On Dec 2, 9:18 am, "Don Guillett" wrote:
Please TOP post here
Sub copysheet()
Sheets("Template").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Sheet" & Sheets.Count
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"Spike9458" wrote in
message

...



On Dec 1, 5:33 pm, "Don Guillett" wrote:
Sub copysheet()
Sheets("Template").Copy after:=Sheets(Sheets.Count)
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"vdmbqb"
wrote
in message

...

I have a two page workbook. Page 1 is instructions for the
information
expected on page two. Page 2 is called Customer Info.

I would like to have a button on page 1 that I could simply click on
that
would add another Customer Info page with each click.
--
bob- Hide quoted text -

- Show quoted text -

Hi Don,

How would you do it so the new sheet will be named Sheet3 than
'Sheet1 (2)?

--Jim- Hide quoted text -

- Show quoted text -

add a sheet button
 

You are right. But when I used the first version it seemed to work
just fine, prompting my question about sequential sheet numbering.
Hmmm anyway, it's a pretty cool macro that I can get a lot of use out
of.

Thanks,

--Jim

On Dec 2, 11:25 am, "Don Guillett" wrote:
Perhaps you do not have a sheet named

Template

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"Spike9458" wrote in message

...



Thanks Don,

I tried this one and get a runtime error 9, subscript out of range.
What did I do wrong?

--Jim

On Dec 2, 9:18 am, "Don Guillett" wrote:
Please TOP post here
Sub copysheet()
Sheets("Template").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Sheet" & Sheets.Count
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"Spike9458" wrote in
message

...

On Dec 1, 5:33 pm, "Don Guillett" wrote:
Sub copysheet()
Sheets("Template").Copy after:=Sheets(Sheets.Count)
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"vdmbqb"
wrote
in message

...

I have a two page workbook. Page 1 is instructions for the
information
expected on page two. Page 2 is called Customer Info.

I would like to have a button on page 1 that I could simply click on
that
would add another Customer Info page with each click.
--
bob- Hide quoted text -

- Show quoted text -

Hi Don,

How would you do it so the new sheet will be named Sheet3 than
'Sheet1 (2)?

--Jim- Hide quoted text -

- Show quoted text -- Hide quoted text -

- Show quoted text -