alpha

Het zou natuurlijk interessant zijn om te vernemen (niet alleen voor mij, maar ook voor anderen die dit topic lezen) welk effect de vermelde handelingen precies hadden (de grootte van het Excelbestand vóór en ná).

Het gaat NU bij jou niet goed, maar gisteren wel, dat heb je zelf vastgesteld. Je hebt de fout gemaakt waar ik gisteren nog zo voor waarschuwde: de sectie-einden verwijderd. In het bijgevoegde document heb ik ze weer terug geplaatst. Dat is in het menu maar 1 x op een knop klikken ("Tekst rechts uitlijnen"). Dat heb ik nu ook gedaan. Opm: als je een afdrukopdracht hebt gegeven, staan op de eerste pagina rechtsboven de paginanummers. Die hoef je NIET te verwijderen als je een nieuwe printopdracht gaat geven, die worden automatisch gewijzigd in wat je bij de nieuwe opdracht aangeeft. Test PC-Helpf Keurmeister.docm

Dat is niet "gewoon doornummeren", dat is een afwijkende nummering; want voor Word zijn, wat voor jou de derde en vierde pagina zijn, de pagina's 5 en 6. Maar je krijgt het zoals je het hebben wil. Zet je printer aan en toets Ctrl-q. Voorbeeld van 'Aantal': als je 2 invult, worden er 2 pagina's afgedrukt: voor- + achterzijde (bij niet dubbelzijdig printen zijn er dat uiteraard 4). Bij 'nr. eerste pagina' alleen een getal invoeren en niets anders; wat je voor en na dat getal wil wordt autiomatisch toegevoegd. Let op dat je de sectie-einden niet verwijdert, want daarmee help je de boel om zeep. PC-Helpf Keurmeister.docm

De nummering is mij nog niet helemaal duidelijk. Wel duidelijk is dat die alleen op de voorkant moet komen van elk afgedrukt blad. Stel je geeft bij een printopdracht op als aantal afdrukken: 2. Bij dubbelzijdig afdrukken worden er dan 2 A4-bladen afgedrukt (die aan beide zijden bedrukt zijn); voor Word zijn dit 8 pagina's. De voorkant van blad1 krijgen de nummers 2018-00001-CU en 2018-00002-CU De achterkant van blad 1 wordt niet genummerd. Maar hoe wil je de voorkant van blad 2: moet dat 2018-00003-CU en 2018-00004-CU worden of 2018-00005-CU en 2018-00006-CU ?

Ja hoor, dat kan, alhoewel ik het zelf nooit in die mate heb meegemaakt. Het zou interessant zijn als je eens zou uitvoeren wat ik onder de punten 2 en 3 schreef (niet tegelijkertijd maar afzonderlijk). Als punt 2 effect heeft, dan is dat een sterke aanwijzing dat er ongebruikte rijen en kolommen door Excel in beslag worden genomen. Uitvoering van punt 3 zal sowieso voor verkleining van het bestand zorgen.

Ik zal er naar kijken, maar een antwoord zal voor morgen zijn (als dan anderen nog geen oplossing hebben aangeboden).

50 pagina's ? Dat zouden 12 1/2 voorzijden zijn en 12 1/2 achterzijden, dat kan niet zoals je weet. Bedoel je 100 ?

Hoe worden de pagina's afgedrukt? Als je 4 kolommen afdrukt, draait de pinter dan automatisch de pagina om de kolommen 3 en 4 op de achterzijde af te drukken? M.a.w.: geef je 1 printopdracht om voor- en achterzijde van een blad af te drukken, of gebeurt dat in 2 printopdrachten?

Dan is het dus zo dat niet elke pagina, maar elke kolom een eigen nummer moet krijgen. Maar je schreef ook dat de nummering alleen op de voorkant moet komen. Is het dan zo dat de kolommen 1 en 2 (voorzijde eerste blad) wél genummerd moeten worden, de kolommen 3 en 4 (die aan de acherzijde van het eerste blad staan) niet, de kolommen 5 en 6 (voorzijde tweede blad) wél, de kolommen 7 en 8 (achterzijde tweede blad) niet ? Enz.?

