Cut & Paste other sheet vba

[Geminite]

Beste helpers,

Kunnen jullie aub naar de vb kijken en vertellen wat ik verkeerd doe ?

Sub Archief()
Dim MyRange             As Variant
Dim c                   As Range

Set MyRange = Worksheets("gegevens")
Application.ScreenUpdating = False

For Each c In MyRange.Range("C2:C50")

If c = yup Then

legeregel = Sheets("archief").Range("A" & Rows.Count).End(xlUp).Row + 1
Rows(c.Row).Copy Worksheets("archief").Rows(legeregel)
Rows(c.Row).Delete shift:=xlUp
End If

Next
Application.ScreenUpdating = True
End Sub

De bedoeling.. Ik wil knippen en plakken van "gegevens" naar "archief" indien in kolom C "yup" staat. Helaas voor mij code draaid, maar gebeurd niks.

Voorbeeld bestand toegevoegd.

 

[Hoornvan]

Geminite,

Zou het niet zo moeten zijn?

If c = "yup" Then

 

[Geminite]

Bedankt voor de snelle respons en oplossing. Had hem bijna goed

Kleine vraag; Ik wil dat hij alle "yup" in 1 keer doet ipv 1 per run. Moet ik dan via case werken of ...... ?

 

[Warme bakkertje]

Test deze eens

 

[Geminite]

Beste Rudi,

Die code werkt helemaal perfect, begrijpen is iets anders.

Ik ga verder puzzelen, bedankt voor de hulp allen.