Dynamische range kopieren

[TomH90]

Met welke code kan ik de regels kopieren die de waarde "True" hebben

[table="width: 500, class: grid"]
[tr]
[td]Artnr[/td]
[td]Omschrijving[/td]
[td]Hoeveelheid[/td]
[td]Kopieren[/td]
[/tr]
[tr]
[td]1[/td]
[td]A[/td]
[td]10[/td]
[td]False[/td]
[/tr]
[tr]
[td]2[/td]
[td]B[/td]
[td]5[/td]
[td]False[/td]
[/tr]
[tr]
[td]3[/td]
[td]C[/td]
[td]100[/td]
[td]True[/td]
[/tr]
[tr]
[td]4[/td]
[td]D[/td]
[td]1[/td]
[td]True[/td]
[/tr]
[tr]
[td]5[/td]
[td]E[/td]
[td]2[/td]
[td]True[/td]
[/tr]
[tr]
[td]6[/td]
[td]F[/td]
[td]25[/td]
[td]False[/td]
[/tr]
[tr]
[td]7[/td]
[td]G[/td]
[td]0[/td]
[td]False[/td]
[/tr]
[/table]

 

[Niels28]

Altijd makkelijk een code aan een plaatje te hangen....

Sub kopieer()
    Range("A1").CurrentRegion.AutoFilter
    ActiveSheet.Range("A1").CurrentRegion.AutoFilter Field:=4, Criteria1:="True"
    Range("A1").CurrentRegion.Copy Sheets(2).Range("A1")
    Range("A1").CurrentRegion.AutoFilter
End Sub

Niels

 

[TomH90]

hoe plak ik dan de gegevens met de waarde "True" naar een ander tabblad (Tabblad2)?

 

[Niels28]

heb je al op tabblad 2 gekeken toen je de macro testte?
en het zou fijn zijn als je je vraag meteen compleet stelt.

Niels