Na veel vijven en zessen had ik zelf de macro gemaakt en doet het
Ik ben daar al verschrikkelijk blij mee
De programeertaal zal voor de kenner korter dan de mijne maar ik wil het niet meer veranderen nu het eindelijk werkt
Ik hen nog wel een andere vraagje
Op blad 1 heb ik ToggleButton6t/m 10 gemaakt
Op blad 2 heb ik ToggleButton11 t/m 15 gemaakt
Als op blad 1 button 6 is false wil ik graag dat button 11 ook op false komt te staan .
Hoe kan ik deze controleren ???
Ik kan het schijnbaar niet opgeven van button naar button en moet ik aangeven dat deze op een andere sheet staat.
Wie wil eens naar deze macro willen kijken en mij vertellen wat ik fout doe
bv bedankt
''Aanvraag A
Private Sub ToggleButton6_Click()
If ToggleButton6 = True Then
If MsgBox("Wil je de gegevens Aanvraag A", vbYesNo) = vbYes Then
MsgBox "Gegevens Aanvraag A wordt gebruikt"
ToggleButton6.Caption = "Ja Aanvraag A"
ToggleButton7.Caption = "Aanvraag B"
ToggleButton8.Caption = "Aanvraag C"
ToggleButton9.Caption = "Aanvraag D"
ToggleButton10.Caption = "Geen"
''Worksheets("OFFERTE_OPDRACHT").Activate
ToggleButton11.Caption = "Ja Aanvraag A"
ToggleButton12.Caption = "Aanvraag B"
ToggleButton13.Caption = "Aanvraag C"
ToggleButton14.Caption = "Aanvraag D"
ToggleButton15.Caption = "Geen"
Application.Run "MacroA"
ToggleButton6 = True
ToggleButton7 = False
ToggleButton8 = False
ToggleButton9 = False
ToggleButton10 = False
''Sheets("OFFERTE_OPDRACHT").Select
ToggleButton11 = True
ToggleButton12 = False
ToggleButton13 = False
ToggleButton14 = False
ToggleButton15 = False
Range("J2").Value = "Aanvraag A"
Else
ToggleButton6.Caption = "Aanvraag A"
ToggleButton6 = False
End If
End If
End Sub
Ik ben daar al verschrikkelijk blij mee
De programeertaal zal voor de kenner korter dan de mijne maar ik wil het niet meer veranderen nu het eindelijk werkt
Ik hen nog wel een andere vraagje
Op blad 1 heb ik ToggleButton6t/m 10 gemaakt
Op blad 2 heb ik ToggleButton11 t/m 15 gemaakt
Als op blad 1 button 6 is false wil ik graag dat button 11 ook op false komt te staan .
Hoe kan ik deze controleren ???
Ik kan het schijnbaar niet opgeven van button naar button en moet ik aangeven dat deze op een andere sheet staat.
Wie wil eens naar deze macro willen kijken en mij vertellen wat ik fout doe
bv bedankt
''Aanvraag A
Private Sub ToggleButton6_Click()
If ToggleButton6 = True Then
If MsgBox("Wil je de gegevens Aanvraag A", vbYesNo) = vbYes Then
MsgBox "Gegevens Aanvraag A wordt gebruikt"
ToggleButton6.Caption = "Ja Aanvraag A"
ToggleButton7.Caption = "Aanvraag B"
ToggleButton8.Caption = "Aanvraag C"
ToggleButton9.Caption = "Aanvraag D"
ToggleButton10.Caption = "Geen"
''Worksheets("OFFERTE_OPDRACHT").Activate
ToggleButton11.Caption = "Ja Aanvraag A"
ToggleButton12.Caption = "Aanvraag B"
ToggleButton13.Caption = "Aanvraag C"
ToggleButton14.Caption = "Aanvraag D"
ToggleButton15.Caption = "Geen"
Application.Run "MacroA"
ToggleButton6 = True
ToggleButton7 = False
ToggleButton8 = False
ToggleButton9 = False
ToggleButton10 = False
''Sheets("OFFERTE_OPDRACHT").Select
ToggleButton11 = True
ToggleButton12 = False
ToggleButton13 = False
ToggleButton14 = False
ToggleButton15 = False
Range("J2").Value = "Aanvraag A"
Else
ToggleButton6.Caption = "Aanvraag A"
ToggleButton6 = False
End If
End If
End Sub