Help ik krijg de VBA Code niet goed.

[VAMEES]

Indien een regel in cel A bijvoorbeeld een waarde 10 heeft moet de hele regel gekopieerd worden naar een andere sheet. Dit geld voor alle regels die met 10 beginnen.

Momenteel heb ik in VBA deze code geschreven.
Hiermee wordt alleen 1 regel gekopieerd naar een andere sheet en wordt deze niet op de A kolom geplaatst.

Sub VindtRoute()

With Worksheets(1).Range("a1:a500")
Set c = .Find(10, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
ActiveCell.Range("A1:E500").Select
Selection.Copy
Sheets("Blad2").Select
ActiveCell.Offset(0, 0).Range("A1").Select
ActiveSheet.Paste
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

End Sub

Wie kan me vertellen wat ik fout doe?

 

[Wigi]

Zoiets

Sub VindRoute()
    
    Dim c As Range
    Dim firstAddress As String
    
    With Sheets(1).Range("a1:a500")
        Set c = .Find(10, LookIn:=xlValues)
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
                c.EntireRow.Copy Sheets("Blad2").Range("A" & Rows.Count).End(xlUp).Offset(1)
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> firstAddress
        End If
    End With

End Sub

Wigi

 

[VAMEES]

Dankje Wigi:thumb:
Het doet precies wat ik wil.
Nu ga ik is kijken of ik kan begrijpen wat je precies gedaan hebt. :shocked:

 

[Wigi]

Zie hiernaar:

Het kopiëren van de hele rij gebeurt als volgt:

c.EntireRow.Copy Sheets("Blad2").Range("A" & Rows.Count).End(xlUp).Offset(1)

Rest is slechts licht gewijzigd geweest.

Wigi