• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

True en False vergelijken op verschillende sheets ??

Status
Niet open voor verdere reacties.

Julius

Gebruiker
Lid geworden
1 jul 2004
Berichten
85
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
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan