Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
VBA Combo-Box
Can anyone help, this isnt working, and i cant for the life of me work
out why. With Sheet3 myRng = Array("B", "F", "G", "H", "I", "E") myCB = Array("cbCust", "cbMnth", "cbCons", "cbType", "cbReason", "cbSatus") i = LBound(myRng) For Each Rng In myRng .Range(Rng & "1", .Range(Rng & "65536").End (xlUp)).AdvancedFilter _ Action:=xlFilterCopy, CriteriaRange:="", CopyToRange:=Sheet4.Range(Rng & "1"), Unique:=True Sheet4.Range(Rng & "1").CurrentRegion.Offset(1, 0).Name = myCB (i) i = i + 1 Range(myCB).Sort Key1:=Sheet4.Range(myCB).Cells(1, 1), Order1:=xlAscending, Header:=xlYes myCB(i).RowSource = myCB(i) Next Rng End With The idea behind it is to add unique records to each of the Combo boxes, by copying from Sheet3 to Sheet4 to create a unique "behind the scenes" list. Thanks in advance if you can help. |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
linking a form combo box... results from the combo box to another | Excel Discussion (Misc queries) | |||
combo reference on another combo box for picking address etc. | Excel Worksheet Functions | |||
In Excel I need to set up a combo box based on another combo box. | Excel Discussion (Misc queries) | |||
"Combo Box - getting control combo box to stick in place in worksh | Excel Discussion (Misc queries) | |||
"Combo Box - getting control combo box to stick in place in worksh | Excel Discussion (Misc queries) |