Runtime error 13

**selbo81** · 12-21-2009, 10:56 AM

Hi,

I keep getting a 'runtime error 13 type mismatch' error when running a macro in excel 2003 SP3, i cant see nothing wrong with the scripting when i click on 'debug' can anyone spot what i am doing wrong ? here is the higlighted error

i am running windows xp sp3 and office version 2003 sp3

please see below

------------------------------------------------

Private Sub UserForm_Activate()
     'Set the form changer to change this userform
    Set oFormChanger.Form = Me
    oFormChanger.Modal = False
    oFormChanger.Sizeable = False
    oFormChanger.ShowCaption = True
    oFormChanger.ShowSysMenu = False
    oFormChanger.ShowTaskBarIcon = True
    oFormChanger.SmallCaption = True
    oFormChanger.ShowIcon = True
    oFormChanger.ShowCloseBtn = True
    oFormChanger.ShowMaximizeBtn = True
    oFormChanger.ShowMinimizeBtn = True
   OptionButton1.Value = True
    'By Air
    OptionButton1.Value = True
    If Range("DB_TravelFrom").Value = 1 Then
         If Range("DB_Air_London").Value = "not avail" And _
            Range("DB_Air_Stansted").Value = "not avail" And _
            Range("DB_Air_Luton").Value = "not avail" Then            
            OptionButton3.Enabled = False
            OptionButton3.Caption = "Air N/A"
        Else
            If Range("DB_Air_London").Value <> "not avail" Or _
                Range("DB_Air_Stansted").Value <> "not avail" Or _
                Range("DB_Air_Luton").Value <> "not avail" Then
                OptionButton3.Caption = "Air"
            End If
        End If
    End If
    If Range("DB_TravelFrom").Value = 2 Then
        If Range("DB_Air_Manch").Value = "not avail" Then
            OptionButton3.Enabled = False
            OptionButton3.Caption = "Air N/A"
        End If
    End If
    If Range("DB_TravelFrom").Value = 3 Then
        If Range("DB_Air_Bris").Value = "not avail" Then
            OptionButton3.Enabled = False
            OptionButton3.Caption = "Air N/A"
        End If
    End If
    
    'By Rail
    If Range("DB_TravelFrom").Value = 1 Then
        If Range("DB_Rail_Stev").Value = "not avail" Then
            OptionButton2.Enabled = False
            OptionButton2.Caption = "Rail N/A"
        Else
            If Range("DB_Rail_Stev").Value <> "not avail" Then
                OptionButton2.Enabled = True
                OptionButton2.Caption = "Rail"
            End If
        End If
    End If
    If Range("DB_TravelFrom").Value = 2 Then
        If Range("DB_Rail_Lost").Value = "not avail" Then
            OptionButton2.Enabled = False
            OptionButton2.Caption = "Rail N/A"
        Else
            If Range("DB_Rail_Lost").Value <> "not avail" Then
                OptionButton2.Enabled = True
                OptionButton2.Caption = "Rail"
            End If
        End If
    End If
    If Range("DB_TravelFrom").Value = 3 Then
        If Range("DB_Rail_Filt").Value = "not avail" Then
            OptionButton2.Enabled = False
            OptionButton2.Caption = "Rail N/A"
        Else
            If Range("DB_Rail_Filt").Value <> "not avail" Then
                OptionButton2.Enabled = True
                OptionButton2.Caption = "Rail"
            End If
        End If
   End If
            
End Sub

**Marzuk** · 12-21-2009, 11:19 AM

From my testing, you can not refer to a named range which includes multiple cells in a conditional statement. You have to specify which cell you want to test.

If Range("MyRange").Cells(1, 1).Value = "Test"

In this example, I've referenced the first cell in the range (which I set as a multidimensional named range on the sheet).

**solnajeff** · 12-21-2009, 11:19 AM

Hi

It depends upon the value of the range being compared, e.g. comparing a number to a string will throw an error, or if the range has an error value that will cause an error to show as well.

What are the value of the ranges being compared?

Regards

Jeff

**selbo81** · 12-21-2009, 12:08 PM

i didnt actually write this i'm trying to solve a company problem

this is the error thats thrown up, the problem is that some users can use it fine and other other get the run time error

**Leith Ross** · 12-21-2009, 12:14 PM

Hello selbo81.

To make your posts easier to read, copy, and edit please wrap your code. I did it for you this time. Here is how you can do it next time.

How to wrap your Code
1. Select all your code using the mouse.
2. Click on the # icon on the toolbar in the Message window. This will automatically wrap the text you selected with the proper Code tags to create a Code Window in your post.
3. To do it manually...
Use the Bulletin Board Code Tags
[code] at the start of the first line,
[/code] at the end of the last line.

To learn more about BB codes used in this forum, just click on the link below...

Bulletin Board Codes Tags