alpha

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)))

Zie de bijlage. PC-Helpf IsaMar.xlsx

Dat vind ik verstandig. Hiermee kunnen we afsluiten, vind je niet?

@Piet, Vreemd dat je per se somproduct wil blijven gebruiken, hoewel ik duidelijk heb uitgelegd waarom (zeker bij een groot aantal rijen) som.als verreweg de voorkeur verdient.

Dat is toch logisch ! Kolom C is een kolom met tekst en kolom F een kolom met getallen (als je er geen tekst boven zet). Het zijn de getallen die vermenigvuldigd en opgeteld moeten worden.