Excel VBA Run-time error '13' Type mismatch

I have an excel sheet which is working on my friends machine but gives "Excel VBA Run-time error '13' Type mismatch" on my machine.
Its coming while running a macro for a file and same I tried to sent to other colleague and its working fine on his machine. This was just to check if some how file got corrupted. I'm allways getting the following error: Excel VBA Run-time error '13' Type mismatch

I didn't change anything in the macro so dont know why am I gueting the error.

Please help me in finding a workaround or a possible solution for the same.

Post the code so we can see and pls highlight the line that gives the error.

Thanks for the quick response

The cell name is "ws5_In_Txt_Required" which is having value as No, but once I press the button which triggers the macro, it takes to the if loop.

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
If Range("ws5_In_Txt_Required") = "Yes" And (Range("ws23_Out_Date_StartDate") > Range("ws23_Out_Date_EndDate")) Then
MsgBox ("Start Date must be before the End Date.")

error = True

Else
.....
....
...
End If
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Code written on cell having name as "ws23_Out_Date_StartDate"

=IF(ws5_In_Int_StartDate="Insert start date below",DATE(YEAR(ws5_In_Date_StartDate),MONTH(ws5_In_Date_StartDate),DAY(ws5_In_Date_StartDate)),'Duration1'!H40)

Just to add and the cell "ws5_In_Int_StartDate" is blank

and this same excel is working fine on my collegues machine, i tried almost on 5-7 machines, but only having problem in my machine

Is there a Excel version difference between your machine and your co-workers?

If not, the "ws5_whatever_whatever".....how is that set?


Also, instead of posting your code in +++++++++'s, use the tags [ code ] and [ /code ] around it. Like so:

Please Login or Register  to view this content.

The mods are kinda hot on the correct use of [ code ] tags in here....

Below is the error message appears in the excel when I run the macro button:

Macro_error_Excel.jpg
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Line where it points to debug: ==> The first line in the code with "If" loop

Please Login or Register  to view this content.

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Code written on cell having name as "ws23_Out_Date_StartDate"

=IF(ws5_In_Int_StartDate="Insert start date below",DATE(YEAR(ws5_In_Date_StartDate),MONTH(ws5_In_Date_StartDate),DAY(ws5_In_Date_StartDate)),'Duration1'!H40)

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Values in cell : ws5_In_Txt_Required
Its a List box where there are only 2 options "Yes" or "No"
While we type "No" still it gives the same error on same line mentioned above.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Value in cell : ws5_In_Int_StartDate. This is also a list box with default value as "End of deployment phase"
But the value should not matter if the value in above cell i.e. Ws5_In_Txt_Required is "No"
And Similarly with cell "ws5_In_Date_EndDate". Value in this cell is only required if cell "Ws5_In_Txt_Required" does'nt have value as "No"
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

The way this line is written:

Please Login or Register  to view this content.

The macro will always evaluate whether Range("ws23_Out_Date_StartDate") > Range("ws23_Out_Date_EndDate") even if Range("ws5_In_Txt_Required") ="No". So it is creating an error because these fields contain text rather than a valid date. If you want to compare start date and end date make sure users can only specify a valid date. If you only want to compare start date and end date if the first field is equal to yes then change the code to look like this. You can also use IsDate to test the date fields before comparing them to avoid the error occuring.

Please Login or Register  to view this content.

are you sure there are no error values in any of the three cells on your machine?

Problem has been resolved now. Thanks a lot.

The problem was on date format of my laptop.
Date on my machine was set to US date format and in the excel macros were taking date format as British date format.

Thanks for all your support in helping me.

Hi all, first post for me.

Please help!

Private Sub Worksheet_Change(ByVal Target As Range)
'Check if value = "Paid"
If Target.Value = "Paid" Then
'Turn off events to prevent recursive calls
Application.EnableEvents = False
'Copy row to new worksheet
Target.EntireRow.Copy
With Worksheets("GR & Sent for Payment")
.Range("A" & .Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll
End With
'Delete the source row
Target.EntireRow.Delete
'Turn events back on
Application.EnableEvents = True
End If
End Sub


I get a runtime error type 13 mismatch on the above code.

Debug points to line 3

I want the macro to move one line from a worksheet to another when the text entered is 'Paid'

Hope you guys can help!

thanks