Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Patrick -- 424 Combo Box User Form
Partick,
I did what you did and I started with a fresh workbook, still not working. Could it something I am not doing in the properties area of VBA for the combo box. Otherwise maybe I am not naming my ranges correctly? Thank you for your help. I'm off to bed but I will look again tomorrow morning. The error is happing were i put ///// Private Sub UserForm_Initialize() Dim cVend As Range Dim cRan As Range Dim cProd As Range ///////// For Each cVend In wksLookupLists.Range("VendorList") //////// With Me.cboVend .AddItem cVend.Value .List(.ListCount - 1, 1) = cVend.Offset(0, 1).Value End With Next cVend For Each cRan In wksLookupLists.Range("RanchIDList") With Me.cboRan .AddItem cRan.Value .List(.ListCount - 1, 1) = cRan.Offset(0, 1).Value End With Next cRan For Each cProd In wksLookupLists.Range("ProduceIDList") With Me.cboProd .AddItem cProd.Value .List(.ListCount - 1, 1) = cProd.Offset(0, 1).Value End With Next cProd End Sub -- Though daily learning, I LOVE EXCEL! Jennifer |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Patrick -- 424 Combo Box User Form
For Each cVend In wksLookupLists.Range("VendorList") .Cells
"Jennifer" wrote: Partick, I did what you did and I started with a fresh workbook, still not working. Could it something I am not doing in the properties area of VBA for the combo box. Otherwise maybe I am not naming my ranges correctly? Thank you for your help. I'm off to bed but I will look again tomorrow morning. The error is happing were i put ///// Private Sub UserForm_Initialize() Dim cVend As Range Dim cRan As Range Dim cProd As Range ///////// For Each cVend In wksLookupLists.Range("VendorList") //////// With Me.cboVend .AddItem cVend.Value .List(.ListCount - 1, 1) = cVend.Offset(0, 1).Value End With Next cVend For Each cRan In wksLookupLists.Range("RanchIDList") With Me.cboRan .AddItem cRan.Value .List(.ListCount - 1, 1) = cRan.Offset(0, 1).Value End With Next cRan For Each cProd In wksLookupLists.Range("ProduceIDList") With Me.cboProd .AddItem cProd.Value .List(.ListCount - 1, 1) = cProd.Offset(0, 1).Value End With Next cProd End Sub -- Though daily learning, I LOVE EXCEL! Jennifer |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Patrick -- 424 Combo Box User Form
If that doesn't work, I'll send my file to you...
"Patrick Molloy" wrote: For Each cVend In wksLookupLists.Range("VendorList") .Cells "Jennifer" wrote: Partick, I did what you did and I started with a fresh workbook, still not working. Could it something I am not doing in the properties area of VBA for the combo box. Otherwise maybe I am not naming my ranges correctly? Thank you for your help. I'm off to bed but I will look again tomorrow morning. The error is happing were i put ///// Private Sub UserForm_Initialize() Dim cVend As Range Dim cRan As Range Dim cProd As Range ///////// For Each cVend In wksLookupLists.Range("VendorList") //////// With Me.cboVend .AddItem cVend.Value .List(.ListCount - 1, 1) = cVend.Offset(0, 1).Value End With Next cVend For Each cRan In wksLookupLists.Range("RanchIDList") With Me.cboRan .AddItem cRan.Value .List(.ListCount - 1, 1) = cRan.Offset(0, 1).Value End With Next cRan For Each cProd In wksLookupLists.Range("ProduceIDList") With Me.cboProd .AddItem cProd.Value .List(.ListCount - 1, 1) = cProd.Offset(0, 1).Value End With Next cProd End Sub -- Though daily learning, I LOVE EXCEL! Jennifer |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Adding items to a combo box on a user form | Excel Discussion (Misc queries) | |||
linking a form combo box... results from the combo box to another | Excel Discussion (Misc queries) | |||
Run Time Error 424 Combo Box User Form | Excel Programming | |||
How to: User Form to assign a user defined range to a macro variab | Excel Programming |