Userform
Hej CWJeg sidder og sætter en Userform op.
Jeg har kodet den, således at den er afhængig af brugerens input. Som det fx. fremgår af nedenstående kode, er valgene i combobox3 afhængig af brugerens input i combobox1 og combobox2.
Det jeg godt kunne tænke mig at lave, var en box(ved ikke præcis hvilken box man skal bruge), der returnerer en bestemt værdi udfra den værdi som brugeren vælger i combobox3. Det hele er sat op i arket "Lists", så hver gang brugen vælger får han en range af valgmuligheder i combobox3. Jeg kunne så godt tænke mig at den samtidig returneret en konkret værdi, lad os sige fra kolonne "F" udfra den han vælger i kolonne "B" i combobox3.
Lad mig høre om det er til at forstå eller om der er en der vil hjælpe over mail.
Private Sub ComboBox2_Change()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Lists")
Dim i As Integer
Me.ComboBox3.Clear
For i = 2 To sh.Range("A" & Application.Rows.Count).End(xlUp).Row
If sh.Range("A" & i).Value = "Item" Then
If sh.Range("C" & i).Value = Me.ComboBox2.Value And sh.Range("D" & i).Value = Me.ComboBox1.Value Then
Me.ComboBox3.AddItem sh.Range("B" & i)
End If
End If
Next i
End Sub