Input Box Trouble

[Ewing25]

I am trying to make it so that when a user inputs the amount of trips they
have taken, Excel automatically copys that amount of worksheets.

I made a Macro that copys the worksheets but im not sure how to integrate
that into an input box.

the copy sheet code:

Sheets("Individual Trip").Select
Sheets("Individual Trip").Copy After:=Sheets(3)

Thanks!

 

[Per Jessen]

I am trying to make it so that when a user inputs the amount of trips they
have taken, Excel automatically copys that amount of worksheets.

I made a Macro that copys the worksheets but im not sure how to integrate
that into an input box.

the copy sheet code:

  Sheets("Individual Trip").Select
    Sheets("Individual Trip").Copy After:=Sheets(3)

Thanks!

Hi

Try this

Sub TripsCopy()
Dim Trips As Integer
Dim tr As Integer

Trips = InputBox("Enter no. of trips")
If Trips > 0 Then
'Sheets("Individual Trip").Select
For tr = 1 To Trips
Sheets("Individual Trip").Copy After:=Sheets(Sheets.Count)
Next
End If
End Sub

Regards,
Per

 

[Ewing25]

That worked great thanks!!

Hi

Try this

Sub TripsCopy()
Dim Trips As Integer
Dim tr As Integer

Trips = InputBox("Enter no. of trips")
If Trips > 0 Then
'Sheets("Individual Trip").Select
For tr = 1 To Trips
Sheets("Individual Trip").Copy After:=Sheets(Sheets.Count)
Next
End If
End Sub

Regards,
Per

 

[Ewing25]

Okay it worked the first time i used it. But now its copying the code over to
the copyed worksheets and it will ask me again if i select the other tabs.
Can i get rid of that? Also if i press cancel it comes with an error "Runtime
error - 13, Type Mismatch"