alpha

Correctie: de samengevoegde cellen zijn niet geblokkeerd schrijf je, dan is het eerste punt dat ik hierboven schreef wel waar, maar niet van toepassing. Het tweede punt is ook waar en blijft van toepassing, zowel voor geblokkeerde als niet geblokkeerde cellen in een beveiligd blad.

Als een blad is beveiligd kan men NIET schrijven in de beveiligde cellen! Moest dat wel het geval zijn, dan zou een beveiliging geen enkele zin hebben. Normaal niet, maar je kunt wel instellen dat dat wel kan. Daarvoor moet je bij het instellen van de beveiliging aanvinken dat "Objecten bewerken" is toegestaan.

Jouw Excelbestand geeft op mijn computer voortdurend dll-foutmeldingen. De oorzaken zijn de userforms. Die zijn niet in gebruik, maar ze laten zich bij mij niet verwijderen. Dat zou aan het verschil in Excelversie kunnen liggen. Daarom hieronder geen bestand, maar alleen de code behorend bij ThisWorkbook. In de cellen waarin alleen ja of nee mag komen, kun je best die keuze via validatie laten bepalen, dan kan er bij de invoer geen fout worden gemaakt, zoals bv. het per ongeluk typen van een spatie. Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim mystr As String, myrange1 As Range, myrange2 As Range Dim a1 As Integer, a2 As Integer, answ With Sheets("Checklist") Set myrange2 = .Range("j20:j35") Set myrange1 = Application.Union(.Range("e9:e14"), .Range("j9:j14")) mystr = "": a1 = 0: a2 = 0 a1 = WorksheetFunction.CountA(myrange1) a2 = WorksheetFunction.CountA(myrange2) If a1 < 12 Then mystr = "Beoordeling aanvraag" Else mystr = "Ontwerp en calulatie" End If End With If WorksheetFunction.Or(a1 < 12, a2 < 16) Then answ = MsgBox("Bij " & """" & mystr & """" & " zijn niet alle cellen ingevuld." & _ Chr(10) & "Wil u toch afsluiten?", vbYesNo) End If If answ = vbNo Then Cancel = True End Sub

1. Wil je 1 of 2 meldingen, want dat is niet duidelijk? Als toch alle omrande cellen moeten worden ingevuld, kun je best voor 1 melding kiezen. 2. In je afbeelding lopen de omrande cellen t/m rij 33, maar in je tekst heb je het over 35, welke rij is het? 3. Wat is de naam van het blad waarin bovenstaande gegevens staan. 4. Als alle gewenste cellen zijn ingevuld, moet dan bij afsluiten het bestand niet worden opgeslagen? Als het antwoord ja is, moet bekend zijn: - de naam van het bestand; - de exacte lokatie waar je het bestand wil opslaan (bv: C:\Documents and Settings\Gebruikersnaam\Bureaublad). Opm: Als je geen afbeelding maar een bestand had geplaatst, zouden vraag 2 en 3 niet nodig zijn geweest. Bovendien zouden dan vragenbeantwoorders je blad niet hebben moeten nabouwen. Houd daar voortaan rekening mee!

@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.