If statement - visual basic for an input form

[emily2309]

I am creating a user input form where the user can enter data about what they have eaten on a certain day. I am using radio buttons, so when the radio button has been clicked, it automatically puts something into cell A1. What has been put into cell A1 will then be used to say what is in the combo box named Cbo_FoodItem. I have used the following code:

With Me.Cbo_FoodItem
If Worksheet("na").Range("A1") = "carbs" Then
Cbo_FoodItem.List = Worksheet("foodtable").Range("B2:B215").Value
End If
End With

However, when i try to test it, i get an error which then highlights the "Worksheet" after IF and says "Sub or Function not defined".
Obviously there is something wrong with the formulae, however i cannot work it out. Please help.
I've only just started using visual basic, but i am starting to get the gist of it.
Thanks

 

[VoG]

You should stick to your existing thread http://www.mrexcel.com/forum/showthread.php?t=435142

 

[snb_]

A oneliner will do

If Thisworkbook.sheets("na").Range("A1") = "carbs" Then Cbo_FoodItem.List = Thisworkbook.sheets("foodtable").Range("B2:B215")

 

[Norie]

A one letter will do - it should be Worksheets not Worksheet.

 

[snb_]

@Norie

filling a combobox with

Cbo_FoodItem.List = Worksheet("foodtable").Range("B2:B215[COLOR=red]").Value[/COLOR]

????

 

[Norie]

Sorry I don't know what you mean.

That code is also missing the vital s.

 

[emily2309]

I worked out the s, sorry about that lol.
Now i have another problem, it's telling me that it has run time error 9 and highlights the following:


Sub Food_Input_open()
Food_Input.Show
End Sub

 

[Norie]

Emily

Goto Tools>Options and check Break on All Errors on the General tab.

Now when you run the code and get that error you should be able to find out what the problem is.

It's most likely to be something in the userform's Initialize event code, if you have any of course.

 

[emily2309]

Thank you. It's now telling me the issue is again with the IF statement:

With Me.Cbo_FoodItem
If Worksheets("na").Range("A1") = "carbs" Then
Cbo_FoodItem.List = Worksheets("foodtable").Range("B2:B215").Value
End If

I don't know what is wrong with this.

 

[Norie]

Do you have a worksheet called 'foodtable'?

Do you have a worksheet called 'na'?