Hi Michele,Hi Hui,
But how will I link it to cell C2 or C4? Kindly show in my attached excel.
Thanks.
Regards,
Michelle
Hi Michele,
Maybe try this way and let us know if it is what you were looking for:
Step 1: create a list of the possible data for the combo box... just place the values in a column and give it a name in the up left corner as shown below:View attachment 35984
Step 2: add a combo box (ActiveX control):
View attachment 35985
Step 3: Go to properties (you should be in structure mode):
View attachment 35987
Step 4: Find the Linked cell (set the cell where the output will be inserted... C7 in this ex.) and ListFillRange (set the the list of possible values... the one we created earlier "List"):
View attachment 35988
Step 5: Exit structure mode (note: to edit the properties of the combo box as in step 3, you will need to reactivate this mode):
View attachment 35989
This way the combo box is always visible and can be accessed without selecting the left cell
Best regards
Please see attached... should work if you use named ranges
And also, I'm not Hui
Please see attached... should work if you use named ranges
And also, I'm not Hui
Private Sub Workbook_Open()
With Sheet1.ComboBox1
.AddItem "Double Box Built Up Section"
.AddItem "Welded Box Section"
.AddItem "Circular Section"
.AddItem "Square Section"
.AddItem "I Section"
End With
End Sub
Private Sub Workbook_Open()
With Sheet1.ComboBox1
.AddItem "Double Box Built Up Section"
.AddItem "Welded Box Section"
.AddItem "Circular Section"
.AddItem "Square Section"
.AddItem "I Section"
End With
With Sheet2.ComboBox1
.AddItem "Double Box Built Up Section"
.AddItem "Welded Box Section"
.AddItem "Circular Section"
.AddItem "Square Section"
.AddItem "I Section"
End With
End Sub
Dear Hui,
Thanks for the suggestion. What if I have 10sheets, how am I going to write it?
Regards,
Michelle
Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
With ws.OLEObjects("combobox1").Object
.AddItem "Double Box Built Up Section"
.AddItem "Welded Box Section"
.AddItem "Circular Section"
.AddItem "Square Section"
.AddItem "I Section"
End With
Next ws
End Sub