hoe kan ik de waarde's van een kolom weergeven die bepaald worden tussen een startdatum en einddatum?
Ik heb momenteel 3 comboboxen waar een waarde geselecteerd word, combobox1 is de hoofdwaarde, combobox2 heeft de waarden weer afhankelijk van combobox1 en combobox3 heeft dan de waarden afhankelijk van 1 en 2.
Nu wenst ik er 4de parameter aan toe te voegen en deze is dat het afhankelijk is van de periode tussen de startdatum en einddatum.
Momenteel is het dat mijn laatste combobox hier nummer 3 wel de waarde die hij uit de cel neemt waarvan deze in de vorm bestat als "testwagen formule 1" deze als volgt zal weergeven in de combobxlist:
testwagen
formule
1
Dit zou echter moeten blijven als testwagen formule 1.
Ik heb momenteel 3 comboboxen waar een waarde geselecteerd word, combobox1 is de hoofdwaarde, combobox2 heeft de waarden weer afhankelijk van combobox1 en combobox3 heeft dan de waarden afhankelijk van 1 en 2.
Nu wenst ik er 4de parameter aan toe te voegen en deze is dat het afhankelijk is van de periode tussen de startdatum en einddatum.
Momenteel is het dat mijn laatste combobox hier nummer 3 wel de waarde die hij uit de cel neemt waarvan deze in de vorm bestat als "testwagen formule 1" deze als volgt zal weergeven in de combobxlist:
testwagen
formule
1
Dit zou echter moeten blijven als testwagen formule 1.
Code:
Private Sub UserForm_Initialize()
cmdSave.Enabled = False
cmdDelete.Enabled = True
Frame2.Enabled = False
Dim sv, i As Long
cmdSave.Enabled = False
Frame2.Enabled = False
sv = Sheets(6).Cells(1).CurrentRegion
Set Dic = CreateObject("scripting.dictionary")
For i = 1 To UBound(sv)
If Not Dic.exists(sv(i, 1)) Then Dic.Item(sv(i, 1)) = Array(sv(i, 1), CreateObject("scripting.dictionary"), CreateObject("scripting.dictionary"))
Dic(sv(i, 1))(1).Item(sv(i, 6)) = Dic(sv(i, 1))(1).Item(sv(i, 6)) & " " & sv(i, 4)
Dic(sv(i, 1))(2).Item(sv(i, 6) & sv(i, 4)) = Array(sv(i, 4), Application.Index(sv, i, Array(1, 4, 6, 7, 10, 11, 12, 5, 2)), i)
Next i
ComboBox2.List = Dic.keys
Dim wb As Workbook: Set wb = ThisWorkbook
Dim WS As Worksheet
Dim LastRow As Long
Dim aCell As Range
Set WS = wb.Sheets("Type data")
With WS
LastRow = .Cells(.Rows.Count, "C").End(xlUp).Row
For Each aCell In .Range("C1:C" & LastRow)
If aCell.Value <> "" Then
Me.TextBox2.AddItem aCell.Value
End If
Next
End With
Set WS = wb.Sheets("Type data")
With WS
LastRow = .Cells(.Rows.Count, "O").End(xlUp).Row
For Each aCell In .Range("O1:O" & LastRow)
If aCell.Value <> "" Then
Me.TextBox5.AddItem aCell.Value
End If
Next
End With
End Sub
Private Sub ComboBox2_Change()
hsv
ComboBox4.List = Dic(ComboBox2.Value)(1).keys
ComboBox4.ListIndex = -1
End Sub
Private Sub ComboBox4_Change()
hsv
'MsgBox Dic(ComboBox2.Value)(1)(ComboBox4.Value)
ComboBox3.List = Split(Trim(Dic(ComboBox2.Value)(1)(ComboBox4.Value)))
End Sub
Private Sub ComboBox3_Change()
If ComboBox3.ListIndex > -1 Then
For i = 1 To 9
Controls("Textbox" & i).Value = Dic(ComboBox2.Value)(2)(ComboBox4.Value & ComboBox3.Value)(1)(i)
Next i
End If
End Sub
Private Sub hsv()
ComboBox3.ListIndex = -1
For i = 1 To 9
Me("textbox" & i) = ""
Next i
End Sub
Laatst bewerkt: