Userform vraag

[Blizter]

Hoi kenners

Wie zou mij een stuk op weg kunnen helpen
Ik zou graag een userform willen maken.
Nu zou ik van deze pagina er een willen maken als volgt.

Eerst een keuzevak waar ik de mesnummer zou kunnen selecteren.
Zodra ik er een heb geselecteerd dan zou ik graag willen dat er een stel checkboxen worden aangevinkt met de aanwezigheid van bestanden.
Nu staat er een x als het bestand aanwezig is.
Dus dan zou de checkbox aangevinkt moeten worden.
Zodra er niks in staat zou de checkbox leeg moeten blijven.

Wie kan mij hier een eind mee op weg helpen ?????

Greetz

http://www.mijnbestand.nl/Bestand-8QATVZ3YGGQ6.xlsx

 

[Niels28]

Bedoel je het zo?

Bekijk bijlage Userform vraag.xlsm

Ps voor een link volgende keer "link toevoegen" gebruiken ipv HTML code

Niels

 

[Blizter]

Ja precies dank je

Alleen hoe kan ik ervoor zorgen dat je de checkbox niet meer kan invullen of betergezegt veranderen

 

[Warme bakkertje]

Zet bij alle checkboxen de eigenschap Locked op True

 

[Blizter]

Dank je wel

Nu nog de laatste vraag
Hoe kan ik nog het beste de datum weergeven in dezelfde rij ?????

 

[Warme bakkertje]

Ik vrees dat ik je hier even kwijt ben. Wanneer en waar moet deze datum dan geplaatst worden?

 

[Blizter]

Sorry voor de onduidelijke vraag.
Ik zou graag een vak willen maken die net als de checkboxen de datum opzoekt die bij het mesnummer hoort. (deze staat in de laatste kolom)

dus als ik een mes selecteer dan worden verschillende checkboxen aangevinkt. en ook de datum word dan weergegeven.

 

[Niels28]

Voeg een label toe op het userform en
vervang de code voor combobox1

Private Sub ComboBox1_Change()
If ComboBox1.ListIndex = -1 Then Exit Sub
For cb = 1 To 6
Me("CheckBox" & cb) = False
If UCase(Cells(ComboBox1.ListIndex + 1, 1).Offset(1, cb * 2)) = "X" Then Me("CheckBox" & cb) = True
Label1.Caption = Cells(ComboBox1.ListIndex + 1, 1).Offset(1, 14).Value
Next
End Sub

zie bijlage

Bekijk bijlage Userform%20vraag(2).xlsm


Niels

 

[Blizter]

Dank je wel jongens voor de hulp.