Beste Leden,
Momenteel heb ik in mijn userform (op advies van het forum) een kalender erin gezet die de toekomst aan kan.:thumb:
In mijn userform heb ik een vlookup die prima werkt, zodra ik Combobox1 verander krijg ik het gewenste resultaat.
Ik gebruik hiervoor de volgende code. het stukje Werkuren.Caption.
Zodra ik een naam verander doet de vlookup zijn werk.
Bij de label lbldatum krijg ik dit niet voor elkaar, voorheen met de DTPicker1 lukt dit wel.
Ik gebruik nu de code :
op het tabblad doet hij wel mooi de datum veranderen, dus een gedeelte van de code werkt, echter zou ik graag willen dat ook de vlookup werkt.
Ik heb het bestand toegevoegd als voorbeeld, je moet wel als eerste een datum selecteren dan komt het aantal uren vanzelf naar voren.
De naam noot heeft op 3-6-2019 1 uur, 4-6-2019 2uur, 5-6-2019 3uur, 6-6-2019 4 uur en 7-6-2019 5 uur. dit kun je terug zijn op het tabblad informatie kollom A tot D
Mvg
Momenteel heb ik in mijn userform (op advies van het forum) een kalender erin gezet die de toekomst aan kan.:thumb:
In mijn userform heb ik een vlookup die prima werkt, zodra ik Combobox1 verander krijg ik het gewenste resultaat.
Ik gebruik hiervoor de volgende code. het stukje Werkuren.Caption.
Code:
Private Sub ComboBox1_Change()
ComboBox6.Visible = True
ComboBox2.Visible = True
TextBox1.Visible = True
TextBox5.Visible = True
TextBox6.Visible = True
TextBox7.Visible = True
TextBox11.Visible = True
TextBox15.Visible = True
Label2.Visible = True
Label3.Visible = True
Label4.Visible = True
Label5.Visible = True
Label6.Visible = True
Label7.Visible = True
Controlen.Visible = True
Werkuren.Caption = Application.WorksheetFunction.VLookup(ComboBox1.Text, Worksheets("Informatie").Range("A2:D50"), 4, False)
End Sub
Zodra ik een naam verander doet de vlookup zijn werk.
Bij de label lbldatum krijg ik dit niet voor elkaar, voorheen met de DTPicker1 lukt dit wel.
Ik gebruik nu de code :
Code:
Private Sub LblDatum_change()
Sheets("Informatie").Range("B1").Value = UserForm1.LblDatum
Werkuren.Caption = Application.VLookup. _
VLookup(ComboBox1.Text, Worksheets("Informatie").Range("A2:D50"), 4, False)
End Sub
op het tabblad doet hij wel mooi de datum veranderen, dus een gedeelte van de code werkt, echter zou ik graag willen dat ook de vlookup werkt.
- Is het mogelijk om ook al heb ik een naam geselecteerd en dan daarna de datum verander dat dan alsnog de vlookup zijn werk doet?
Ik heb het bestand toegevoegd als voorbeeld, je moet wel als eerste een datum selecteren dan komt het aantal uren vanzelf naar voren.
De naam noot heeft op 3-6-2019 1 uur, 4-6-2019 2uur, 5-6-2019 3uur, 6-6-2019 4 uur en 7-6-2019 5 uur. dit kun je terug zijn op het tabblad informatie kollom A tot D
Mvg
Bijlagen
Laatst bewerkt: