Macro uitvoeren als celwaarde bepaalde waarde bevat

[HoeveWatersnoodt]

Goede dag,

In Excel is het de bedoeling als in één regel een cel een bepaalde waarde bevat (of gelijk is aan een bepaalde cel), de macro uitgevoerd word voor die regel. (Kopieren en plakken).
Het liefst op een manier zodat de macro geld voor onderstaande regels zonder 365 macro's te maken.

Ik ben opzoek naar de juiste code.

bijgevoegd een voorbeeld.

 

[edmoor]

Zet dit eens achter Blad1:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 6 Then Exit Sub
    Application.EnableEvents = False
    If LCase(Target.Value) = "ja" Then
        Cells(Target.Row, 7).Resize(, 4) = Cells(Target.Row, 2).Resize(, 4).Value
    Else
        Cells(Target.Row, 7).Resize(, 4) = ""
    End If
    Application.EnableEvents = True
End Sub

 

[HoeveWatersnoodt]

Bedankt Edmoor voor de genomen moeite.
Het is mij helaas niet gelukt de code werkend te krijgen.
Is het mogelijk de code in het voorbeeld bestand te zetten en die vervolgens bij te voegen, misschien lukt het mij van daaruit wel?

 

[edmoor]

Dan heb je het vast niet op de juiste plek gezet. Het moet dus achter Blad1 en niet in een Module:
Bekijk bijlage Kopie van voorbeeld macro aan cel 01.xlsm

Tik maar eens ja in F5 in.
Maak hem daarna eens leeg met de DEL toets.

 

[HoeveWatersnoodt]

Daar ging het mis, ik wilde het onder een module zetten de andere weg kon ik nog niet, ik heb het in het voorbeeldje gezien en nu is het me duidelijk, het werkt!

Bedankt!:d