I_AM
Board Regular
- Joined
- Jul 2, 2002
- Messages
- 141
Hi,
In Column A I have Dates entered thus-01/01/04,02/01/04 etc.. but formatted to show-Jan-04. The following Code will Show 2 entries of Jan-04 in ComboBox1.
Dim AllCells As Range, Cell As Range
Dim NoDupes As New Collection
Dim ListSort As Range
With Sheet1
.Activate
Range(("A2"), Range("A65536").End(xlUp)).SpecialCells(xlCellTypeVisible).Activate
Selection.Activate
On Error Resume Next
For Each Cell In Selection
NoDupes.Add Cell.Value, CStr(Cell.Value)
Next Cell
On Error GoTo 0
For Each Item In NoDupes
Main_Menu.ComboBox1.AddItem Format(Item, "[$-409]mmm-yy;@")
Next Item
How to get the Code to display only one entry?
Thanks Regards Ron
In Column A I have Dates entered thus-01/01/04,02/01/04 etc.. but formatted to show-Jan-04. The following Code will Show 2 entries of Jan-04 in ComboBox1.
Dim AllCells As Range, Cell As Range
Dim NoDupes As New Collection
Dim ListSort As Range
With Sheet1
.Activate
Range(("A2"), Range("A65536").End(xlUp)).SpecialCells(xlCellTypeVisible).Activate
Selection.Activate
On Error Resume Next
For Each Cell In Selection
NoDupes.Add Cell.Value, CStr(Cell.Value)
Next Cell
On Error GoTo 0
For Each Item In NoDupes
Main_Menu.ComboBox1.AddItem Format(Item, "[$-409]mmm-yy;@")
Next Item
How to get the Code to display only one entry?
Thanks Regards Ron