Opgelost Wis/Reset knop (macro/vba)

[AlexW]

Hallo,

Wie zou mij kunnen helpen aan de juiste formule

Als je op "Wis / Reset" knop drukt, dan worden alle ingevulde velden B5, B9 en B13 gewist.

Maar ik zou het ook prettig vinden als de overige button's (ComandButton's) dan ook aangestuurd word door dezelfde knop en deze naar status "Vrij" maakt.
Nu moet ik dit steeds handmatig doen, maar zou automatisch handiger zijn.

Zie bijlage als voorbeeld.

 

[HSV]

Sub AlleVeldenWissen()
If MsgBox("Alle ingevulde cellen worden gewist. Wilt u doorgaan ?", vbYesNo + vbCritical + vbDefaultButton2, "Wissen ?") = vbYes Then


Range("B5:B6, B9:B10, B13:b14").ClearContents
 For j = 1 To 12
  With Sheets(1).OLEObjects("commandbutton" & j).Object
     .BackColor = -2147483628
     .Caption = "Vrij"
  End With
 Next j
End If
End Sub

Had je trouwens je vorige vraag niet nagekeken waarin er simpele codes voorbij kwamen?

 

[AlexW]

Sub AlleVeldenWissen()
If MsgBox("Alle ingevulde cellen worden gewist. Wilt u doorgaan ?", vbYesNo + vbCritical + vbDefaultButton2, "Wissen ?") = vbYes Then


Range("B5:B6, B9:B10, B13:b14").ClearContents
 For j = 1 To 12
  With Sheets(1).OLEObjects("commandbutton" & j).Object
     .BackColor = -2147483628
     .Caption = "Vrij"
  End With
 Next j
End If
End Sub

Had je trouwens je vorige vraag niet nagekeken waarin er simpele codes voorbij kwamen?

Ik had inderdaad je vorige code gemist, en inderdaad die is veel korter. Ik ga die code dus ook gebruiken.
Hartelijkdank voor uw hulp.

 

[HSV]

Graag gedaan.
Hier nog een heel stuk korter voor al je codes in Bladmodule Blad1.

' Druk knop status Vrij, Bezet, Gereed
Sub hsv(j)
With Sheets(1).OLEObjects("CommandButton" & j).Object
    .Accelerator = .Accelerator Mod 3 + 1
    .Caption = Choose(.Accelerator, "vrij", "bezet", "gereed")
    .BackColor = Choose(.Accelerator, -2147483628, 49407, 4697456)
  End With
End Sub


Private Sub CommandButton1_Click()
hsv 1
End Sub




Private Sub CommandButton2_Click()
hsv 2
End Sub


Private Sub CommandButton3_Click()
hsv 3
End Sub


Private Sub CommandButton4_Click()
hsv 4
End Sub


Private Sub CommandButton5_Click()
hsv 5
End Sub


Private Sub CommandButton6_Click()
hsv 6
End Sub


Private Sub CommandButton7_Click()
hsv 7
End Sub


Private Sub CommandButton8_Click()
hsv 8
End Sub


Private Sub CommandButton9_Click()
hsv 9
End Sub


Private Sub CommandButton10_Click()
hsv 10
End Sub


Private Sub CommandButton11_Click()
hsv 11
End Sub


Private Sub CommandButton12_Click()
hsv 12
End Sub

 

[AlexW]

Graag gedaan.
Hier nog een heel stuk korter voor al je codes in Bladmodule Blad1.

' Druk knop status Vrij, Bezet, Gereed
Sub hsv(j)
With Sheets(1).OLEObjects("CommandButton" & j).Object
    .Accelerator = .Accelerator Mod 3 + 1
    .Caption = Choose(.Accelerator, "vrij", "bezet", "gereed")
    .BackColor = Choose(.Accelerator, -2147483628, 49407, 4697456)
  End With
End Sub


Private Sub CommandButton1_Click()
hsv 1
End Sub




Private Sub CommandButton2_Click()
hsv 2
End Sub


Private Sub CommandButton3_Click()
hsv 3
End Sub


Private Sub CommandButton4_Click()
hsv 4
End Sub


Private Sub CommandButton5_Click()
hsv 5
End Sub


Private Sub CommandButton6_Click()
hsv 6
End Sub


Private Sub CommandButton7_Click()
hsv 7
End Sub


Private Sub CommandButton8_Click()
hsv 8
End Sub


Private Sub CommandButton9_Click()
hsv 9
End Sub


Private Sub CommandButton10_Click()
hsv 10
End Sub


Private Sub CommandButton11_Click()
hsv 11
End Sub


Private Sub CommandButton12_Click()
hsv 12
End Sub

Supper THANKS !!

 

[HSV]

Verander nog even de code naar.

Sub AlleVeldenWissen()
If MsgBox("Alle ingevulde cellen worden gewist. Wilt u doorgaan ?", vbYesNo + vbCritical + vbDefaultButton2, "Wissen ?") = vbYes Then


Range("B5:B6, B9:B10, B13:b14").ClearContents
 For j = 1 To 12
  With Sheets(1).OLEObjects("commandbutton" & j).Object
     .BackColor = -2147483628
     .Caption = "Vrij"
     .Accelerator = 1      ' toegevoegd
  End With
 Next j
End If
End Sub