RowSource using Vlookup in VBA resulted Type Mismatch Error

The weird thing is, the code actually works by itself , that means I can select an item from the drop down list from Combobox 1 and Combobox 2 populates itself with no problem. It is when I execute another code (to export data), the Excel gives me the "run time error 13 type mismatch" message. Another weird thing is, even the second code works fine, that means data was perfectly exported. I just keep seeing this error message.

When "Dim nameSubCategory As Variant"

It's this line:

.RowSource = nameSubCategory

When "Dim nameSubCategory As String"

It's this line:

nameSubCategory = Application.VLookup(valCategory, QFCNames, 3, False)

Thank you!

But when I used "MsgBox nameSubCategory" to see if the vlookup works it does return the right answer?

Hi JP, here is the file.

Please click the button on the first tab and go to the very first tab (Quality Failure)

The code is for the Category combobox.

Thank you!

hey guys it's solved.

All it takes is to add:

If cboCategory.Value <> "" Then

Code

End If

The reason is the code actually clean the form before the next step (the "" value).

Thanks for all your help JP and Norie!