alpha

De pagina-overgangen zijn ingesteld op 47 rijen, wil je de pagina's langer of korter maken, dan moet je in de macro alleen maar dat getal aanpassen. Je kunt die macro in elk Excelbestand gebruiken. Er is wel een manier om Excel de pagina-overgangen automatisch te laten berekenen, zonder dat je een getal opgeeft, maar het duurt wel langer (en is ingewikkelder) om dat te programmeren. Nu begin ik daar niet aan. Het maakt niet zo veel uit, maar in plaats van een sneltoets is een opdrachtknop in de 'werkbalk snelle toegang' handiger en sneller om te gebruiken (zoals ik in mijn vorig bericht schreef).

Gebruik onderstaande macro i.p.v. de vorige, je moet dan geen paginanr. meer invullen. Ook deze macro leg je best vast onder een knop die je, om vaak scrollen te voorkomen, best plaatst in de 'werkbalk snelle toegang'. Sub Macro1() Dim acc As Integer, acr As Integer, ar As Integer, pnr As Integer On Error GoTo Fout ar = 47 acr = ActiveCell.Row: acc = ActiveCell.Column If acc > 11 Then Exit Sub pnr = 1 + Int(acr / ar) If acr / ar = Int(acr / ar) Then pnr = pnr - 1 End If ActiveSheet.PrintOut From:=pnr, To:=pnr Fout: End Sub

Dan moet bekend zijn hoe groot een pagina is (hoeveel rijen 1 pagina in beslag neemt). Houd bij je antwoord rekening met kopteksten die je evt. bovenaan een blad hebt staan.

Bedoel je een afdruk van het gehele blad, dus alle 'pagina's' van dat ene blad?

Je stelt dan kennelijk geen enkele aanwijzing om tot een oplossing te komen, op prijs.

Brigitte, als bekend is in welk bereik je een regel in wil voeren (in welke kolommen bv.), dan is daar wel een macro voor te schrijven. Je zou dan met een klik op een knop automatisch een regel kunnen invoeren mét de gewenste formule(s), onder of boven de rij (al naargelang je wenst) waarin je een rij wil invoegen. Het is het handigst en het eenvoudigst om je te helpen als je hier een voorbeeldbestandje plaatst.

Je kunt deze macro gebruiken: Sub Macro1() Dim Start As Integer On Error GoTo Fout Start = InputBox("Welke paginanr. van dit blad wil je afdrukken?") ActiveWindow.SelectedSheets.PrintOut From:=Start, To:=Start Fout: End Sub

Foutje, je moet niet Shift-F11 toetsen, maar ALT-F11 (de linker ALT-toets ingedrukt houden terwijl je op F11 drukt).

Én Peter, gelukt ?

Voor nummering is wel een formule te bedenken, maar dan moet wel precies bekend zijn hoe die nummering moet verlopen. Dat is in jouw voorbeeld niet het geval. Er is bv. niet te beoordelen waarom na 3.2 de nummering 3.2.1 moet komen en niet 3.3 Evenzo: waarom volgt er na 3.2.1.7 de nummering 3.2.2 en niet 3.2.1.8 ? Hetzelfde na 3.2.2.4 Kortom: als er geen eenduidige regel is, dan kun je geen ALGEMENE formule gebruiken.

Daar bedoel ik mee: een module in de vba-editor. Toest Shift - F11 en kies in het menu: Invoegen - Module. Plaats daar de code.

Het is mij (en mij niet alleen denk ik) volslagen onduidelijk hoe jullie uit de gegevens van "Bestellingen(2).xlsx" de "Kopie van voorbeeld lijst zoals we maken in Excel 1.xlsx" samenstellen.

Plaats deze code in een module: Function Sumblancs(myrange As Range) Application.Volatile Dim cl As Range Sumblancs = 0 For Each cl In myrange If cl.Interior.colorindex = -4142 Then Sumblancs = Sumblancs + cl.Value End If Next cl End Function Typ dan in M2 en kopieer naar beneden: =sumblancs(A2:L2)

