Code VBA voor kopiëren van gegevens uit andere tabel

Question

Goedemorgen allemaal

Ik ben bezig met het ontwerpen van een verlofboek. Op tabel1721 staan alle roosters van personeelleden (fictieve nummers) opgehaald van andere tabellen dmv formules. Door mijn beperkte kennis van VBA hoop ik dat iemand mij kan helpen met het volgende probleem.

Kenmerken:

1. Het bereik van deze tabel is A1:NC302
2. eerste kolom: personeelsnummers
3. rij 2: data van 1/1/20 - 31/12/20 (is variabel aan te passen)
4. celwaarden v of ""
5. screenshot:

Op een ander werkblad heb ik een identieke tabel gemaakt (dwz personeelsnummers (opgehaald van een andere tabel) komen altijd overeen):

Bovenaan heb ik 2 knoppen gemaakt:

1. "Rooster per persoon ophalen": ik wil graag vba schrijven die dmv inputbox een personeelsnummer X invoert. Deze moet dan vervolgens de celwaarden van personeelsnummer X op tabel1721 in het bereik B:NC plat kopiëren (dus niet de formules, maar alleen waarden v of "")
2. "Alle roosters ophalen": graag vba voor deze knop die celwaarden voor alle personeelsleden plat kopieert (dus niet de formules, maar alleen waarden v of "")

Dank alvast voor de hulp!

Groetjes,

Frank

Answer 1

Je kan en mag hier geen e-mail adressen plaatsen. AVG weet je wel :)

In onedrive kan je een link maken en deze kan je wel plaatsen. Op deze manier kunnen er ook meerdere mensen eventueel helpen.

Jan

Answer 2

Aalpha,

Naar mijn mening en gezien je statistieken blaas je nogal hoog van de toren. Als je geen helpend antwoord kunt of wilt geven, onthou je dan.

Answer 3

Dag Frank,

Zie je een mogelijkheid je werkboek te delen via je onedrive? Het vergt nogal veel werk om alles te herbouwen.

Answer 4

Naar mijn mening en gezien je statistieken blaas je nogal hoog van de toren. Als je geen helpend antwoord kunt of wilt geven, onthou je dan.

JP Ronse,

Ik heb duidelijk aangegeven wat er moet gebeuren en daarmee een helpend antwoord gegeven. Je stelling dat dat niet zo is, is dan ook onjuist !

Bovendien is het zo dat mensen meer leren door zelf naar oplossingen te zoeken (eventueel met aanwijzingen zoals ik hierboven gaf) dan complete oplossingen van anderen over te nemen. Dat is geen stelling die ik heb bedacht, daar zijn onderwijsspecialisten wereldwijd het over eens !

Maar als je op zoiets wijst (wat niet zo gek is als er zelfs nog geen poging van het zoeken naar een oplossing te zien is), dan is er altijd wel een wijsneus (zoals o.a.  jij in een vorig topic) die meent daar tegenin te moeten gaan. Dat zegt dan weer iets over die persoon.

Overigens mag je van mij denken wat je wil, we leven in een vrij land.

Answer 5

Je eerste vraag:

Voor een oplossing in vba zijn basisbegrippen daarvan voldoende, dat zou zelfs een beginner moeten kunnen als hij zich voldoende inspant.

1. Invoeren personeelsnummer: dat zijn bekende nummers, daarom kun je daarvoor beter gegevensvalidatie gebruiken in plaats van een inputbox, dat is ook nog veel gemakkelijker voor de invoer.
2. Na invoer van het personeelsnummer zoeken naar het rijnummer waarin dat nummer voorkomt.
3. Kopiëren van de waarden in die rij (althans de kolommen B t/m NC) naar de kolommen D t/m NE van het andere blad. De indeling daarvan, schrijf je, komt overeen met die van tabel 1721, dus het rijnummer waarnaar je moet kopiëren hoef je niet op te zoeken.

Je tweede vraag:

Zelfde antwoord als bij vraag 1, alleen kopieer je nu in plaats van 1 rij álle rijen van tabel 1721.

Met deze aanwijzingen zou het moeten lukken.

Als je iets niet weet, gebruik dan de vba-helpfile van Excel; daar kun je veel, zeer veel, in vinden.