loop in form

[stefano]

Beste,

Ik heb een form gemaakt met onderstaande code. Ik vermoed dat ik dit beter kan laten 'loopen'. De vraag is natuurlijk hoe?

Private Sub CommandButton1_Click()
If CheckBox1.Value = True Then Cells(28, 3).Value = CheckBox1.Caption
If CheckBox2.Value = True Then Cells(28, 3).Value = CheckBox2.Caption
If CheckBox3.Value = True Then Cells(28, 3).Value = CheckBox3.Caption
If CheckBox4.Value = True Then Cells(28, 3).Value = CheckBox4.Caption
If CheckBox5.Value = True Then Cells(28, 3).Value = CheckBox5.Caption
If CheckBox6.Value = True Then Cells(28, 3).Value = CheckBox6.Caption
End Sub

Private Sub CommandButton1_Click()
for j = 1 to 6
[COLOR="#FF0000"]If CheckBox1.Value = True Then Cells(28, 3).Value = CheckBox1.Caption[/COLOR]
next j
End Sub

 

[OctaFish]

Waarom gebruik je checkboxen? Radiobuttons lijken mij veel logischer in dit geval. Bij een groep selectievakjes verwacht je als gebruiker dat je meerdere opties mag aanvinken, maar jij gebruikt er maar één zo te zien. En een willekeurige gebruiker snapt het dan dus ook niet. Die verwacht hier radiobuttons. Maar goed, jouw formulier .

Private Sub CommandButton1_Click()
for j = 1 to 6
     If Me(“CheckBox” & i).Value = True Then Cells(28, 3).Value = Me(“CheckBox” & i).Value.Caption
next j
End Sub

 

[stefano]

Dank je Octa.

En ok, ik gebruik radio-buttons. Ik luister naar goede raad.

dank !

:thumb:

 

[edmoor]

En dan zo:

Private Sub CommandButton1_Click()
    For i = 1 To 6
         If Me("OptionButton" & i) Then Cells(28, 3) = Me("OptionButton" & i).Caption
    Next i
End Sub

 

[stefano]

Maar ondanks de goede raad ga ik de mist in. Ik heb radiobuttons gebruikt ipv de checkbox maar loop vast op de code

Private Sub CommandButton1_Click()
For i = 101 To 106
[COLOR="#FF0000"]If Me(“OptionButton” & i).Value = True Then Cells(28, 3).Value = Me(“OptionButton” & i).Value.Caption[/COLOR]
Next i
End Sub


Private Sub CommandButton2_Click()
End Sub


Private Sub CommandButton3_Click()
Call UserForm_Initialize
End Sub


Private Sub CommandButton4_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
' (un)check option buttons
OptionButton101.Value = False
'OptionButton102.Value = False
'OptionButton103.Value = False
'OptionButton104.Value = False
'OptionButton105.Value = False
'OptionButton106.Value = False

' Deze worden standaard op aan gezet

OptionButton4.Value = True
OptionButton11.Value = True
OptionButton18.Value = True
OptionButton25.Value = True
OptionButton32.Value = True
OptionButton39.Value = True
OptionButton46.Value = True
OptionButton53.Value = True
OptionButton60.Value = True
OptionButton67.Value = True
OptionButton74.Value = True
OptionButton81.Value = True
OptionButton88.Value = True
OptionButton95.Value = True

End Sub

 

[edmoor]

Dan heb je niet naar mijn voorbeeld in #4 gekeken.

 

[stefano]

Ik heb wel gekeken maar niet goed , excuus Ed en dank !

 

[stefano]

Private Sub CommandButton1_Click()
For i = 101 To 106
[INDENT][/INDENT]If Me("OptionButton" & i) Then Cells(28, 3) = Me("OptionButton" & i).Caption
Next i

For j = 1 To 7
[INDENT][/INDENT]If Me("OptionButton" & j) Then Cells(34, 3) = Me("OptionButton" & j).Caption
Next j
End Sub

Van deze code weigert (?) excel het resultaat in cel C34 neer te zetten (zonder foutmelding)

 

[edmoor]

Daar is zonder een voorbeeld documentje niks van te zeggen.

 

[stefano]

Bij deze een voorbeeld. Zoals je ziet ga ik die loop in totaal 15 keer moeten herhalen .... ?

 

[edmoor]

OptionButtons 1 t/m 7 hebben geen Caption.

Dit kan je doen:

For j = 1 To 7
    If Me("OptionButton" & j) Then Cells(34, 3) = j
Next j

 

[stefano]

hehe, het werkt, dank je alvast.

Maar wat ik in dit geval niet vertelde was dat de selectie van 1 van die 7 optionbuttons gekoppeld is aan een waarde (zie de balk net er boven )

button 1 2 3 4 5 6 7
respectievelijk waarde -3 -2 -1 0 +1 +2 +3

en dat wordt alweer een ander verhaal om dat in elkaar te krijgen.

Kan je me nog eens een schop verkopen ?

 

[edmoor]

TRAP!

For j = 1 To 7
    If Me("OptionButton" & j) Then Cells(34, 3) = Choose(j, "-3", "-2", "-1", "0", "+1", "+2", "+3")
Next j

 

[VenA]

of 4 - j

 

[edmoor]

Voor het betere rekenwerk

 

[VenA]

In #13 staat wel een klein foutje maar is meer iets voor de TS om dit te zien.

 

[edmoor]

Dank je.
Aangepast