looping problem

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Ewing25 - 29 Apr 2008 13:38 GMT

When i click cancel it comes up with an error "Run time error'13', type
mismatch"

Here is my code so far

Private Sub Worksheet_Activate()
Call TripsCopy
End Sub

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

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

Reply to this Message

Mike H. - 29 Apr 2008 13:50 GMT

When you select cancel trips has the value = "", which is not an integer.
Change the declaration of trip to be:
Dim trips as variant

and this problem is solved!

> When i click cancel it comes up with an error "Run time error'13', type
> mismatch"
[quoted text clipped - 17 lines]
> End If
> End Sub

Reply to this Message

Ewing25 - 29 Apr 2008 13:58 GMT

Okay i changed it and its still giving me the same error.

> When you select cancel trips has the value = "", which is not an integer.
> Change the declaration of trip to be:
[quoted text clipped - 23 lines]
> > End If
> > End Sub

Reply to this Message

Mike H. - 29 Apr 2008 14:04 GMT

Change
If Trips > 1 Then

To

If Trips <> "" And Trips <> 0 Then

> Okay i changed it and its still giving me the same error.
>
[quoted text clipped - 25 lines]
> > > End If
> > > End Sub

Reply to this Message

Ewing25 - 29 Apr 2008 14:08 GMT

works perfectly thanks!

> Change
> If Trips > 1 Then
[quoted text clipped - 32 lines]
> > > > End If
> > > > End Sub

Reply to this Message