Koppelen van meerdere acties (macro's) aan 1 selectievakje

[Wouter van de Werken]

Ik ben een formulier aan het opstellen voor het invoeren van een orderopdracht.

In de eerste sectie voert de gebruiker (klant) de naam en adresgegevens in
voor de klantaccount waaronder de order geboekt dient te worden. Dit is het
factuuradres.
In de tweede sectie voert de gebruiker de adresgegevens in waar de order
naar toe gestuurd dient te worden. Dit is het afleveradres.
Vaak zijn de gegevens van het factuuradres gelijk aan de gegevens van het
afleveradres. Je wilt in zo'n geval voorkomen dat een klant dezelfde data
tweemaal moet invoeren.
Middels een eenvoudig selectievakje (label: afleveradres gelijk aan
factuuradres) wil ik de adresdata uit sectie 1 kopieren naar sectie 2. Dit
levert geen probleem op: macro opnemen en koppelen aan het selectievakje. Bij
aanvinken van het selectievakje wordt de data gekopieerd en geplakt.
Ik wil echter ook dat als het selectievakje vervolgens weer uitgeschakeld
wordt, de data in sectie 2 verwijderd wordt. Dit krijg ik echter niet voor
elkaar met het opnamemenu voor macro's: ik kan namelijk niet 2 macro's aan 1
selectievakje koppelen.
Heeft iemand hier een oplossing voor? Wellicht een specifiek programmaatje
in VBA?

Alvast bedankt voor de hulp!
Wouter

[Floris]

Wouter,

het makkelijkst voor de code is het toevoegen van een selectievakje van de
werkbalk werkset besturingselementen. Je zorgt ervoor dat deze code wordt
gedraaid als er op het vakje wordt geklikt, wat je vervolgens laat doen door
de code is controleren of de waarde van het vakje waar of onwaar is en aan de
hand van de uitkomst kopieer je de waardes naar sectie 2 of laat je sectie 2
leeg.

voeg dus een vakje toe en dubbelklik erop, er wordt nu een ander scherm
geopend. Aan de rechterkant zal iets staan zoals hieronder, het nummer kan
verschillen
Private Sub CheckBox2_Click()

End Sub

plak de onderstaande code tussen de bovenstaande regels, verander de ? in
CheckBox? in het nummer in de regel Private Sub CheckBox2_Click()
Verander "B2:B5" en "A2:A5" in de ranges die je wilt kopieren en plakken

Select Case CheckBox?.Value
Case True
Range("B2:B5").Value = Range("A2:A5").Value
Case False
Range("B2:B5").ClearContents
End Select
End Sub

Floris

[Wouter van de Werken]

Hoi Floris,

Dankjewel voor je snelle reactie...dat waardeer ik. Ik heb de betreffende
code ingevoegd zoals je aangaf:

Sub Selectievakje2_BijKlikken()

Select Case Selectievakje2.Value
Case True
Range("B4:B8").Value = Range("A4:A8").Value
Case False
Range("B4:B8").ClearContents
End Select
End Sub

End Sub
---------
Bij het uitvoeren van de macro krijg ik in de VBA Editor echter de volgende
foutmelding: "Compileerfout: Er mogen alleen opmerkingen staan na End Sub,
End Function of End Property".

Ik klik deze foutmelding weg en dan wordt de startregel "Sub
Selectievakje2_BijKlikken()" in geel gemarkeerd.

Enig idee waarin het hier vast loopt?

Thanks!
Wouter

"Floris" schreef:

[haijesch...@gmail.com]

On 20 feb, 11:06, Wouter van de Werken

> > > Wouter- Tekst uit oorspronkelijk bericht niet weergeven -
>
> - Tekst uit oorspronkelijk bericht weergeven -

Twee maal End Sub na elkaar?

[Floris]

Wouter,

het probleem is inderdaad de 2 keer END SUB onderaan.... ben zelf vergeten
die van mij weg te halen.

Waar je op moet letten is dat de code die je gebruikt alleen te gebruiken is
bij een selectievakje afkomstig van de werkbalk werkset besturingselementen,
dit is bij jou niet het geval, je hebt een selectievakje gebruikt van de
werkbalk formulieren. Dit moet je wel doen wil je de code gebruiken.

De werkkbalk werkset besturingselementen is te vinden onder beeld ->
werkbalken -> werkset besturingselementen

[Wouter van de Werken]

Perfect, helemaal duidelijk...en het werkt! Dankjewel voor je hulp!

"Floris" schreef: