Type mismatch error while filling ComboBox ( Run-time error '-2147352571 (80020005)')

[goncalogera]

Hi, I have a userform that needs to output the names of suppliers ("Fornecedores") and banks ("Banco") from a table in the respective combo boxes, FornecedorBox and BancoBox. For that I used the following loop and it has been working perfectly until I migrated the file from my personal computer to the company's computers... It throws the type mismatch error (Ive highlighted in the code the lines that throw an error) and I cant figure out where the error is. Ive tried putting the VAL() function but it just returns all zeros since they all throw an error.

Private Sub UserForm_Initialize()
''''''' Fill-in IDbox '''''''

    With ThisWorkbook.Sheets("Confirmings")
        Me.IDBox.Value = .Range("A" & Rows.Count).End(xlUp).Value + 1
    End With

''''''' Fill-in combo box with bank name from table ''''''

    Dim i As Long
    Dim n As Long
    Dim sh As Worksheet

    Set sh = ThisWorkbook.Sheets("Spreads")
    n = sh.Range("A" & Application.Rows.Count).End(xlUp).Row

        For i = 2 To n
        With ThisWorkbook.Sheets("Spreads")
            [B][U]Me.BancoBox.AddItem sh.Cells(i, 1)[/U][/B]
        End With
        Next i

''''''' Fill-in combo box with supplier name ''''''

    Dim y As Long
    Dim f As Long
    Dim forn As Worksheet

    Set forn = ThisWorkbook.Sheets("Fornecedores")
    f = forn.Range("A" & Application.Rows.Count).End(xlUp).Row

        For y = 2 To f
        With ThisWorkbook.Sheets("Fornecedores")
           [B][U] Me.FornecedorBox.AddItem forn.Cells(y, 1)[/U][/B]
        End With
        Next y

End Sub

 

[Norie]

Does this work?

Me.Banco.List = Sheets("Spreads").Range("A2").Resize(n-1).Value

 

[Fluff]

When you get the error look at the cell it's trying to add to the combo, what is it's value?
You will get that error if the cell contains an error value

 

[goncalogera]

For anyone that encounters this issue, my error was the AddItem which was not been converted to string. Simply adding CStr() solved my problem, so, in my case, the final result was, for the second box, Me.FornecedorBox.AddItem Cstr(forn.Cells(y, 1)).

Thanks for the help anyway!

 

[Fluff]

Glad you sorted it & thanks for the feedback.