Another Error Message

[Guest]

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

 

[Guest]

Hi,
In VBE:

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

HTH

 

[keepITcool]

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 :

 

[Guest]

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.