Dat komt omdat je de foto hebt ingevoegd op een plaats dat nog tot het tekstgedeelte behoort (ook al lijkt dat niet zo). 1. Typ je tekst eerst zonder opmaak (als "platte tekst"), maak die later pas op. En plak tekst zeker niet als HTML, dat is vragen om problemen. 2. Plaats de cursor op de plaats waar je de foto wil invoegen (nooit midden in een zin of regel, altijd aan het begin van een alinea tegen de kantlijn; de foto op de juiste plaats zetten komt nadien wel). Druk dan net zolang op Enter dat er meer dan voldoende ruimte komt om de foto te plaatsen. 3. Plaats de cursor terug waar je begonnen bent met blanco regels in te voeren (dus juist onder de tekst waaronder de foto moet komen). Voeg dan via "Invoegen - Afbeelding" de foto in. Maak na invoegen eventueel de foto via een hoekpunt al wat groter of kleiner. 4. Klik met de rechtermuisknop op de foto en kies in het dan verschijnende menu: "Tekstterugloop - Meer indelingsopties", en klik bovenaan op de gewenste optie. Als dat "om kader" is zoals je schrijft, duid dan onderaan in dat venster aan of de tekst aan beide kanten van de foto mag verschijnen of slechts aan 1 kant en hoeveel afstand tot de foto in acht moet worden genomen. Klik dan op "Ok". 6. Je bent terug in je document en kunt nu met ingedrukte linkermuisknop de foto op de gewenste plaats zetten en indien nodig nog wat vergroten of verkleinen. 7. Door de 'Enters' van punt 2 heb je onder de foto een grote witte ruimte; die mag je nu wissen en dan ben je klaar.

In het blad "Kosten" staat er na elke "Totaal + getal" op de meeste plaatsen ook nog een spatie na het laatste cijfer, zorg dat je daar met vert.zoeken rekening mee houdt.

En in de tweede formule moet A11 natuurlijk A1 zijn. Sorry, ik ben te gehaast geweest.

in de tweede formule moet het getal 4 een 5 zijn !!

Ik verzuimde dollartekens te plaatsen, het moet zijn: =ALS.FOUT(VERT.ZOEKEN(A1;Kosten!A$2:G$1000;6;ONWAAR);"") en =ALS.FOUT(VERT.ZOEKEN(A11;'5B'!D$2:H$1000;4;ONWAAR);"")

Twee foutjes: Het eerste is hierboven al genoemd: je zoekt bv. op "Totaal 150000" waaarbij er 2 spaties staan tussen Totaal en 150000. Voor het blad "Kosten" is dat juist, maar in het blad "B5" staat er tussen Totaal en 150000 maar 1 spatie. Je moet dus ofwel in het blad B5 na 'Totaal' ook 2 spaties plaatsen, of in het blad "Kosten" én in je vert.zoekfunctie 1 spatie weghalen. Best lijkt mij om maar 1 spatie over te houden, dat voorkomt vooral bij anderen verwarring. Het tweede is de vert.zoekfunctie voor het blad B5. Die luidt: =VERT.ZOEKEN(A11;'5B'!D:H;8;ONWAAR) Het getal 8 moet je wijzigen in 5. Je moet nl. niet tellen vanaf kolom 1 maar vanaf kolom 4, je zoekbereik startimmers in kolom D. Niet fout, maar in plaats van D:H kun je beter een nader gedefinieerd bereik gebruiken, bv. D2:H1000 (als je gegevens niet meer dan 1000 rijen omvatten); het heeft weinig zin en het is niet efficiënt om in meer dan een miljoen rijen te gaan zoeken als je maar 1000 rijen gebruikt. Om #NB te vermijden, gebruik in het blad "verschil": in C1: =ALS.FOUT(VERT.ZOEKEN(A1;Kosten!A2:G1000;6;ONWAAR);"") in D1: =ALS.FOUT(VERT.ZOEKEN(A11;'5B'!D2:H1000;4;ONWAAR);"")

