Knop om Ja in te voeren in ander tabblad

[Jojorubbers]

LS.,

ik ben lerende, maar kom er qua syntax met enige regelmaat nog niet uit.
Ik heb een testbestandje. In dat bestandje heb ik een knop 1 po werkblad "Blad1". Als ik daarop klik wil ik dat in kolom G in werkblad "Blad2" vul met ja, daar waar de gekozen eenheid (cel A2 op blad1) staat.

Voorbeeld, ik kies SE003, druk op knop 1 en in werkblad "Blad2" wordt cel G4 gevuld met Ja.

Dank alvast.

 

[edmoor]

Dit achter de shape (het is geen knop):

Sub Ovaal1_Klikken()
    With Sheets("Blad2")
        Set c = .Range("A:A").Find(Range("A2"), , , xlWhole)
        If Not c Is Nothing Then
            .Range(c.Address).Offset(, 6) = "Ja"
        End If
    End With
End Sub

 

[Jojorubbers]

Merci bien!