alpha

Je hebt je blad beveiligd met een wachtwoord, dan valt er weinig mee aan te vangen.

Dat verbaast me, want de oplossing met formules is veel eenvoudiger en veel sneller op te stellen dan die met vba-code. Ik heb met mijn reacties willen laten zien dat oplossingen mogelijk zijn zonder wijzigingen aan de indeling van je bladen aan te brengen, niet omdat ik dat de beste oplossingen zou vinden. Ik ben nl. van mening dat als een eenvoudige oplossing mogelijk is, je het best dáár voor kunt kiezen. Daarom lijkt mij de oplossing van bucky het meest aan te bevelen. Die is het kortst en geeft ook minder aanleiding tot fouten bij de invoer op het tweede blad (denk aan [spatie streepje - spatie] ).

Formules in cellen geraak je ook niet kwijt hoor, als je de cellen waarin ze staan maar beveiligt.

Zoals ik al schreef is dat met vba gedaan, dat is een programmeertaal voor MS Office-toepassingen. Druk Alt-F11 om in de vba-editor te geraken.

deevvb, Heb je mijn bestand bij bericht #8 nog bekeken? In de bijlage bij dit bericht een vba-oplossing. je hebt nu alle oplossingen die redelijkerwijs mogelijk zijn. PC-Helpforum - deevvb2.xlsm

Plongske, dat zag ik, vandaar mijn reactie. Jouw oplossing is niet fout, maar stel (in het imaginaire geval) dat de gebruiker in alle cellen tekst invoert in plaats van getallen, dan is de uitkomst toch nog een 0, terwijl de vragensteller helemaal niets wil zien verschijnen. Ik weet het, het is discussie in de marge, want als je in plaats van de cellen blanco te laten er nullen invult, dan geeft de aantal-formule ook een nul als uitkomst, omdat nul voor die functie ook een getal is. Alles heeft zo zijn voor- en nadelen.

Het gaat om getallen, dan kun je best ook daarop controleren : =als(aantal(L1;U1;AF1)>0;som(L1;U1;AF1);"")

Wat de tekening betreft: als die niet meer de gewenste grootte heeft of niet meer op de juiste plaats staat, kun je proberen om dat met een macro te herstellen. Voer onderstaande macro uit (na eerst de beveiliging van het blad gehaald te hebben) en bekijk dan de tekening in het werkblad. Pas daarna (indien nodig) de getallen in de macro net zo lang aan tot de tekening precies op de gewenste plaats staat en de gewenste vorm heeft. Eenmaal juist, bewaar je de macro en kun je hem altijd gebruiken zonder dat je nog aanpassingen moet doen. Sub macro3() With Sheets(1).Shapes("Grafiek 3") .Select .ScaleWidth 0.95, msoFalse, msoScaleFromBottomRight .ScaleHeight 0.83, msoFalse, msoScaleFromBottomRight End With ActiveChart.PlotArea.Select With Selection .Width = 215 .Height = 200 .Left = 164 .Top = 17 End With End Sub

Hoe de niet-ingevulde cellen in C9:C19 moesten worden ingevuld, was af te leiden uit de cellen die wel ingevuld waren. Je moet daar wel wat tijd aan besteden, in een half uur gaat dat niet. Hoe dan ook, in de bijllage zijn alle cellen volledig ingevuld. Je doet er natuurlijk verstandig aan om die cellen te beveiligen. Ik ben over het algemeen geen voorstander van erg lange formules, maar hier kon het niet anders. Althans, niet met formules. Een oplossing met vba zou ook mogelijk zijn, maar daar heb ik vandaag geen tijd voor. Misschien later. PC-Helpforum - deevvb.xlsx

