AddRange Code?

[emily2309]

Is there something similar to the additem code, where you can actually add a range from the spreadsheet, rather than a single item, to avoid writing out long lists?
Thanks

 

[Andrew Poulsom]

Where have you put that code? Please post the entire procedure.

 

[emily2309]

Right, new plan: I have changed the food group combo box to radio buttons, so when the radio button has been clicked, it automatically puts something into cell A1. 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".
Is there anything wrong with the formulae??

 

[Andrew Poulsom]

Worksheets

 

[emily2309]

Oh yeah... Thanks
Now it's got rid of that error, however it's now coming up with "Run Time Error 9, Subscript out of range"??

 

[Andrew Poulsom]

On which line? Do you have worksheets named "na" and "foodtable" in the active workbook?

 

[emily2309]

It doesn't highlight anything
I do have both sheets in the open workbook

 

[emily2309]

Sub FoodInput_open()
FoodInput.Show
End Sub

It's saying the above in red is the problem now, which is the coding for the macro.

 

[Andrew Poulsom]

Do you have a UserForm named FoodInput? If so please post all the code in its module.

 

[Andrew Poulsom]

Via PM:

Private Sub CommandButton1_Click()
'copy the data to the database
Sheets("na").Range("A1").Value = Cbo_Day.Value
Sheets("na").Range("A3").Value = Cbo_FoodItem.Value
Sheets("na").Range("A4").Value = TxtAmount.Value

'clear the data
UserForm1.Cbo_FoodItem.Value = ""
UserForm1.TxtAmount.Value = ""

End Sub

I get a compile error with UserForm1. What's that?

<!-- / message --><!-- sig -->

 

[emily2309]

Ok i have managed to get the form working, but the food items bit still isn't coming up with food items from the food group i selected with the radio buttons..