Je schrijft: "Elke pagina (een vel papier) die afgedrukt wordt dient een nieuw uniek nummer te krijgen..." maar jij geeft pagina 1 twee nummers, namelijk 2018-00001-CU en 2018-00002-CU Wat moet het nu zijn ?

Als je de info die je in je laatste bericht verstrekte nu eens in je eerste bericht had vermeld, dat zou voor het geven van een antwoord een stuk gemakkelijker zijn geweest. Bekijk mijn tweede bericht, dat is denk ik ongeveer wat je wenst. Niet vermeld heb je of je er een 'boekje' van wil maken. Dat stelt andere eisen aan de paginanummering.

De paginanummering in de bijlage bij vorig bericht, is niet helemaal zoals je wenste. Dat is in onderstaande bijlage gecorrigeerd. Tevens heb ik nu gekozen voor een "liggend" blad A4. PC-Helpf Keurmeister2.docx

Dat is makkelijker dan je (wellicht) denkt. Je kunt de pagina's indelen in twee kolommen, maar de kolomnummering is dan niet zo eenvoudig. Je kunt m.i. beter van 1 A4-pagina twee pagina's maken met een paginabreedte die dehelft is van een A4-blad (dus 10,5 cm breed). Dan verloopt het verder hetzelfde als bij een gewoon (A4)-formaat. Zie de bijlage voor het voorbeeld. Opm: Je zou evt. ook voor een liggende pagina kunnen kiezen. PC-Helpf Keurmeister.docx

Niks verkeerd gedaan denk ik. Probeer volgende mogelijkheden (1 voor 1). 1. Als je bestand een .xls-bestand is (dan is het gemaakt in Excel 2003 of een nog eerdere versie van Excel), sla het dan eens op als .xlsx-bestand. 2. Excel heeft soms/vaak veel meer rijen en kolommen in gebruik dan op het oog lijkt. Doe bij het grote bestand het volgende: Selecteer de eerste niet-in-gebruik-zijnde kolom door boven de kolom 1 x op de kolomletter te klikken. Druk dan de CTRL- én Shifttoets in en houd die beide ingedrukt terwijl je 1 x op de pijltje-naar-rechts-toets drukt. Alle niet in gebruik zijn de kolommen worden dan geselecteerd. Kies dan in het menu: Start - klik in de groep "Cellen": Verwijderen - Bladkolommen verwijderen. Hetzelfde voor de rijen: Klik in het blad onder je gegevens op het eerste niet in gebruik zijnde rijnummer (er wordt dan 1 rij geselecteerd). Druk dan de CTRL- én Shifttoets in en houd die beide ingedrukt terwijl je 1 x de pijltje-naar-beneden-toets drukt. Alle niet in gebruik zijn de rijen worden dan geselecteerd. Kies dan in het menu: Start - klik in de groep "Cellen": Verwijderen - Bladrijen verwijderen. EWr lijkt nu niets gebeurd, maar als je het bestand hebt opgeslagen zul je zien dat het in omvang kleiner is geworden (hoeveel is vooraf niet te zeggen, dat is afhankelijkvan de bewerkingen die ermee gebeurd zijn). 3. Sla het bestand op als .xlsb-bestand. Dat zal vrijwel zeker voor een (enorme) verkleining in MB's zorgen. Laat het resultaat van bovenstaande handelingen eens weten aub.

In de formule in vorig bericht ontbreekt een dollarteken, het moet zijn: =ALS.FOUT(INDEX(Actielijst!$E$3:$E$100;KLEINSTE(ALS(Actielijst!$B$3:$B$100=B$3;RIJ(Actielijst!$E$3:$E$100)-RIJ(Actielijst!$E$3)+1);RIJEN(C$3:C3)));"")

Als in het blad Januari de datums ook als datum zijn opgemaakt, kun je in C3 van dat blad gebruiken (in te voeren via Ctrl-Shift-Enter): =ALS.FOUT(INDEX(Actielijst!$E$3:$E$100;KLEINSTE(ALS(Actielijst!$B$3:$B$100=B3;RIJ(Actielijst!$E$3:$E$100)-RIJ(Actielijst!$E$3)+1);RIJEN(C$3:C3)));"")