In de bijlage een oplossing waarbijde indeling van het blad TZO ongewijzigd wordt gelaten. De oplossing is gebaseerd op het feit dat tussen twee items telkens een spatie, een dwarsstreepje, en weer een spatie staat. Daar moet je dan wel consequent in zijn (in jouw voorbeeld nl. staat er op het blad TZO na het eerste item 1 spatie gevolgd door een streepje, en na het weede item staan twee spaties gevolgd door een streepje). Als uit 1 cel verschillende items gehaald moeten worden, dan vergt dat uiteraard een ingewikkelder oplossing dan wanneer dat niet het geval is; dat kan niet anders. PC-Helpforum - deevvb.xlsx

Als het blad wordt gekopieerd, dan verschijnt deze melding (dat zul je wel gemerkt hebben neem ik aan): "U wilt een formule of bestand verplaatsen of kopiëren met daarin de naam vandaag, die al bestaat op het bestemmingswerkblad...." Dat is vermoedelijk de reden dat de naam van het originele blad wordt behouden. =VANDAAG() is nl. een zogenaamde 'volatile'-functie, die wordt herberekend bij elke wijziging van of in het blad. Haal je die functie (en verwijzingen ernaar) weg, dan zal de nieuwe naam van het blad wel verschijnen. Ik kan dat (en ook het schalen van de tekening) niet controleren omdat je het blad hebt beveiligd met een wachtwoord. Maar je kunt dat natuurlijk eenvoudig zelf nagaan. Bij kopiëren van het blad behoudt de tekening bij mij dezelfde vorm en plaats. Als dat bij jou niet zo is, kan een mogelijke oorzaak zijn dat de zoominstelling anders staat dan in het oorspronkelijke blad.

Met welke versie van Excel werk je? Plaats eens een bestand waarin het probleem zich voordoet.

@kevein, om bewerkingen op objecten uit te voeren is het niet nodig om ze eerst te selecteren. Jouw macro geeft ook niet het gewenste factuurnummer, dat zul je wel al gemerkt hebben. De reden is dat er in jouw macro op blad1 naar kolom A wordt gekeken, maar die heb je verder ingevuld dan kolom B, dus je moet naar kolom B kijken. Ik zou onderstaande code kiezen. Hierbij zij opgemerkt dat met de regels 4 en 5 op blad 1 de kolommen B en C worden ingevuld, behorend bij het factuurnummer op blad2. De macro is dan automatisch gereed om het volgende factuurnummer te genereren. Als je dat niet wil, kun je die twee regels wissen. Sub macro2() Dim lc As Integer With Sheets("Blad1") lc = .Range("b" & .Rows.Count).End(xlUp).Row + 1 .Range("b" & lc).Value = Sheets("Blad2").Range("h2").Value .Range("c" & lc).Value = Sheets("Blad2").Range("b2").Value End With With Sheets("Blad2") .Range("h5").Value = "ABC" & Sheets("blad1").Range("a" & lc).Value End With End Sub

="ABC"&indirect("Blad1!a"&1+vergelijken(9,9E+307;Blad1!$B$1:$B$100))

De aanpassing die je wil, dat gaat niet zonder aanpassing van de code. VBA-code past zich NOOIT aan aan wijzigingen die je in een blad aanbrengt. Aan de linkerzijde kun je nu slechts 3 woorden invoeren, en in de vakken, waarvan je de grootte zelf hebt bepaald, kunnen 42 woorden. Dat kan allemaal aangepast worden. Laat even weten hoe groot de vakken aan de rechterzijde moeten worden.

Hierbij... Ambcol2.xlsm

Dat is geprogrammeerd, en zonder formules in het werkblad. Toets Alt-F11 (= linker-Alttoets ingedrukt houden terwijl je op F11 drukt). Dubbelklik aan de linkerkant op "Blad1(Blad1)", aan de rechterkant zie je dan de code staan. Dubbelklik aan de linkerkant ook eens op "Module 1" en kijk of je dan aan de rechterkant ook (bijna dezelfde) code ziet staan. Als daar wat staat, dan is dat ten onrechtye. Verwijder dan ALLES wat daar staat en sla het bestand op. (Ik kan zelf niet controleren of daar wat staat, omdat ik om een onbekende reden mijn eigen bestand bij dat laatste bericht niet kan downloaden; heb daarover de forumleiding al geïnformeerd, maar nog geen reactie ontvangen). Edit: @Ambcol, ik lees nu in je laatste reactie dat jij evenmin het bestand kunt downloaden. Het zou kunnen (maar dat weet ik niet zeker) dat de reden is, dat dat laatste bestand exact dezelfe naam heeft dan het bestand bij het vorige bericht. De laatste versie verschilt niet veel, maar is toch iets beter. Even geduld, dan zal ik die laatse versie met een andere bestandsnaam posten.

