Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 3 van 3

Onderwerp: Macro activeren als Checkboxen veranderen of inhoud range veranderd

  1. #1
    Vraag is opgelost

    Macro activeren als Checkboxen veranderen of inhoud range veranderd

    Goededag,

    Hoe kan ik een macro activeren wanneer een van de aanwezige selectievakjes wordt aan-of uit geklikt en/of wanneer de inhoud in een specifieke range veranderd?

    Ik heb een werkende macro die doet wat ik wil:
    Code:
    Sub Kassamedewerkers_sorteren()
    ActiveSheet.Unprotect
        Worksheets("InvoerKassaplanning").Range("C2:D10").Copy
        Worksheets("InvoerKassaplanning").Range("E2").PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
        Worksheets("InvoerKassaplanning").Range("E2:F10").Sort Key1:=Range("E2"), Order1:=xlDescending, Key2:=Range("F2"), Order1:=xlAscending
    ActiveSheet.Protect
        Range("H2").Select
    End Sub
    Ik activeer deze code nu door een toegewezen knop in te drukken.
    Ik zou echter graag willen dat die knop niet nodig was.
    Ik wil graag dat deze code geactiveerd wordt wanneer een van de aanwezige selectievakjes wordt veranderd van WAAR naar ONWAAR en vica versa (wanneer ze worden aangeklikt dus)
    en ik zou graag willen dat deze code wordt geactiveerd wanneer de inhoud in een van de cellen in Range("B2:B10") veranderd. De inhoud in deze cellen komt tot stand dmv een formule.

    In de programmacode van het bewuste tabblad staat al een "Sub Worksheet_Change"-code, moet de code die ik vraag hierin geïntegreerd worden dmv een tweede 'If'?
    Code:
    Private Sub Worksheet_Change(ByVal Target As Range)
      If Not Intersect(Target, Range("I:J, M:N, Q:R, U:V")) Is Nothing And Not IsEmpty(Target) And Target.Cells.Count = 1 Then
        Application.EnableEvents = False
        Target = Replace(Format(Target / 100, "00.00"), ",", ":")
        Application.EnableEvents = True
      End If
      
    End Sub
    Mvg, Visara
    Bijgevoegde bestanden Bijgevoegde bestanden

  2. #2
    Een nachtje er over slapen hielp De macro kan aan elke individuele checkbox worden gekoppeld en de macro kan in een Private Sub Worksheet_Activate() worden gezet.
    Alles werkt dan zoals ik voor ogen had.

  3. #3
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Je kan simpel een macro aan een selectievajke koppelen.
    Aan allemaal dezelfde dus.
    De waarde kan je dan controleren met:
    Code:
    cbxWaarde = ActiveSheet.Shapes(Application.Caller).OLEFormat.Object.Value
    1 = Aangevinkt
    -4146 = Niet aangevinkt

    De naam van de checkbox kan je ophalen met:
    Code:
    cbxNaam = Application.Caller
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren