Button to Create New Sheet

[Whatisanexcel]

Hello Everyone!

Happy New Year!

I am making a model and would like to create a landing page where I would type numbers and click on a button. When I click on this button it creates a copy of another sheet and makes the adjustment stated on the landing page.

Is this possible, if so how can I accomplish this?

Any advice helps!

Thank you in advance.

 

[ranman256]

paste the code into a module ,
set your source items on the LANDING sheet. (here mine are Source Sheet to copy (B2), & values to save B3-B5
then run: CopyLanding

Sub CopyLanding()
Dim wsSrc As Worksheet, wsTarg As Worksheet, wsLand As Worksheet
Dim vVal1, vVal2, vVal3
Set wsLand = Sheets("Landing")
wsLand.Activate

  'what sheet to copy from in B2
Set wsSrc = Sheets(Range("b2").Value)

 'grab the entered values
vVal1 = Range("b3").Value
vVal2 = Range("b4").Value
vVal3 = Range("b5").Value

 'copy src sheet in B2
wsSrc.Select
wsSrc.Copy After:=Sheets(Sheets.Count)
Set wsTarg = ActiveSheet
'wsTarg.Name = "something"  'rename new sheet

  'post new values
Range("d3").Value = vVal1
Range("d4").Value = vVal2
Range("d5").Value = vVal3
End Sub

 

[Whatisanexcel]

paste the code into a module ,
set your source items on the LANDING sheet. (here mine are Source Sheet to copy (B2), & values to save B3-B5
then run: CopyLanding

Sub CopyLanding()
Dim wsSrc As Worksheet, wsTarg As Worksheet, wsLand As Worksheet
Dim vVal1, vVal2, vVal3
Set wsLand = Sheets("Landing")
wsLand.Activate

  'what sheet to copy from in B2
Set wsSrc = Sheets(Range("b2").Value)

 'grab the entered values
vVal1 = Range("b3").Value
vVal2 = Range("b4").Value
vVal3 = Range("b5").Value

 'copy src sheet in B2
wsSrc.Select
wsSrc.Copy After:=Sheets(Sheets.Count)
Set wsTarg = ActiveSheet
'wsTarg.Name = "something"  'rename new sheet

  'post new values
Range("d3").Value = vVal1
Range("d4").Value = vVal2
Range("d5").Value = vVal3
End Sub

Thank you so much!! Will try this right away, thank you!!

 

[Whatisanexcel]

paste the code into a module ,
set your source items on the LANDING sheet. (here mine are Source Sheet to copy (B2), & values to save B3-B5
then run: CopyLanding

Sub CopyLanding()
Dim wsSrc As Worksheet, wsTarg As Worksheet, wsLand As Worksheet
Dim vVal1, vVal2, vVal3
Set wsLand = Sheets("Landing")
wsLand.Activate

  'what sheet to copy from in B2
Set wsSrc = Sheets(Range("b2").Value)

 'grab the entered values
vVal1 = Range("b3").Value
vVal2 = Range("b4").Value
vVal3 = Range("b5").Value

 'copy src sheet in B2
wsSrc.Select
wsSrc.Copy After:=Sheets(Sheets.Count)
Set wsTarg = ActiveSheet
'wsTarg.Name = "something"  'rename new sheet

  'post new values
Range("d3").Value = vVal1
Range("d4").Value = vVal2
Range("d5").Value = vVal3
End Sub

It worked exactly how I wanted it to!! You are amazing, thank you soo much!!