alpha

@Hilhorst, plaats hier een (voorbeeld)bestandje waaruit blijkt in welke rijen en kolommen je gegevens staan en welke macro je voor de eerste melding gebruikt. Dan zul je voor je vraag snel een oplossing hebben.

Elke gebruiker wordt geacht de forumregels te hebben doorgenomen en daarmee ook akkoord te gaan. Mocht je ze per vergissing niet gelezen hebben, zie: Klik en dan met name onder punt 2 het derde item van onder. Dan ben je te laat; als je elders je vraag ook hebt gesteld moet je dat meteen laten weten. Maar zoals hierboven al geschreven: vaak moet je dan niet veel reacties meer verwachten omdat dat over het algemeen niet op prijs wordt gesteld. Ik heb niet gegokt en het is ook niet raar, ik heb gewoon wat vastgesteld en je daar op gewezen. Maar we moeten er ook geen werelddrama van maken, Iedereen maakt wel eens een fout, misschien heb je gewoon even niet goed nagedacht. Zand erover zou ik zeggen, volgende keer beter.

Zonder het bestand te kunnen inzien, kan er geen deugdelijk antwoord worden gegeven.

@qaukle, Een zelfde vraag op meerdere forums plaatsen wordt op geen enkel forum op prijs gesteld. Als blijkt dat dat het geval is (een zelfde vraag op meerdere forums gesteld), wordt op verscheidene forums het topic met je vraag meteen afgesloten. Andere forums doen dat niet (meteen), maar verwachten wel dat je meedeelt dat je je vraag ook elders hebt geplaatst. Als het bij gebruikers bekend is dat je je vraag ook elders plaatste, moet je meestal geen reactie(s) meer verwachten. Want dan lijkt het er sterk op dat je geen rekening met anderen wil houden en louter aan je eigen belang denkt. Het kan immers zijn dat mensen (veel) tijd aan je probleem besteed hebben, terwijl dan achteraf blijkt dat die tijd voor niets geweest is omdat elders al een oplossing werd gevonden. Om die reden ga ik nu niet verder in op je vraag, hoewel een oplossing niet moeilijk is.

@Heid, ik vraag me af waarom je meerdere waarden in 1 cel wil onderbrengen, elke waarde in 1 cel is toch veel praktischer om mee te werken? Plongske heeft weliswaar een prima oplossing gegeven, maar bekijk ook eens de mogelijkheid van transponeren, dan ben je (ook) heel snel klaar. Selecteer alle gegevens (2000 rijen x 3 kolommen), klik in het menu op het icoon "Kopiëren", Selecteer cel E1 en kies dan in het menu: "Plakken Speciaal" - "Transponeren" - "Ok".

Ik zie dat je op een andere website inmiddels verder bent gegaan met dit topic. Voor mij niet gelaten, maar waarom je daar nog eens vraagt om een macro die de geselecteerde pagina's naar 1 pdf omzet, terwijl je die hierboven al kant en klaar gekregen hebt, begrijp ik niet. Ook je andere vragen daar konden hier eenvoudig worden opgelost, mits je ze maar duidelijk had gesteld.

Ik krijg geen enkel venster om op te slaan, de pdf-file wordt automatisch opgeslagen. Dat kan denk ik ook niet anders als je een pdf wil hebben. Als je het printerselectievenster niet wil, dan haal je gewoon de regel Application.Dialogs(xlDialogPrinterSetup).Show uit de macro.

Let op dat, als om de naam van een map wordt gevraagd, je daar heel precies in moet zijn; bv: C:\Documents and Settings\Gebruikersnaam\Bureaublad\qaukle

@kweezie wabbit, De vragensteller reageert niet meer en is dus kennelijk niet geïnteresseerd in de mogelijkheid die ik in mijn laatste bericht noemde. Ik zou het topic dus maar afsluiten.

Dat is normaal en ook logisch: de meeste mensen willen niet steeds wisselen van printer. Maar als je uit meerdere printers een keuze wil maken, dan kan dat. Zo heb je de macro ook gemaakt, dat is minder logisch. Je wil naast het afdrukken er dus ook een pdf van maken. Naam en plaats van opslag zul je toch moeten kiezen vóórdat de pdf wordt gemaakt. PC-Helpf qaukle.xlsm

Precies, dat is ook wat ik in mijn vorig bericht wilde zeggen. Uit de webpagina's waarnaar ik verwees, blijkt dat met datumverschil geen eenduidige oplossing mogelijk is en Microsoft erkent dat ook min of meer.

In de bijlage een voorbeeld zoals jij het wil. Omdat in I7:J11 niet alle namen met zowel "ja" als "nee" voorkomen, moet in C9 als.fout wel gebruikt worden om foutmeldingen te voorkomen. voorbeeld1.xls

Die =0 zou ik maar weglaten popipipo De functie DATUMVERSCHIL geeft lang niet altijd de gewenste of verwachte resultaten, wat ook Microsoft op haar website erkent, Vandaar waarschijnlijk ook dat datumverschil in de helpfile van Excel niet wordt toegelicht/gedocumenteerd. Zie bv. deze sites: Site1 en specifiek voor berekening van het aantal maanden: Site2.

