alpha

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

Kan iets eenvoudiger. renezomer02.xlsx

Dit zou juist moeten zijn. renezomer.xlsx

het hier geplaatste bestand was niet volledig juist, ik zal een nieuw bericht plaatsen met daarbij het juiste bestand.

Maak kolom G eerst goed zichtbaar als ze dat niet is. Selecteer kolom G door op de letter G boven de kolom te klikken. Klik bovenaan in het menu op Beeld en daarna op Blokkeren --> Titels blokkeren.

Ik dacht dat ik het toch goed omschreven had. Ik herhaal: - Druk ALt-F11 (de Alt-toets ingedrukt houden terwijl je op F11 drukt), je komt dan in de vba-editor. - Aan de linkerkant zie je staan (als je goed kijkt): ThisWorkbook. Dubbelklik daar op, aan de rechterkant zie je dan de macro staan die je moet verwijderen.

In de bijlage een voorbeeld. 1. Bij openen wordt aangegeven hoeveel woorden er nog mogen worden ingevoerd. Als er nog niets is ingevoerd zijn er dat in dit voorbeeld slechts 50. 2. Om de 30 seconden wordt de melding herhaald. 3. Als het aantal nog in te voeren woorden minder dan 10 bedraagt, wordt gevraagd om het document op te slaan en af te sluiten (maar als de gebruiker wil doorgaan met typen, dan blijft dat mogelijk). De getallen 50, 30 seconden, en 10 moet je aanpassen aan jouw situatie. Wat je best kunt kiezen, is afhankelijk van de lengte van de toegestane tekst. Om de 30 seconden een bericht laten verschijnen is natuurlijk veel te vaak (daar ergert iedere gebruiker zich blauw aan), maak daar bv. 10 minuten van of langer, de timevalue wordt dan bv. "00:10:00" . NB: Omdat .docm-bestanden niet kunnen worden toegevoegd, is het Wordbestand ingepakt in een zipfile. MarleenPVBB.zip

1. Druk ALt-F11 (de Alt-toets ingedrukt houden terwijl je op F11 drukt), je komt dan in de vba-editor. 2. Haal daar de macro weg die bij "ThisWorkbook" hoort. 3. Ga naar het te kopiëren blad en klik daar 1 keer op het vakje boven de 1 van de rijnrs. en links van de A van de kolomnamen; het volledige blad wordt dan geselecteerd. 4. Klik op het icoon "Kopiëren". 5. Ga naar het blad waarheen je wil kopiëren, klik ook daar 1 keer op het vakje vermeld onder punt 3, en klik op de knop "Plakken". 6. Hef de selectie van de geselecteerde bladen op.

@verhelv, Het topic is terug geopend, zie ik. Dat geeft mij de kans om je nog een vraag te stellen. Het interesseert me wel om te vernemen welke oplossing je hebt gebruikt. De kolommen PRODUCT_CODE eN PRODUCT_ITEMS komen in het blad "ORDER TEMPLATE" elk 14 keer voor. Je wil de items optellen per code en per regio. Maar SOMMEN.ALS kun je (voor zover ik weet) niet over meerdere kolommen tegelijkertijd gebruiken, zelfs niet als je de betreffende kolommen samen een naam zou geven. Er rest dan denk ik (als je geen vba wil gebruiken) alleen een oplossing waarbij je 14 keer een optelling maakt en die 14 uitkomsten optelt. En dit voor beide regio's en per productcode. Dat zijn samen een heleboel optellingen en na afloop moet je dan ook nog de dubbele (of meer) tellingen er uithalen, want verschillende productcodes komen meerdere keren voor. Ik ben benieuwd hoe je een en ander hebt opgelost. Een oplossing met vba lijkt mij het meest praktisch; die zou wat tijd in beslag nemen, maar dan heb je ook wat.