Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
start value in a combobox
Hi
i have this in a userform . combobox Dim myrange3 As Range On Error Resume Next Set myrange3 = Sheets(Range("kurt!$h$1").Value).Range(Range("kurt !$h$1").Value) On Error GoTo 0 If myrange3 Is Nothing Then MsgBox ("Ingen mapper i Gruppen") Exit Sub End If For Each c In myrange3 kursist2.AddItem c.Text Next The same code is in another combobox and the get the same value but can't i say that the second combobox shall start in the range after the first combobox choice. Maybe this is better RAnge = 1-2-3-4-5-6-7-8-9-10 .............. I make my choice in combobox1 and take 5 as value Then i want my second combobox to start at 6 not again from 1 Can i do that? Regards alvin |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
start value in a combobox
I'm kind of confused at the ranges and worksheet names, but maybe something like
this will get you started: Option Explicit Dim myRng As Range Private Sub ComboBox1_Change() With Me.ComboBox1 If .ListIndex = myRng.Cells.Count - 1 Then Me.ComboBox2.RowSource = "" Me.ComboBox2.AddItem "Nothing to pick!" Else Me.ComboBox2.RowSource _ = myRng.Resize(myRng.Rows.Count - .ListIndex + 1, 1) _ .Offset(.ListIndex + 1, 0).Address(external:=True) End If End With End Sub Private Sub UserForm_Initialize() Set myRng = Worksheets("sheet1").Range("a1:a10") With Me.ComboBox1 .Style = fmStyleDropDownList .RowSource = myRng.Address(external:=True) End With End Sub Alvin Hansen wrote: Hi i have this in a userform . combobox Dim myrange3 As Range On Error Resume Next Set myrange3 = Sheets(Range("kurt!$h$1").Value).Range(Range("kurt !$h$1").Value) On Error GoTo 0 If myrange3 Is Nothing Then MsgBox ("Ingen mapper i Gruppen") Exit Sub End If For Each c In myrange3 kursist2.AddItem c.Text Next The same code is in another combobox and the get the same value but can't i say that the second combobox shall start in the range after the first combobox choice. Maybe this is better RAnge = 1-2-3-4-5-6-7-8-9-10 .............. I make my choice in combobox1 and take 5 as value Then i want my second combobox to start at 6 not again from 1 Can i do that? Regards alvin -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
fill combobox depending on selection from another combobox | Excel Discussion (Misc queries) | |||
OT :Start your own online business today !start making dollars | Excel Discussion (Misc queries) | |||
Start spreadsheet with WinXP start | Excel Worksheet Functions | |||
How Do I Load A ComboBox RowSource From The Results Of Another ComboBox | Excel Programming | |||
ComboBox start condition | Excel Programming |