In het bestand bij vorig bericht staat een opdracht die in sommige gevallen tot een foutmelding leidt. Ik kan dat bericht (en dus ook de bijlage) niet meer wijzigen, daarom hierbij een gecorrigeerde bijlage.

Typ wat in het NL-gedeelte. 1 woord per cel maakt het veel eenvoudiger en geeft minder aanleiding tot fouten bij de invoer, je moet dan geen komma's typen. ambcol.xlsm

1. Excel is in de eerste plaats een rekenprogramma en zeker geen vertaalprogramma, ik vind het onverstandig om het voor dat laatste te willen gebruiken; daar zijn andere programma's voor. 2. Als je toch wil vertalen, gebruik dan voor elk woord een afzonderlijke cel. Meerdere woorden in 1 maakt het veel ingewikkelder. Dat kan wel, maar dan moet je steeds gaan berekenen waar het eerste, tweede, enz. woord in de cel begint (te zien aan waar een spatie staat), dat kan met de functie SEARCH, maar met veel woorden is dat nogal lastig). 3. Als je Excel toch wil gebruiken, dan moet je voor elk Nederlands woord kolom A doorlopen (bv. met een for-nextlus) om te kijken óf en wáár het woord/de woorden van G3 staan, en áls het voorkomt in kolom A de overeenkomstige woorden in de kolommen B en C in G10 en G17 weergeven.

Met de tekst "Via het lint zie ik zo gauw geen mogelijkheid." in mijn vorig bericht, bedoelde ik dat die mogelijkheid in Excel standaard niet aanwezig is. Te programmeren is die natuurlijk wel. Ikzelf blijf de keuzemogelijkheid met de pijltjes verreweg het handigst vinden.

Wat de keuze van de bladen met programmeren te maken heeft, is me niet duidelijk. Met behulp van die pijltjes een keuze maken lijkt mij sneller te verlopen dan via het lint. Via het lint zie ik zo gauw geen mogelijkheid.

1. Wat bedoel je precies met "dat een andere (reeks samengevoegde cellen) de volgorde aanneemt" ? 2. Staan er in de cellen van punt 1 meerdere woorden in 1 cel ?

Er is een andere eenvoudige methode om een keuze te maken uit de verschillende bladen; die bestond overigens ook al in de versie 2002/3003 en eerder van Excel. Klik links-onderaan met de rechtermuisknop op 1 van de pijltjes die je links van het eerste blad staan. Kies dan met de linkermuisknop het blad waar je naar toe wil.

Zie bijlage "Blad1". Bovenaan staan in kolom A de productcodes en daarnaast in 14 x 3 = 52 kolommen de optellingen van de verschillende kolommen in het blad "ORDER TEMPLATE". Daaronder, van rij 23 t/m 43, de optellingen van die 52 kolommen. Dat is het resultaat dat je uiteindelijk wil hebben denk ik. In de 14 tabellen bovenaan is gebruik gemaakt van SOM.ALS en NIET van SOMMEN.ALS voor de Totaal-kolom. Let op dat in die 14 tabellen in de "EU"-kolommen een functie is gebruikt die via Ctrl-Shift-Enter is ingevoerd (=de Ctrl- en Shifttoets ingedrukt houden terwijl op Enter wordt gedrukt). Als daarin niet Ctrl-Shift-Enter wordt gebruikt, verschijnen er onjuiste getallen. verhelv.xlsx