Avatar of Adil Kh
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
VBAMicrosoft ExcelMicrosoft Office

Avatar of undefined
Last Comment
Roy Cox

8/22/2022 - Mon
gowflow

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

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

Where is the Option Button?
Fabrice Lambert

Hi,

Error 13 is a type uncompatibility error.
Alas, without your source code, there is nothing we can do.
Your help has saved me hundreds of hours of internet surfing.
fblack61
Adil Kh

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

Thank you
Martin Liss

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

ASKER
Sorry,

This is the file thank you. Please let me know if it is attached or not
Draft.xlsm
Get an unlimited membership to EE for less than $4 a week.
Unlimited question asking, solutions, articles and more.
Martin Liss

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

Open in new window

ASKER CERTIFIED SOLUTION
Rory Archibald

Log in or sign up to see answer
Become an EE member today7-DAY FREE TRIAL
Members can start a 7-Day Free trial then enjoy unlimited access to the platform
Sign up - Free for 7 days
or
Learn why we charge membership fees
We get it - no one likes a content blocker. Take one extra minute and find out why we block content.
Not exactly the question you had in mind?
Sign up for an EE membership and get your own personalized solution. With an EE membership, you can ask unlimited troubleshooting, research, or opinion questions.
ask a question
Adil Kh

ASKER
Thank you all For your help and solutions.
Adil Kh

ASKER
I have another problem in the same file should i continue here or create another Question?

Thank you
I started with Experts Exchange in 2004 and it's been a mainstay of my professional computing life since. It helped me launch a career as a programmer / Oracle data analyst
William Peck
Roy Cox

Start a separate question please