VBA code Rij Kopieren met voorwaarde werkt niet

[ROSO]

Ik wil deze code gebruiken maar hij doet niets, kan iemand mij helpen ???
bv blad 5 heeft a1......q1 Labels naam: adres: (N) plaatsenz: . A2....q2 heeft de gegevens.
a2......q2 Robby straat Arnhem
De bedoeling is door een druk op een Button in tabblad 1 (menu blad) de volgde code wordt uigevoerd.
Alles dat voldoet aan; bv "Arnhem" naar blad 2 wordt gekopieerd.
geeft geen error code, maar neemt ook niets mee naar blad2

Alvast bedankt

[Public Sub CommandButton1_Clik()
    Dim x      As Long
    Dim y      As Long
    Dim c      As Variant
    x = Sheets("Blad5").Cells(Rows.Count, "A").End(xlUp).Row
    y = 1
    For Each c In Range("N2:N6000")
        If c = "Arnhem" Then
            c.Rows.EntireRow.Copy Sheets("Blad2").Range("A" & y).Offset(1, 0)
            y = y + 1
        End If
    Next c
End Sub/CODE]

 

[snb]

Sub tst()
  With usedrange
    .AutoFilter 14, "Arnhem"
    .SpecialCells(xlCellTypeVisible).Copy Sheets("Blad2").cells(rows.count,1).en[COLOR="Red"]d(x[/COLOR]lup).offset(1)
    .AutoFilter
  End With
End Sub

 

[ROSO]

Sub tst()
  With usedrange
    .AutoFilter 14, "Arnhem"
    .SpecialCells(xlCellTypeVisible).Copy Sheets("Blad2").cells(rows.count,1).end.xlup).offset(1)
    .AutoFilter
  End With
End Sub

Beste SNB,

Bedankt voor je snelle antwoord, met het werkt nog niet.

 

[snb]

O !

 

[ROSO]

Bedankt snb , is uiteindelijk toch gelukt