aanpassen van toggle button code

[bjornesto]

Ik heb toggle buttons en als je op een algemene toggle (1000 hier in dit voorbeeld) button klikt dan doet hij deze code (deze werkt)

Hoe kan je dit simpeler zetten dat je niet telkens die buttons moet beschrijven zoals hieronder

Private Sub ToggleButton1000_Click()
    Dim blkProc As Boolean
On Error GoTo earlyexit
    If ToggleButton1000.Value = True Then
    Rows("7:14").EntireRow.Hidden = False
    blkProc = True
    ToggleButton6.Value = True
    ToggleButton7.Value = True
    ToggleButton8.Value = True
    ToggleButton9.Value = True
    ToggleButton10.Value = True
    ToggleButton11.Value = True
    ToggleButton12.Value = True
    ToggleButton13.Value = True
    blkProc = False
    Else
    Rows("7:14").EntireRow.Hidden = True
    blkProc = False
    ToggleButton6.Value = False
    ToggleButton7.Value = False
    ToggleButton8.Value = False
    ToggleButton9.Value = False
    ToggleButton10.Value = False
    ToggleButton11.Value = False
    ToggleButton12.Value = False
    ToggleButton13.Value = False
    blkProc = True
    End If
earlyexit:

 

[ExcelAmateur]

bjornesto,

Kijk of dit zo werkt.

Private Sub ToggleButton1000_Click()
    Dim blkProc As Boolean
On Error GoTo earlyexit
  If ToggleButton1000.Value = True Then
      Rows("7:14").EntireRow.Hidden = False
      blkProc = True
    For I = 6 To 13
      Me("ToggleButton" & I).Value = True
    Next
    blkProc = False
  Else
      Rows("7:14").EntireRow.Hidden = True
      blkProc = False
    For I = 6 To 13
      Me("ToggleButton" & I).Value = False
    Next
  End If
earlyexit:

 

[edmoor]

Of deze:

Private Sub ToggleButton1000_Click()
    Dim blkProc As Boolean
    On Error GoTo earlyexit

    Rows("7:14").EntireRow.Hidden = Iif(ToggleButton1000.Value, False, True)
    blkProc = Iif(ToggleButton1000.Value, True, False)
    For I = 6 To 13
        Me("ToggleButton" & I).Value = Iif(ToggleButton1000.Value, True, False)
    Next
    blkProc = Iif(ToggleButton1000.Value, False, True)
earlyexit:

 

[bjornesto]

beste
beide gevallen werken perfect dank u hiervoor

 

[bjornesto]

edmoor

Hoe moet je dan die caption in u code verwerken met als de waarde waar is "Hide all rows" en "show all rows" als het false is op de togglebutton?

 

[edmoor]

In je voorbeeld wordt niet over caption gerept. Als je meer wilt dan alleen het True en False verhaal dan is mijn voorbeeld er niet geschikt voor en kun je beter die van ExcelAmateur gebruiken.

 

[snb]

of:

Private Sub ToggleButton1000_Click()
    Rows("7:14").Hidden = not togglebutton1000

    For j = 6 To 13
      Me("ToggleButton" & j) = togglebutton1000
    next
End Sub

 

[bjornesto]

edmoor
dat is waar wat je zei ik had er niets over gevraagd. Is er later bij gekomen.

Snb dit werkt dank u voor de code