Controle van Checkboxen in group

Status
Niet open voor verdere reacties.
W

WhiteSky

Gebruiker
Lid geworden
15 feb 2018
Berichten
54
Hoi,

Is het mogelijk om in de userform in bijlage te gaan kijken of in frame 'Einde Lot' alle checkboxen in de kolommen onder 'Genomen' zijn aangevinkt of niet?

Grtz

Leek in VBA
 

Bijlagen

  • Shift.xlsm
    42 KB · Weergaven: 31
Hierbij een stukje code waarbij ik de checkboxen vanaf WSL2 t/m LAF38 controleer:


Code: 
For i = 2 To 9
    If Controls("cb_wsl" & i) Then X = X + 1
Next
If cb_gel Then X = X + 1
If cb_uj Then X = X + 1
If cb_dcf Then X = X + 1
If cb_laf38 Then X = X + 1

If X < 12 Then
    MsgBox "Niet alle checkboxes onder Genomen zijn aangevinkt"
    Exit Sub
End If
 
Of
Code: 
Sub M_snb()
  For j = 1 To frm_eindelot.Controls.Count
    If TypeName(frm_eindelot.Controls(j - 1)) = "CheckBox" And frm_eindelot.Controls(j - 1) = 0 Then Exit For
  Next

  If j <= frm_eindelot.Controls.Count Then MsgBox "oei"
End Sub


Overigens kan jouw code nog ingrijpend vereenvoudigd/gereduceerd worden.
Voor hoe dat kan zie https://www.snb-vba.eu/VBA_Userform_invoercontrole.html
 
Laatst bewerkt:
Snb: Met jouw code gaat hij toch alle checkboxen controleren en niet enkel die onder "Genomen" staan? Of zie ik dat fout?
Kan ik die checkboxen in een group zetten en daarmee iets doen of gaat dat niet?

Ivm vereenvoudigen van de code ik zal het eens bekijken, ben al blij dat het werkt.

Grtz
 
Zet dan de vinkvakken die niet gecontroleerd hoeven te worden in een (of meer) aparte 'frames'.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan