Hey GUYS,
Patrick gave me this the other night. Works great in the workbook he suplied
until i copy it and put it into mine. This part looks in column f finds the
the differant markets and fills the combo box in the form. The como box then
fills the list box with four differant columns. Take a look at this area
********** the error message reads compile error, user defined type not
defined. Any suggestions. Maybe other way to write it? THank you.
Private Sub LoadMarkets()
Dim markets As New Scripting.Dictionary **************
For index = 2 To source.Rows.Count
market = source.Cells(index, "F").Value
If Not markets.Exists(market) Then
markets.Add market, market
cmbMarket.AddItem market
End If
Next
End Sub
--
Though daily learning, I LOVE EXCEL!
Jennifer

Hi,
In VBE:

Tools--References .. select Microsoft Scripting Runtime from "Available
References". It should now work OK.

HTH

"Jennifer" wrote:

Hey GUYS,
Patrick gave me this the other night. Works great in the workbook he suplied
until i copy it and put it into mine. This part looks in column f finds the
the differant markets and fills the combo box in the form. The como box then
fills the list box with four differant columns. Take a look at this area
********** the error message reads compile error, user defined type not
defined. Any suggestions. Maybe other way to write it? THank you.
Private Sub LoadMarkets()
Dim markets As New Scripting.Dictionary **************
For index = 2 To source.Rows.Count
market = source.Cells(index, "F").Value
If Not markets.Exists(market) Then
markets.Add market, market
cmbMarket.AddItem market
End If
Next
End Sub
--
Though daily learning, I LOVE EXCEL!
Jennifer

or make your snippet latebound
(a bit slower but if item count is not high s/b ok.

dim markets as object
set markets = Createobject("scripting.dictionary")





--
keepITcool
| www.XLsupport.com | keepITcool chello nl | amsterdam


Toppers wrote :

Hi,
In VBE:

Tools--References .. select Microsoft Scripting Runtime from
"Available References". It should now work OK.

HTH

"Jennifer" wrote:

Hey GUYS,
Patrick gave me this the other night. Works great in the workbook
he suplied until i copy it and put it into mine. This part looks in
column f finds the the differant markets and fills the combo box in
the form. The como box then fills the list box with four differant
columns. Take a look at this area ********** the error message
reads compile error, user defined type not defined. Any
suggestions. Maybe other way to write it? THank you. Private Sub
LoadMarkets() Dim markets As New Scripting.Dictionary
************** For index = 2 To source.Rows.Count
market = source.Cells(index, "F").Value
If Not markets.Exists(market) Then
markets.Add market, market
cmbMarket.AddItem market
End If
Next
End Sub
--
Though daily learning, I LOVE EXCEL!
Jennifer

You guys are awesome! Hey Topper what does scripting runtime mean and what
are all those available references. How do i learn to use them? Thanks once
again.
--
Though daily learning, I LOVE EXCEL!
Jennifer


"Toppers" wrote:

Hi,
In VBE:

Tools--References .. select Microsoft Scripting Runtime from "Available
References". It should now work OK.

HTH

"Jennifer" wrote:

Hey GUYS,
Patrick gave me this the other night. Works great in the workbook he suplied
until i copy it and put it into mine. This part looks in column f finds the
the differant markets and fills the combo box in the form. The como box then
fills the list box with four differant columns. Take a look at this area
********** the error message reads compile error, user defined type not
defined. Any suggestions. Maybe other way to write it? THank you.
Private Sub LoadMarkets()
Dim markets As New Scripting.Dictionary **************
For index = 2 To source.Rows.Count
market = source.Cells(index, "F").Value
If Not markets.Exists(market) Then
markets.Add market, market
cmbMarket.AddItem market
End If
Next
End Sub
--
Though daily learning, I LOVE EXCEL!
Jennifer