macro starten na wijziging waarde in een cel

Status
Niet open voor verdere reacties.
J

JanBG

Verenigingslid
Lid geworden
30 aug 2017
Berichten
942
Hallo,

Ik heb een bestand waarin ik door een macro een bepaalde lijst wil aanpassen als een waarde in een vaste cel wijzigt. Ik gebruik hiervoor de volgende codes:

Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If (ActiveSheet.Target.Address = ("$K$4")) Then Call Macro4

End Sub
en:

Code: 
Sub Macro4()
    Sheets("Uitslagen").Range("A1").CurrentRegion.AdvancedFilter _
    Action:=xlFilterCopy, _
        CriteriaRange:=Range("Patient_individueel!Criteria"), CopyToRange:=Range( _
        "Patient_individueel!Ophalen"), Unique:=False
End Sub

De macro werkt prima, alleen start niet automatisch als de waarde in K4 verandert.
Wat zie ik over het hoofd?
 
Gebruik niet SelectionChange maar Change:
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "K4" Then Call Macro4
End Sub
 
Code: 
SelectionChange → Change
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan