Na filter automatisch kopieren naar ander werkblad

[GerbenDenker]

Dag,
Ik organiseer vaak een toernooi.
Nu heb ik een Werkblad met namen, poules, etc.
Ik selecteer een poule, tel het aantal deelnemers van die poule, kopieer de deelnemers naar een ander werkblad (= het poule formulier) en druk deze dan af.
Vrij omslachtig allemaal.
Wie kan dit eenvoudig maken met bv een macro of vba code ? (ik kan dat dus echt niet.. - wel geprobeerd..)

Als ik een poule heb gefilterd, wie kan dan helpen bij..
1. Werkblad Poules. Ik filter de poule. Het aantal deelnemers wordt automatisch geteld (want..)
2. dit aantal wordt automatisch gekopieerd naar het desbetreffende werkblad (= het pouleformulier)
3. Dat werkblad wordt gelijktijdig afgedrukt.


Voorbeeld:
Ik filter in Werkblad Poules de poule j10. Die heeft 3 deelnemers.
Die worden automatisch geteld (= 3),
de bovenste 3 rijden (inclusief kolomkoppen) worden naar blad 3 gekopieerd

Omwille van privacy heb ik de alleen de letters van de namen weergegeven.
Alvast zeer veel dank bij de hulp !

 

[mcs51mc]

Ik weet niet of dit een antwoord is op je vraag maar de code in bijgesloten bestand kopiëerd de geselecteerde data naar blad "3" zonder meer.
Bekijk bijlage GerbenDenker--Pouleforms test--001.xlsm

 

[GerbenDenker]

OK, eigenlijk moet het zo zijn dat na filtering het aantal automatisch geteld wordt en dat wordt gekopieerd naar het desbetreffende werkblad.
Voorbeeld: Als een poule 4 deelnemers heeft; wordt dat dan automatisch gekopieerd naar werkblad 4.
En daarna moet het automatisch uitgeprint worden...

 

[mcs51mc]

Aha, hierbij een aangepaste versie.

Vraag: Wat doe je bij ontbrekende sheet?
Voorbeeld; een poule heeft 8 spelers, maar je hebt geen sheet "8"
Wat dan?
Nu doet de macro niets daar de Select case geen case "8" heeft.

Bekijk bijlage GerbenDenker--Pouleforms test--002.xlsm

 

[popipipo]

Zo'n toernooi bestaat die uit 2 tot 15 deelnemers?
Dus je gebruikt slechts 1 tabblad
Of gebruik je per toernooi meerdere tabbladen.

Ik snap namelijk je poule namen (J10 tm J38) niet
Zelfde poulenamen komen op verschillende tabbladen terecht.

 

[GerbenDenker]

Hallo,
Bedankt, ik kom al aardig in de richting zoals ik het graag zou willen hebben.
De poules bestaan tot maximaal 15 man, maar ik heb de andere tabbladen er niet bijgevoegd.
Nu ik de codes zie, kan ik die wel kopiëren en aanpassen voor de oplopende poules (aantallen).
De poules worden inderdaad steeds overschreven; in een eigen Accessprogje staan die wel.

De Excel sheet wordt dus vanuit Access aangevuld.

Kunnen jullie er nog bijmaken..
1. dat na het kopiëren de poule gelijk geprint wordt
2. de selectie wordt opgeven en gelijk alles weer te zien is (volledig overzicht van alle poules dus).

Tot alvast bedankt !

 

[mcs51mc]

U vraagt wij draaien
Je hebt ons het printen wel gemakkelijk gemaakt met de "Print_area" range :thumb:

Bekijk bijlage GerbenDenker--Pouleforms test--003.xlsm

 

[GerbenDenker]

Ik wil je hartelijk bedanken, want het werkt zoals ik in gedachten had.
Zelf heb ik de poules 8 t/m 15 erbij gevoegd en in de code verwerkt.
Veel, veel dank !

 

[mcs51mc]

Graag gedaan!
Nu nog de vraag op opgelost zetten en we kunnen weer verder... ...

Geef toe dat groene vinkjes beter staan dan rode vraagtekens, nietwaar ?

 

[GerbenDenker]

Prima, gedaan (groen) en wellicht tot een volgende keer.