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 |
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 |
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 |
All times are GMT +1. The time now is 03:22 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com