Ja, natuurlijk! Dat heb ik in mijn eerste bericht ook duidelijk aangegeven. Als in de formule is vermeld dat ze alleen moet werken als het resultaat 'nee'is, dan is het toch logisch dat ze dan alleen bij 'nee' werkt? Zo had je het ook gevraagd! Maar een keuzemogelijkheid tussen ja en nee is eenvoudig toe te voegen. In B7 maak je nu een keuze uit de namen. Maak in C7 (ervan uitgaande dat ook B7 geen samengevoegde cel is) een keuzelijst met als keuzemogelijkheden ja of nee. Je kunt dan in C9 deze formule gebruiken (als in de J-kolom in alle cellen ja of nee staat, is als.fout... niet meer nodig): =VERT.ZOEKEN(B7;ALS(J7:J11=C7;I7:J11);2;0) Vergeet de Ctrl-Shift-Enter niet ! Ik herhaal nog eens dat, als alleen de keuzemogelijkheid tussen ja en nee bestaat, het gebruik van vert.zoeken geen enkele zin heeft. Je kunt in plaats daarvan dan in de cel naast de naam waarin je ja of nee als resultaat wil eenvoudigweg gebruiken: =ALS(C7="Ja";"Ja";"Nee")

Als je de formule hebt geplakt of zelf hebt ingevoerd, dan druk je, terwijl de cursor in de cel nog zichtbaar is, de Ctrl- en Shifttoets (links-onderaan op het klavier) allebei in, en terwijl je die ingedrukt houdt, druk je op de Entertoets. Er verschijnen dan accolades rondom de formule, die accolades mag je niet zelf invoeren, want dan werkt het niet. En dan nog dit: je hebt wel voor 'Jan' een ja een nee in de rechterkolom, maar voor de andere namen zijn die beide opties er niet. Als je dan bij zo'n naam 'nee' zoekt, krijg je #N/B als resultaat. Om dat te voorkomen kun je de formule iets uitbreiden, dan krijg je een lege cel in plaats van #N/B. =ALS.FOUT(VERT.ZOEKEN(B7;ALS(J7:J11="nee";I7:J11);2;0);"")

Dan doe je iets fout, want bij mij werkt het wel. Formule ingevoerd via Ctrl-Shift-Enter?

In mijn vorige bericht schreef ik duidelijk dat je de formule moest invoeren via Ctrl-Shift-Enter, dat heb je niet gedaan! Een formule ingevoerd via Ctrl-Shift-Enter is een matrixformule en matrixformules kun je alleen gebruiken in niet-samengevoegde cellen. Cel C9 is bij jou een samengevoegde cel van C9 en C10, dus kan die formule daarin niet werken. Dat is natuurlijk eenvoudig op te lossen.

Als je geen voorwaarde toevoegt, neemt vert.zoeken ALTIJD de eerste gezochte waarde. Als je een andere waarde wil, dan moet je dat Excel natuurlijk wel meedelen, want die kan dat uit zichzelf niet weten. Je kunt dan bv. gebruiken (invoeren via Ctrl-Shift-Enter): =VERT.ZOEKEN(B7;ALS(J7:J11="Nee";I7:J11);2;0) Wat uit die functie blijkt is dat, als de gezochte waarden louter 'ja' of 'nee' kunnen zijn, je vert.zoeken helemaal niet nodig hebt en het ook onzinnig is om het te gebruiken, want je neemt het antwoord (ja of nee) al op in de functie. Dan kun je dus net zo goed ja of nee kiezen zonder functie.

Ja, zulke dingen vergen altijd veel meer tijd dan je vooraf denkt (bij mij toch). Het is natuurlijk ook mogelijk om het resultaat aaneengesloten te presenteren, zonder lege cellen (moet je zelf eens proberen, je zult zien dat dat lastiger is dan je denkt, hoewel er niet zo veel voor hoeft te veranderen). Maar ik weet niet of je dat wil.

Zie de bijlage. Verondersteld is dat er in kolom A geen lege cellen voorkomen. alpha.xlsm

Nee! Maar ik was niet duidelijk met de celweergave. Ctrl-Shift-Enter is van toepassing voor E1 en onderliggende cellen, niet voor D1. De formule in E1 moet worden ingevoerd via CTRL-Shift-Enter, vergeet dat niet! Ik had je vraag anders begrepen dan ik ze beantwoordde. Als anderen nog niet eerder een oplossing hebben gegeven, zal ik vanavond naar je 'nieuwe' opgave kijken.

Nee, 14167 moet volgens jouw gegevens 4 x zijn.

Dat lijkt mij niet te kloppen, of je wil iets anders berekenen dan uit je bericht blijkt. Typ in D1 en E1 respectievelijk: =ALS(AANTAL.ALS(A$1:A1;A1)>1;"";A1) en =ALS(D1="";"";AANTAL(ALS(A$1:A$100=A1;B$1:B$100))) en kopieer die formules naar beneden in de kolommen D en E. De formule in D1 moet worden ingevoerd via CTRL-Shift-Enter, vergeet dat niet!

Van 2,7 naar 2,6 MB is een effect dat niet merkbaar zal zijn. Óf er effect is, is vooraf niet te voorspellen, dat hangt af van wat er in het bestand is gebeurd. Verwijder ook de niet-in-gebruik zijnde kolommen, als je dat nog niet gedaan zou hebben.

@Excellie Jammer dat je geen antwoord gaf op de vraag of de aanbeveling die ik gaf, enig effect had.