ik heb je code toegevoegd MAAR
Als ik de code test negeerd het programma de cell B1 en werkt het programma zonder de code in deze cell te typen.
Wat doe ik fout om je code goed te implementeren? zodat het programma EERST controleerd wat er in cell B1 staat?
Private Sub Loting_Click()
' 1 maal klikken veranderd de naam en zou moeten voorkomen dat de knop een tweede maal het programma doet lopen
' Commandbutton2 moet deze knop terug kunnen activeren samen met het resetten van de naam naar Start Loting
Randomize
For j = 1 To 16
Cells(j, 1) = Rnd
Next
[A1:A16] = [index(rank(A1:A16,A1:A16),)]
Loting.Enabled = False
Loting.Caption = "Loting verricht"
Loting.BackColor = 250
'Deactiveerd knop + veranderd knop in rood + wijzigt naam in de Loting verricht
'veranderd de naam in loting verricht na het indrukken van de knop
End Sub
Private Sub CommandButton2_Click() '"Activeer Loting"
Loting.Caption = "Start Loting"
Loting.Enabled = True
Loting.BackColor = 45875
If Range("B1").Value = "Jumbo" Then CommandButton2.Enabled = True
'Toestand op indrukken = Actief + groen + Waar
End Sub
'Activeer loting knop reset naam van Loting knop
'B1 paswoord invullen = activeer loting activeren!