Jarigen

[corania17]

Beste Excellers,

Nu heb ik toch nog een probleem over mijn eerdere vraag.
Het bestand Testbestand.xls wordt naar mij gezonden.
De data moet worden ingelezen of gekopieerd in het bestand jarigen test.xlsm
Door op de Start Commandbutton te drukken moet data verplaatst en gekopieerd wworden van de bladen LEAWEB naar ACTIEF.
Als de data is gekopieerd is er op blad ACTIEF een Commandbutton om de speciale verjaardagen er uit te halen.
Dit laatste werkt goed, wat eerder al gemeld is en is opgelost.
Nu kom ik niet verder met een select opdracht in de macro.
Verschillende pogingen gedaan en het zou volgens mij moeten werken.
Wat is er verkeerd in de macro?

Ik gebruik MsOffice 2013

Met vriendelijke groet, corania

 

[emields]

Volstaat dit?

 

[corania17]

Beste emields, dank u maar dit is niet wat ik bedoel.
Als je de macro START gebruikt stopt de macro met een foutmelding over een select.
Als dat is opgelost gaat de macro verder en op het eind zit weer dezelfde fout.
Het gaat over kopieren en selcteren.

Met vriendelijke groet, corania

 

[emields]

Misschien zou je beter vertellen wat feitelijk de bedoeling is.

 

[corania17]

Dag emields,
Ja dat is wel waar, ik dacht als je de macro leest of start dan zie je vanzelf wat er niet goed is.
Maar als de START wordt geacctiveerd dan wordt in kolom J het jaartal er uit gehaald en wordt geplaatst in kolom K.
Daarna staat er in kolom O het verschil in jaren vanaf dit jaar of de leeftijd.
Deze kolom O wordt gekopieerd van cel 1 tot 50 naar blad ACTIEF in cel A2 van kolom A.
Hier gaat het al fout.
Deze zelfde fout zit ook in het tweede gedeelte waar verschillende filters worden toegepast om de namen te kopieren naar blad ACTIEF in cel B2 van kolom B.
Dus in blad Actief staan in kolom A alle leeftijden en in kolom B alle namen.
Door dan op Extra verjaardagen te drukken komen de namen van de mensen die 80 - 85 -90 - 95 en 100 worden te staan in de betreffende kolommen.
Dit laatste werkt goed.
Ik hoop dat u begrijpt wat nu de bedoeling is.

Met vriendelijke groet corania

 

[emields]

Mag ik zeggen dat de macro wel een beetje verwarrend is met al die select.
ik denk dat ik doorheb wat de bedoeling is, bekijk het maar eens.

 

[popipipo]

=FILTER(LEAWEB!$B$1:$B$5;LEAWEB!$P$1:$P$5=ACTIEF!D1;"")

Dat kan ook zonder VBA met deze formule.


Nu zie ik dat je met 2013 versie werkt en dat kent de formule 'FILTER' helaas nog niet.

Bericht automatisch samengevoegd: Vandaag om 16:45

Met een draaitabel lukt het wel met versie 2013

 

[corania17]

Beste emields,
Dit lijkt op de vorige.
Alles bij elkaar zoek ik het volgende in blad ACTIEF.
In dat blad moet in kolom A te beginnen in cel A2 alle leeftijden.
In kolom B te beginnen in cel B2 alle namen van de jarigen.
In de kolom D komen alle 80 jarigen, in kolom E alle 85 jarigen, in kolom F alle 90 jarigen, in kolom G alle 95 jarigen en in kolom H alle 100 jarigen.
Alle jarigen staan dus in kolom B en tevens met een splitsing in de genoemde kolommen voor 80, 85 enz jaren.

Met vriendelijke groet corania

 

[emields]

Dus de 75 jarigen horen er niet bij?

 

[corania17]

Nee dat is nog te vroeg die zijn nog te jong om extra vernoemd te worden.
Hierna worden deze speciale jarigen geselecteerd en in een sjabloon in Word op een bladzijde geplaatst.

 

[popipipo]

Plaats eens een voorbeeldbestandje hoe het er precies moet uitzien.

 

[emields]

Ooit zullen we er geraken.

 

[corania17]

Beste popipipo,

Hierbij het bestand waarin te zien is wat de bedoeling is.
In blad ACTIEF staan dan alle leeftijden en jarigen
Als dan de Commandbutton wordt geactiveerd komt de naam van de jarige in de desbetreffende kolom te staan.

 

[emields]

Wat ontbreekt er nog in #12?

 

[corania17]

Beste Emields, alleen Dhr. P. Johansen (85) mag in de kolom 85 staan en niet die 86 of meer is.
Dus van alle jarigen mag er in dit geval maar 1 extra vernoemd worden.

 

[emields]

ik heb het toch gezegd dat we er ooit eens zullen geraken.

 

[corania17]

Beste emields,
Bijna.
Er zijn natuurlijk ook nog jongere deelnemers dus heb ik 60 jaar aangehouden
Maar in deze regel stopt de macro, terwijl de uitkomst op blad ACTIEF er wel staat.
naam = a & Mid(wie, Application.Search(",", wie, 1) + 2, 2) & " " & Left(wie, Application.Search(",", wie, 1) - 1)