Adil Kh
asked on
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
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
What error message are you getting? An example workbook would definitely help.
Where is the Option Button?
Where is the Option Button?
Hi,
Error 13 is a type uncompatibility error.
Alas, without your source code, there is nothing we can do.
Error 13 is a type uncompatibility error.
Alas, without your source code, there is nothing we can do.
ASKER
Good afternoon, I attached the file so you can download it
Thank you
Thank you
Still no attachment. Did you click the blue 'Upload' button?
ASKER
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
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Thank you all For your help and solutions.
ASKER
I have another problem in the same file should i continue here or create another Question?
Thank you
Thank you
Start a separate question please
gowflow