Zo begint iedereen, maar als je er wat in verdiept leer je snel bij.

Natuurlijk kan dat, maar het valt me wel tegen dat je dat na bovenstaand voorbeeld zelf niet kunt. Ook op internet kun je dat heel snel vinden, maar je leert het meest door het zelf proberen uit te zoeken. Vervang dit: .Range("a" & .Range("a1").CurrentRegion.Rows.Count + 1).Value = _ ThisWorkbook.Name & " " & ThisWorkbook.ActiveSheet.Name & " is bijgewerkt." door dit: .Range("a" & .Range("a1").CurrentRegion.Rows.Count + 1).Interior.ColorIndex = ... Op de plaats van de punten kies je een getal van 1-56.

@Dixon, Je hebt 10 nummers in kolom A en 15 datums in rij 1 In blad "Lijst" moeten de datums vertikaal komen in kolom A, en elk nummer moet bij elke datum weergegeven worden, wat wil zeggen dat elke datum vertikaal 10 x moet worden weergegeven. Dat worden dan 15 x 10 = 150 datums. In A2:A11 komt dan 01-09-17, in A12:A21 komt 02-09-17, enz. Programmatisch kopieer je 01-09-17 naar A2:A11, 02-09-17 naar A12:A21, enz. De nummers 1 t/m 10 kopieer je naar B2:B11, B12:B21, enz., totaal 15 x. De gegevens in de kolommen B t/m P van het blad "Gegevens" moeten in Blad "Lijst" onder elkaar komem in kolom C (vanaf C2). Dat betekent ook weer 15 x kopiëren, waarbij het kolomnr. telkens met 1 en het rijnr. met 10 moet worden opgehoogd. De getallen 10 en 15 van hierboven maak je variabel (je noemt ze bv. a en b, waarbij a kan staan voor het aantal nummers en b voor het aantal datums), zodat ze niet alleen voor de getallen 10 en 15 maar voor elk aantal nummers en elk aantal datums gelden. Dat is in het kort het belangrijkste wat programmatisch moet gebeuren. Het kost een aantal uren tijd, maar dan heb je ook wat.

Als je een blad hebt bijgewerkt kun je met deze macro de tab rood kleuren en in een ander bestand vastleggen welk bestand en welk blad het was. Pad en bestandsnaam moet je natuurlijk aanpassen aan je eigen situatie. Sub macro1() Dim wbook As Workbook With ActiveSheet.Tab If .ColorIndex = 3 Then Exit Sub Else .ColorIndex = 3 End If End With Set wbook = Workbooks.Open("C:\Documents and Settings\Eigenaar\Mijn Documenten\mijnbestand.xlsx") With wbook.Sheets("Blad1") .Range("a" & .Range("a1").CurrentRegion.Rows.Count + 1).Value = _ ThisWorkbook.Name & " " & ThisWorkbook.ActiveSheet.Name & " is bijgewerkt." End With wbook.Close savechanges:=True End Sub

@Benkenks, Om een bestand met de extensie .lnk te kunnen openen, moeten lezers van dit forum speciale maatregelen nemen op hun computer. Daar zullen weinigen toe bereid zijn, waarschijnlijk ook daarom dat er nog niemand op je vraag heeft gereageerd. Als je hier een Excelbestand plaatst, heb je veel meer kans op succes.

En toen werd het stil....

Vorig bestand is niet helemaal juist (wat kolom E betreft). Hierbij de juiste gegevens. PC-Helpf IsaMar3.xlsx

Dat kun je doen zoals in kolom E, waarbij je ervoor zorgt dat van elk item slechts 1 x de uitkomst wordt berekend; of je kunt een lijstje maken zoals in de kolommen G:H met in kolom G alle mogelijke waarden van de items en in kolom H de bijbehorende uitkomsten. Zie de bijlage. PC-Helpf IsaMar2.xlsx

Met de gegevens zoals in het bestand dat ik hierboven postte, iets korter: =SOMPRODUCT((A2:A6="1a")*((C2:C6)+(B2:B6)*(C2:C6=0)))