Rijen kopieren naar een ander tabblad met een macro

[Luus11]

Hoi,

Ik wil in excel een dump maken, de informatie wordt verkregen vanuit een ERP systeem.
Omdat er door het maken van de dump veel overbodige informatie mee komt, wil ik doormiddel van een macro een automatische selectie maken.
In kolom N staan een aantal klanten, van bepaalde klanten wil ik de complete rij hebben gekopieerd naar een ander tabblad.
De informatie op het aangemaakte tabblad wil ik vertonen dmv draaitabellen (dit lukt me wel).

Via google ben ik bij de volgende vba code uitgekomen:

Sub rowcopy()
Dim rij As Long
Dim n As Long
Dim src As Worksheet
Dim trg As Worksheet
Set src = Sheets("Blad1")
Set trg = Sheets("Blad2")

Application.ScreenUpdating = False
rij = trg.[A65536].End(xlUp).Row
For n = 1 To Blad1.[A65536].End(xlUp).Row
If Cells(n, "N").Value = "Tekst" Then
Range(Cells(n, "A"), Cells(n, "K")).Copy
trg.Cells(rij, "A").PasteSpecial
rij = rij + 1
End If
Next
End Sub

Omdat ik nog vrij weinig met macro's heb gewerkt, vind ik het lastig om deze code aan te passen naar mijn Excel bestand.
Zou iemand mij hier mee kunnen helpen?

mvg

 

[Luus11]

Bekijk bijlage Voorbeeld.xlsx

Ik heb voor de duidelijkheid een voorbeeld toegevoegd.
Dit is de vaste opzet van kolommen zoals ik ze vanuit het ERP systeem verkrijg.
Nu wil ik, omdat er meerdere duizenden rijen aan informatie staan, door middel van een macro alleen de rij van de "BMW" klant kopiëren naar een nieuw tabblad.
De rest van de informatie mag gewoon op tabblad 1 blijven staan omdat dit het "dumptabblad" wordt.
Vanuit het 2de tabblad wil ik draaitabellen maken die puur over de klant BMW gaan.

Ik hoop dat dit een beetje duidelijkheid geeft en ik hoop dat jullie mij hier mee kunnen helpen.

MVG
Luuk

 

[spaarie]

Zoiets?

Sub Spaarie()
    With Sheets("Blad1").Cells.CurrentRegion.Offset(1)
        .AutoFilter 14, "BMW"
        .Copy
        Sheets.Add(, Sheets(Sheets.Count)).Name = "BMW"
        ActiveSheet.Cells(1).PasteSpecial
    End With
End Sub

 

[Luus11]

Hoi spaarie,

Bedankt, dit komt aardig in de buurt!!
ik heb alleen 2 puntjes:

• 
  is het mogelijk om de rijen die gekopieerd worden op een bestaand tabblad te plakken?
  (bijvoorbeeld gewoon op tabblad2, meteen naast tabblad 1)

• 
  wat wordt de code als ik bijvoorbeeld op bmw en audi wil selecteren?

Alvast bedankt!

 

[spaarie]

Tuurlijk kan dat, maar wist niet dat er al een blad bestond en de aangepaste code voor Audi en BMW is:

Sub Spaarie()
    With Sheets("Blad1").Cells.CurrentRegion.Offset(1)
        .AutoFilter 14, "BMW", xlOr, "AUDI"
        .Copy Sheets("Blad2").Cells(1)
        .AutoFilter
    End With
End Sub

Tevens nog een autofilter toegevoegd zodat de filter knoppen weer verdwijnen van het 1e blad.

 

[Luus11]

Dit is precies wat ik zocht!!
Super bedankt! :thumb: