asked on 10/5/2018

Bug in VBA : Error 13

Hello everyone,

I am blocked. When i unload the Userform3 "New product" and i select the company in option button it goes to error.

Can you help to solve my problem

Thank you

VBA Microsoft Excel Microsoft Office

Last Comment

Roy Cox

10/9/2018

Jacques Geday

10/5/2018

I guess you need to post a sample workbook that show the error so we can help you.
gowflow

Roy Cox

10/5/2018

What error message are you getting? An example workbook would definitely help.

Where is the Option Button?

Fabrice Lambert

10/5/2018

Hi,

Error 13 is a type uncompatibility error.
Alas, without your source code, there is nothing we can do.

Adil Kh

10/5/2018

ASKER

Good afternoon, I attached the file so you can download it

Thank you

Martin Liss

10/5/2018

Still no attachment. Did you click the blue 'Upload' button?

Adil Kh

10/9/2018

ASKER

Sorry,

This is the file thank you. Please let me know if it is attached or not
Draft.xlsm

Martin Liss

10/9/2018

I believe the problem is in this code in Userform3. At line 10, 'd' is empty.

Private Sub UserForm_Initialize()
Dim D1 As Object, D2 As Object, D3 As Object, D4 As Object
Stop
Set OI = Worksheets("Items")

TV = OI.Range("X1").CurrentRegion
Set D1 = CreateObject("Scripting.Dictionary")

NL = UBound(TV, 1)
Set d = CreateObject("Scripting.Dictionary")
For i = 2 To NL
    D1(TV(i, 1)) = ""
    
Next i
Me.ComboBox4.List = D1.keys
Me.ComboBox4.SetFocus
End Sub