Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Macro starten bij automatische aanpassing celwaarde  (gelezen 827 keer)

0 leden en 1 gast bekijken dit topic.

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Macro starten bij automatische aanpassing celwaarde
« Gepost op: 30 december 2021, 12:00:21 »
Goeiemiddag iedereen,

Vooreerst aan iedereen mijn allerbeste wensen voor 2022.

En dan nu mijn vraag :
Ik weet hoe je een macro kan starten adhv een handmatige wijziging in één of meerdere specifieke cellen.

Maar nu zou ik mijn macro moeten laten starten nadat een celwaarde in een bepaalde range automatisch gewijzigd word.
Is dit mogelijk?

Ik heb dus kolom Q waarin (via een formule) een totaalbedrag (uit kolommen D tem O) vermeld staat dat regelmatig wijzigt.
De waarden in kolommen D tem O worden meestal ingevuld adhv een UserForm.
In kolom S wil ik nu adhv een macro een resultaat laten verschijnen waarbij die macro enkel uitgevoerd word wanneer de waarde
in kolom Q wijzigt.
De huidige wijze waarop mijn macro word uitgevoerd werkt enkel als ik de cellen in kolom Q handmatig wijzig.
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range
    Set KeyCells = Range("Q12:Q28")
    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then

        If Year(Now()) = CDbl(Right(Cells(3, 3), 4)) Then
          For rij = 12 To 28 Step 2
            Cells(rij, 19) = Cells(rij, 17) / Month(Now())
          Next rij
        End If

    End If
End Sub


Alvast dank op voorhand.
groetjes,
BlackDevil
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Macro starten bij automatische aanpassing celwaarde
« Reactie #1 Gepost op: 30 december 2021, 12:19:22 »
Dat wordt helaas niet als event gezien…

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: Macro starten bij automatische aanpassing celwaarde
« Reactie #2 Gepost op: 30 december 2021, 12:29:04 »
@Veerj,

Hartelijk dank voor je reactie.

Ik vreesde er al voor dat het niet mogelijk was...
Dan zal ik het op een andere manier moeten opgelost zien te krijgen. ;)


groetjes,
BlackDevil
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Macro starten bij automatische aanpassing celwaarde
« Reactie #3 Gepost op: 31 december 2021, 12:22:05 »
Een formule is inderdaad geen trigger voor een event. Maar een formule wordt wel aangepast door een verandering in de broncel. Ofwel, kijk met het change event naar de verandering van de broncel en je bent er ook.
______________________________

Groet, Leo

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: Macro starten bij automatische aanpassing celwaarde
« Reactie #4 Gepost op: 31 december 2021, 12:57:33 »
@RedHead,

Dank voor je reactie...

Probleem is dat de broncellen zelden handmatig gewijzigd worden... deze worden meestal aangepast via een UserForm...
Ik had begrepen uit de reactie van Veerj dat een event triggeren enkel mogelijk was bij een 'handmatige' wijziging van de broncellen...

Indien er toch andere mogelijkheden of omweggetjes mogelijk zouden zijn dan leer ik graag hoe  ;).

groetjes,
BlackDevil

1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Macro starten bij automatische aanpassing celwaarde
« Reactie #5 Gepost op: 31 december 2021, 13:09:20 »
Een verandering advh userform is ook een trigger :)

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Macro starten bij automatische aanpassing celwaarde
« Reactie #6 Gepost op: 31 december 2021, 13:12:41 »
Het plaatsen van een waarde vanuit een formulier geeft net als een handmatige mutatie gewoon een change event. Dus daar moet je iets mee kunnen. Maar als je toch vanuit het formulier een cel aanpast, kan je toch ook iets doen met je doelcel?
______________________________

Groet, Leo

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: Macro starten bij automatische aanpassing celwaarde
« Reactie #7 Gepost op: 31 december 2021, 13:25:29 »
@Veerj,

oh, ok, dan kan ik het inderdaad via het bronbereik regelen  :thumbsup:.

@RedHead,

Ja, in principe zou ik mijn code voor die doelcel kunnen implementeren in de code achter het UserForm
maar héél af en toe moet ik toch handmatig ook iets wijzigen in de broncellen en dan dient die code (voor
het berekenen van die doelcel) ook gestart te worden. Vandaar dat ik het dan aan het werkblad zelf wou koppelen
via een change event....

Maar nu kan ik sowieso verder, moet enkel de target range wijzigen in mijn bestaande macro en dan zou het in orde moeten komen.
 :thumbsup:

groetjes,
BlackDevil
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

 


www.combell.com