Rijen sorteren op ander blad

[Schipper1994]

in het voorbeeldbestand vind je een excelsheet.
ik wil groep A en groep B scheiden naar 2 verschillende bladeren.
is dit mogelijk?
ik wil dus de groepen splitsen.

 

[JEC.]

Gaat het maar om 2 groepen?

Even je tabbladnaam GROEP C aanpassen naar GROEP B

Sub jec()
 Application.ScreenUpdating = False
 With Sheets("SAMEN").ListObjects(1).Range
   .AutoFilter 1, "GROEP A"
   .Offset(1).SpecialCells(2).Copy Sheets("GROEP A").Cells(2, 1)
   .AutoFilter 1, "GROEP B"
   .Offset(1).SpecialCells(2).Copy Sheets("GROEP B").Cells(2, 1)
   .AutoFilter
 End With
End Sub

 

[Schipper1994]

JVeer,

idd moest groep B zijn.

maar jij komt nu met VBA code af denk ik.

waar plaats ik deze dan?

zou je deze in dit bestand kunnen verwerken zodat ik hem uiteindelijk in mijn bestand kan verwerken?
mijn bestand is te groot om hier te plaatsen zonder prive gegevens langs alle kanten. het zit ook iets ingewikkelder in elkaar dan hier staat uiteindelijk.

 

[Schipper1994]

ùijn bestand zit VOL met VBA maar het is ook allee maar met uitzoeken hoe het werkt via forums etc.

ik vind het leuk om er mee bezig te zijn maar het is eerder een ontspannende hobby voor mezelf.
ik maak programmatjes voor de lol omdat ik het leuk vind.

 

[JEC.]

Alt + F11 —> rechtermuisknop op het project links —> module invoegen en plak vervolgens de code. Daarna runnen met F5 (of op de play knop)

 

[JEC.]

Als je office 365 hebt, kan het ook simpel met formules, maar wel zonder echte tabellen.
Dus even je tabellen op tabblad 2 en 3 converteren naar een bereik

=FILTER(Tabel1;Tabel1[GROEP]="GROEP A")

=FILTER(Tabel1;Tabel1[GROEP]="GROEP B")

 

[Schipper1994]

ik heb 365 maar alles is in tabellen gezet.
denk ook dat ik die nodig heb voor de rest.

in dit programma staan TE veel privé-gegevens. ik gebruik deze echt voor men bedrijfje. werkt prima maar wil hem uitbreiden.

 

[Schipper1994]

heb hem ondertussen toegevoegd maar zonder succes.
(het gaat idd mar over 2 groepen.

 

[Schipper1994]

waaar zou ik eventueel die codes kunnen plaatsen van die =filter ?

 

[JEC.]

Op tabblad 2 en 3
Beide in cel A2, wel eerst tabellen converteren naar een bereik

 

[Schipper1994]

heb hem ondertussen toegevoegd maar zonder succes.
(het gaat idd mar over 2 groepen.

snap je toevallig wat er bij deze fout looopt? zou fijner zijn dan een aanpassing. ik denk dat sommige dingen dan niet meer zullen werken.

 

[JEC.]

Ik heb nu geen pc bij de hand, kloppen de tabbladnamen?

 

[Schipper1994]

ja, en je code heb ik als module toegevoegd.

 

[JEC.]

Bij mij werkt de macro gewoon als ik jouw bestand open. Heb je hem wel gerund?

 

[Schipper1994]

haha oké ja heb hem nu effe onder een knopje gezet om hem te doen runnen..
dom van me haha

dank u.