film lijst

[Thomasvanaquino]

Hallo is het mogelijk om een lijst met films automatisch te wissen en in een ander werkblad te zetten. Bekijk bijlage film.xlsx
Wat ik wil doen is in het blad film1 bij gezien een ok plaatsen en dan zou die naam naar het werkblad film 2 moeten gaan.
alvast bedankt voor de hulp.

 

[HierEnNu]

Zie bestand.
Het samenvoegen van cellen leidt alleen maar tot problemen. Dat heb ik er zowiezo uitgehaald.
Verder heb ik een vba-code toegevoegd die wordt geactiveerd door een druk op de knop "Verplaatsen".
Vul in kolom C van blad Film 1 ok in bij de film die je gezien hebt en druk op de knop "verplaatsen".

 

[Roncancio]

Het kan ook direct dus zonder knop.
Inderdaad is het veel beter om geen cellen samen te voegen.

Private Sub Worksheet_Change(ByVal Target As Range)
If Chr(64 + Target.Column) = "C" Then
    If UCase(Target.Value) = "OK" Then
        Sheet2.Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Value = Target.Offset(0, -1).Value
        Target.Offset(0, -1).Resize(1, 2).Delete
    End If
End If
End Sub

Met vriendelijke groet,


Roncancio

 

[Thomasvanaquino]

ok bedankt voor de hulp