Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Combo Box created in code
Hello All €“ I need to create a Combo Box in code. What is the code to create
a Combo Box? Thanks Paul |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Combo Box created in code
Worksheet combo?
Sub CreateCombobox() '----------------------------------------------------------------- Dim oWs As Worksheet Dim oOLE As OLEObject Set oWs = ActiveSheet Set oOLE = ActiveSheet.OLEObjects.Add(ClassType:="Forms.Combo box.1", _ Left:=200, Top:=100, Width:=80, Height:=32) oOLE.ListFillRange = "A1:A10" End Sub '----------------------------------------------------------------- Forms combo? With ActiveSheet .DropDowns.Add(372.75, 46.5, 300, 50).Select Selection.ListFillRange = "B1:B3" End With -- HTH RP (remove nothere from the email address if mailing direct) "Paul" wrote in message ... Hello All - I need to create a Combo Box in code. What is the code to create a Combo Box? Thanks Paul |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Combo Box created in code
Bob thanks for the info. However, I developed the following code using the
form tool. The only problem is when the code runs; an additional €˜Sub - End Sub line of code is created. Here is the code: Private Sub UserForm_Initialize() ComboBox1.ColumnCount = 5 ComboBox1.RowSource = "a1:e4" ComboBox1.ControlSource = "a6" 'Place the ListIndex into cell a6 ComboBox1.BoundColumn = 0 End Sub And here is the additional code line that is return after the above code is finished. Private Sub ComboBox1_Change() End Sub What changes are required to prevent the additional lines of code? Thanks Again Paul "Bob Phillips" wrote: Worksheet combo? Sub CreateCombobox() '----------------------------------------------------------------- Dim oWs As Worksheet Dim oOLE As OLEObject Set oWs = ActiveSheet Set oOLE = ActiveSheet.OLEObjects.Add(ClassType:="Forms.Combo box.1", _ Left:=200, Top:=100, Width:=80, Height:=32) oOLE.ListFillRange = "A1:A10" End Sub '----------------------------------------------------------------- Forms combo? With ActiveSheet .DropDowns.Add(372.75, 46.5, 300, 50).Select Selection.ListFillRange = "B1:B3" End With -- HTH RP (remove nothere from the email address if mailing direct) "Paul" wrote in message ... Hello All - I need to create a Combo Box in code. What is the code to create a Combo Box? Thanks Paul |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to reference cell created from dropdown list in a combo box? | Excel Discussion (Misc queries) | |||
Add code to a excel's form created by program (Vb .Net) | New Users to Excel | |||
Adding Code to the This_workbook module of a created workbook | Excel Programming | |||
Disabling/enabling events with a button created by code?? | Excel Programming | |||
Execution of an externally created VBA code | Excel Programming |