Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
code for combo box
Hi,
I have 6 combo boxes on a spreadsheet. I would like the user to be able to pick up to 15 items from any of these combo boxes and store the information in a separate column on the worksheet. I was able to code one combo box to get the data into a column, but when I copy this code to another combo box and select a value, the selected value starts at the top of the column, when I would like it to start in the next available empty cell in the column. Below is the code I am using in one combo box: Private Sub ListBox_StateReg_dblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim i As Integer, icount As Integer For i = 0 To ListBox_StateReg.ListCount - 1 If ListBox_StateReg.Selected(i) Then icount = icount + 1 Cells(icount, 16) = ListBox_StateReg.list(i) End If Next i End Sub Any help would be greatly appreciated |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
code for combo box
Bob,
Worked like a charm! Thanks for your help. Joe "Bob Phillips" wrote: Private Sub ListBox_StateReg_dblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim i As Integer, icount As Integer iCount=Cells(Rows.Count,16).End(xlUp).Row If iCount = 1 And Cells(iCount,16).Value = "" then Else iCount=iCount + 1 End If For i = 0 To ListBox_StateReg.ListCount - 1 If ListBox_StateReg.Selected(i) Then icount = icount + 1 Cells(icount, 16) = ListBox_StateReg.list(i) End If Next i End Sub -- HTH RP (remove nothere from the email address if mailing direct) "combo box question" <combo box wrote in message ... Hi, I have 6 combo boxes on a spreadsheet. I would like the user to be able to pick up to 15 items from any of these combo boxes and store the information in a separate column on the worksheet. I was able to code one combo box to get the data into a column, but when I copy this code to another combo box and select a value, the selected value starts at the top of the column, when I would like it to start in the next available empty cell in the column. Below is the code I am using in one combo box: Private Sub ListBox_StateReg_dblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim i As Integer, icount As Integer For i = 0 To ListBox_StateReg.ListCount - 1 If ListBox_StateReg.Selected(i) Then icount = icount + 1 Cells(icount, 16) = ListBox_StateReg.list(i) End If Next i End Sub Any help would be greatly appreciated |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Combo Box Code | Excel Discussion (Misc queries) | |||
Combo Box Code | Excel Discussion (Misc queries) | |||
Combo Box Code... | Excel Programming | |||
Combo Box Code... | Excel Programming | |||
Combo Box Code... | Excel Programming |