In zijn algemeenheid kun je stellen dat voor beheer van een bestand met niet-numerieke gegevens Access de voorkeur heeft boven Excel. Toch kiezen veel mensen ook dan voor Excel omdat ze dat gemakkelijker vinden. Of dat zo is, daarover kun je van mening verschillen en discussiëren, maar dat ga ik hier niet doen. Of je nu veel of weinig ervaring hebt met Excel: de belangrijkste bron van informatie over het programma en hoe er mee om te gaan, vind je in Excel-Helpfile. Die kun je oproepen door na opening van het programma op F1 te drukken. Je kunt daar alle onderwerpen die je in de linkerkolom ziet staan al eens doorlopen (daar alleen al kun je vele maanden mee bezig zijn), dat geeft je een idee van de mogelijkheden. Wil je info over een bepaald onderwerp, zoals bij jou nu het geval is, typ dan links-bovenaan in de helpfile je onderwerp, in dit geval bv: validatie. Je krijgt dan aan de rechterkant meteen als resultaat: gegevensvalidatie toepassen op cellen. Als je daarop klikt krijg je een uitvoerige beschrijving over valideren. Ook op internet kun je gratis cursussen vinden over Excel. Als je begint met Excel geef jezelf dan eenvoudige opdrachten en probeer die uit te werken. Uit de fouten die je dan maakt leer je automatisch hoe het wel moet en bij onoverkomenlijke problemen kun je altijd op internet zoeken en je vragen stellen op een forum zoals dit. Het belangrijkste van Excel zijn de functies, een aantal daarvan moet je goed kennen om met Excel om te gaan. Typ in de helpfile als zoekopdracht: Lijst met werkbladfuncties, als je dan op het eerste gevonden resultaat klikt, zie je ze allemaal staan. Lees eens door waarvoor ze dienen, dan zie je meteen welke voor jou nuttig kunnen zijn. Bij vrijwel elke functie wordt een voorbeeld gegeven van hoe de functie te gebruiken, daar kun je veel uit leren. Je kunt stellen: als je de functies kent en vooral hoe ermee om te gaan, dan ken je veel van Excel en kun je er veel mee doen. Al de rest kun je meestal opzoeken in de helpfile of leer je door je het menu van Excel uitvoerig te doorlopen en na te gaan wat er gebeurt als je daarin een item aanklikt. Excel leer je door er veel, heel veel, mee te werken. "Excel in 24 uur" (boeken met zulk soort titels bestaan) bestaat dus niet echt. Het is zoals met autorijden: je kunt erover lezen, maar je leert het maar in de praktijk. Ik heb gezegd!

Stel dat je tussen rij 8 en 9 een rij wil invoegen. Als het blad niet beveiligd is kun je dan een rij invoegen door met de rechtermuisknop op rijnummer 9 te klikken en in het dan verschijnende menu te kiezen: Invoegen. Dan moet je daarna nog de formules van rij 8 naar de nieuwe rij 9 kopiëren. Dat doe je door (het gedeelte van) rij 8 waarin formules staan te selecteren (bv. met ingedrukte linkermuisknop A8:K8 selecteren als je tabel loopt van kolom A t/m kolom K), dan de muisaanwijzer rechts-onderaan K8 plaatsen (de aanwijzer wordt dan een plusteken), dan de muisknop indrukken en vervolgens die rij 'naar beneden trekken', waardoor de inhoud van rij 8 naar rij 9 wordt gekopieerd. Is het blad beveiligd, dan kun je de beveiliging opheffen door in het menu te kiezen: "Start", en in de groep "Cellen": Opmaak - Beveiliging blad opheffen. Als de beveiliging is ingesteld met een wachtwoord, moet je wel het wachtwoord weten.

Als je een printopdracht geeft dan drukt Excel standaard het blad af dat actief is (in de praktijk: het blad dat zichtbaar is). Een (werk)blad in Excel kan uit meerdere pagina's (pagina's A4, A5, of een andere grootte) bestaan. Wil je dat slechts 1 pagina wordt afgedrukt, dan moet je bij de Pagina-instelling - tabblad Blad het afdrukbereik instellen. Als de inhoud van een blad kleiner is dan 1 pagina, dan hoef je het afdrukbereik niet in te stellen. Het kan voor jou handig zijn om het icoon van de opdracht Afdrukvoorbeeld en afdrukken in de werkbalk snelle toegang te plaatsen, zodat je dat altijd snel kunt gebruiken (maar wellicht heb je dat al gedaan).

In de bijlage een voorbeeld op de manier zoals ik in het vorig bericht schreef. PC-Helpf timpie.xlsx

Het eenvoudigst lijkt mij om je gegevens samen te voegen: een kolom met de 4 leeftijdscategorieën en een kolom met de bijbehorende aantallen. Daarna kun je die twee kolommen met gegevens selecteren en in het menu kiezen: Invoegen - Kolom (een kolomgrafiek lijkt mij hier het meest aangewezen).

Mijn tweede voorbeeld was niet juist, ik bedoelde invoer van: 0,10 0,20 en -0,40 ; uitkomst 0,10 terwijl dat -0,10 moet zijn.