kopieren naar ander tabblad

[rekke]

Ik heb een excel blad en daar staan enkele gegevens op.
Ik heb een aantal, breedte en hoogte in 3 kolommen staan op dezelfde rij
dus bijvoorbeeld:
aantal breedte hoogte
1 5 2 Ja/Nee
4 3 1 Ja/Nee
5 1 3 Ja/Nee

Nu, op dezelfde rij als deze gegevens heb ik ook nog een combobox staan waar ik kan kiezen tussen Ja of Nee.
Indien ik Ja kies zouden het aantal, breedte en hoogte van dezelfde rij moeten gekopieerd worden naar een 2de tabblad. Indien nee gebeurt er niets.
Dus als ik in het voorbeeld in de eerste rij kies voor Ja, in de 2de rij voor nee en in de derde opnieuw voor Ja dan zou ik op het 2de tabblad volgend resultaat moeten krijgen:
aantal breedte hoogte
1 5 2
5 1 3
Kan er iemand mij hier mee helpen? Ik denk dat ik in de richting van vba moet gaan denken maar hier ben ik niet echt sterk in.

 

[Warme bakkertje]

Plak deze achter het betreffende blad met waarden

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 4 And Target.Value = "Ja" Then
        Target.Offset(0, -3).Resize(1, 3).Copy _
            Sheets("Blad2").[A65536].End(xlUp).Offset(1, 0)
     End If
End Sub

 

[rekke]

Plak deze achter het betreffende blad met waarden

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 4 And Target.Value = "Ja" Then
        Target.Offset(0, -3).Resize(1, 3).Copy _
            Sheets("Blad2").[A65536].End(xlUp).Offset(1, 0)
     End If
End Sub

Bedankt voor de reactie
Het lijkt wel niet te werken... Er lijkt niets te gebeuren.
Ik kan het stuk code natuurlijk ook verkeerd hebben geimplementeerd..
mvg,
Jonas

 

[Warme bakkertje]

Voorbeeldje