Gegevens kopiëren tussen werkbladen met VBA

[fotoflip]

Ik zoek een oplossing voor volgend project.
Uit een betrekkelijk lange lijst wens ik gegevens van een werkblad "Data" te kopiëren naar een ander werkblad. De gegevens in het werkblad "Data" mogen enkel gekopieerd worden indien ze voldoen aan meerdere criteria.
Met één enkel criterium krijg ik het voor elkaar maar indien er meerdere criteria moeten gematcht worden schiet mijn VBA kennis tekort.
In bijlage een voorbeeldbestand met gegevens.
Ik wil de gegevens waarbij in kolom A = Gent-Zeehaven én kolom H = F of Q én kolom M = 450 of 7371 of Uapps staat kopiëren naar een ander werkblad dat de naam "CHW" krijgt.

 

[Niels28]

Tabblad CHW nog wel zelf aanmaken

Sub Archiveren()
With Sheets("CHW")
.Range("A2:M" & .Cells(Rows.Count, 1).End(xlUp).Row + 1).ClearContents
For Each cl In Sheets("data").Range("a:a").SpecialCells(2)
If cl.Value = "Gent-Zeehaven" Then
If cl.Offset(0, 7).Value = "F" Or cl.Offset(0, 7).Value = "Q" Then
If cl.Offset(0, 12).Value = "450" Or cl.Offset(0, 12).Value = "7371" Or cl.Offset(0, 12).Value = "Uapps" Then
cl.EntireRow.Copy .Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
End If
End If
End If
Next
End With

Niels

 

[fotoflip]

Werkt perfect! Dank U, Niels28

 

[Niels28]

zet je de vraag dan op opgelost.

Niels

 

[Johil]

Beste Niels28
Ook ik heb je code Archiveren gebruikt. Ik las de vraag en de oplossing en kon die heel goed gebruiken.
Mijn dank is groot.
Gebruiker Johil
Joop Scheepers