alpha

Jammer dat je dat eerder hebt laten weten, dan had ik me de moeite kunen besparen.... Natuurlijk kan die grafiek ook zonder hulpcellen, maar ik gebruikte ze juist omdat jijzelf die in je voorbeeldbestand geplaatst had.

het eenvoudigst is om handmatig in de grafiek twee lijnen toe te voegen, dan moet je verder alleen maar waarden voor de boven- en ondergrens invoeren. Wat je in de userform met 'eenheid' wil aanvangen is me niet duidelijk, dus daar heb ik niets mee gedaan. Zie verder de bijlage. PC-Help elbartje.xlsm

@mista_V, Ik heb jouw probleem zorgvuldig bekeken en gezien dat zo'n macro wel te maken is, maar dat zou wel veel tijd kosten. Moeilijke opdrachten zijn er evenwel niet voor nodig, maar het is wel een zeer nauwkeurig werk (dat is programmeren trouwens altijd). Normaliter is het doel van een forum om hulp te bieden aan mensen die problemen ondervinden bij wat ze aan het maken zijn. Jij (en jij niet alleen) vraagt om een complete oplossing 'from scratch'. Dat vind ik weinig zinvol, want daar leer je niks van. Programmeren leer je door het zelf te doen, niet door klakkeloos oplossingen van anderen over te nemen. Wat heb ikzelf er trouwens aan om er enkele dagen tijd aan te besteden? Ik heb ook andere dingen te doen en met dit mooie weer breng ik in het weekend mijn tijd ook liever buiten door. Dit is niet negatief bedoeld t.o.v. jouw persoon, maar een aansporing om zelf aan het werk te gaan. Het staat je natuurlijk vrij om dat advies al dan niet ter harte te nemen. In je voorbeeld van wat het resultaat zou moeten zijn van een oplossing (de kolommen F t/m H in blad2) verbaast het mij wel dat je van artikelen die uit meerdere componenten bestaan, alleen de componenten als resultaat wil. In die lijst is dus niet meer te zien bij welk (hoofd)artikel die componenten behoren. Waarom je dat zo wil weet ik niet, maar ik vind het vreemd.

Typ in G2 en kopieer naar beneden: =ALS(EN(EN(A2>=55;A2<75);EN(OF(B2=0;EN(B2>=55;B2<75));EN(AANTALLEN.ALS(C2:F2;">0,25";C2:F2;"<0,5")>1;OF(EN(C2>0,25;C2<0,5);EN(D2>0,25;D2<0,5)))));"Ok";ALS(EN(EN(A2>=55;A2<75);EN(OF(B2=0;EN(B2>=55;B2<75));EN(AANTALLEN.ALS(C2:F2;">0,5")>1;OF(EN(C2>0,5);EN(D2>0,5)))));"Prima";ALS(EN(EN(A2>=75;A2<90);EN(OF(B2=0;EN(B2>=75;B2<90));EN(AANTALLEN.ALS(C2:F2;">0,25";C2:F2;"<0,5")>1;OF(EN(C2>0,25;C2<0,5);EN(D2>0,25;D2<0,5)))));"Uitstekend";ALS(EN(EN(A2>=75;A2<90);EN(OF(B2=0;EN(B2>=75;B2<90));EN(AANTALLEN.ALS(C2:F2;">0,5")>1;OF(EN(C2>0,5);EN(D2>0,5)))));"Enorm";ALS(EN(EN(A2>=90;A2<=120);EN(OF(B2=0;EN(B2>=90;B2<=120));EN(AANTALLEN.ALS(C2:F2;">0,25";C2:F2;"<0,5")>1;OF(EN(C2>0,25;C2<0,5);EN(D2>0,25;D2<0,5)))));"Grandioos";"Niet Ok")))))

Je bestand en uitleg is erg onduidelijk ! Enerzijds gebruik je de naam artikel, anderzijds component. Wees duidelijk en gebruik geen twee verschillende woorden voor dezelfde zaken. In rij 2 schrijf je dat artikel 223344 uit 3 artikelen bestaat en in kolom 2 schrijf je bij dat artikel dat het er 4 zijn. Wat is het? In kolom E staan artikels en componenten door elkaar. Niet duidelijk is waarom en waarom die volgorde.

Gelukkig dat je probleem is opgelost. En goed dat je dat meldt; voor lezers/hulpverleners van een forum altijd interessant om te weten.

Hier kan ik je niet mee verder helpen, mogelijk anderen wel. Die code is zonder de bijbehorende bestanden niet of nauwelijks te testen en er een slag naar slaan, dat wil ik niet.

Waar die nummering voor staat, dat had ik wel begrepen. Ik wilde er alleen mee zeggen dat als je gaat programmeren (hier in vba, maar het geldt voor om het even welke taal), dat je niet twee keer dezelfde naam (Nr.) moet gebruiken voor verschillende gegevens. Wat mijn tweede opmerking betreft: in jouw bladen 1 en 2 staan 24 cellen om ingevuld te worden, terwijl er in het blad Leads maar 20 staan (kolommen A t/m T). Als je dat zo wil dan is dat prima, maar het moet vooraf wel bekend zijn. Verder is het mij niet duidelijk of je met het maken van twee dezelfde bladen (1 en 2) wil aangeven dat voor elke rij in het blad "Leads" twee (dezelfde) bladen moeten worden aangemaakt of per rij slechts 1. In mijn bericht hierboven heb ik willen aangeven hoe een mogelijke oplossing aangepakt kan worden, maar daar ben ik kennelijk niet goed in geslaagd. Ik zit niet om werk verlegen, maar ik wil je eventueel wel verder helpen. Als je dat wil, stuur dan een privébericht.

De macro staat toch slechts in 1 bestand ? Dan kan hij niet opgestart worden vanuit steeds wisselende bestanden. Zonder de volledige macro te zien en het bestand waarin hij staat, kan ik geen antwoord geven op je vraag. Eén opmerking nog: om via vba te kopiëren of te plakken, is het niet nodig om cellen eerst te selecteren.

Probeer onderstaande code. De volgorde van de laatste twee regels lijkt vreemd, maar werkt vaak het beste. Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open("D:\testfile.xlsx") objWorkbook.Activate ' (... andere code om paar velden te updaten, "Calculate" te doen,...) objExcel.ActiveWorkbook.Save objExcel.ActiveWorkbook.Close Application.Quit ThisWorkbook.Saved = True

Ik begrijp niet dat je voor rij 2 in het blad "Leads" twee bladen aanmaakt, het waarom daarvan maak je niet duidelijk. In het blad "Leads" heeft kolom A de naam "Nr" en kolom D ook, terwijl het om verschillende nrs. gaat. Je moet geen twee dezelfde namen gebruiken als het om verschillende zaken gaat. In het blad "Leads" zijn in rij 1 minder gegevens opgenomen dan er in de klantenfiche staan, niet duidelijk is of dat ook de bedoeling is. Wil je het maken van fiches automatiseren, dan kan dat het best met een macro waarbij je voor elke rij in het blad "Leads" (vanaf rij 2) een werkblad aanmaakt en de gegevens vanuit die rij naar dat nieuwe blad kopieert. De vaste gegevens in elk blad (Naam, straat, enz.) zou je uit een blad kunnen halen dat ongewijzijgd blijft en waarin je die vaste gegevens vastlegt. Dat blad kun je voor elke rij in het blad "Leads" kopiëren waarna je dan de variabele gegevens uit rij 2 en volgende uit blad "Leads" toevoegt. Rijen en kolommen doorlopen kan met een "for-next"-lus, een "do while-", "do until-", of "while-wend"-opdracht. Bovenstaande manier is 1 van de oplossingsmogelijkheden. Het is "even" werk, maar dan heb je ook wat.

Als je in de kolom waarin je de gegevens verzamelt begint in rij 1, typ dan in de eerste cel: =indirect(rij()&"!A1") Deze formule kun je met de vulgreep naar beneden kopiëren. Begin je in de bewuste kolom niet in rij 1 maar in rij 2, dan wordt het vanzelfsprekend: =indirect(rij()-1&"!A1")

Een voorbeeldbestand kan veel verduidelijken en misschien tot een oplossing leiden.

Je schrijft dat het probleem zich voordoet als je in blad1 een rij VERWIJDERT. Daarmee verdwijnt je niet alleen de inhoud van die rij, maar ook de rij zelf. Het is logisch dat je dan de melding krijgt die je beschrijft. Als je geen voorbeeldbestand plaatst, zul je weinig reacties kunnen verwachten, lezers moeten dan wat jij hebt na gaan bouwen. Dat is tijd die jij hen gemakkelijk kunt besparen.

Transponeren is niet nodig, dat moet je allen gebruiken als je van horizontale weergave van gegevens verticale weergave wil maken, of andersom. Een macro lijkt mij het beste middel voor wat je wil bereiken. De werkwijze is dan: 1. Doorloop in Blad1 alle rijen (bv. met een for-nextlus) en kijk per rij welke bladnaam in kolom G staat vermeld. 2. Kopieer de bereffende rij (of alleen de kolommen A:E van die rij) naar de eerste lege rij van het blad waarvan de naam in kolom G staat. Dit in de veronderstelling dat alle bladen waarvan de namen op Blad1 in kolom G staan, al bestaan. Als die bladen nog niet bestaan, dan zou daarop in de macro ook gecontroleerd moeten worden. Maar als het slechts om een achttal bladen gaat, dan kunnen die blade eenvoudig vooraf handmatig worden aangemaakt (zoals in jouw voorbeeldbestand het geval is). 3. Als je de macro meerdere keren in dezelfde bladen wil uitvoeren, dan is het verstandig om voordat de macro gaat kopiëren, in elk blad de bestaande gegevens te wissen. Dat is ongeveer alles wat er moet gebeuren.

Mogelijk is dat wel, maar dan moet je met userforms gaan werken, kost nogal wat tijd om dat in elkaar te steken. Een forum is doorgaans bedoeld om vragenstellers aanwijzingen te geven of op weg te helpen, en dat ze daar dan zelf mee verder gaan. Door zelf dingen uit te zoeken leer je ook het meest.

Als je in blad1 de artikelnummers op nummervolgorde plaatst en in Blad2 de omschrijvingen alfabetisch, dan lijkt me dat toch tamelijk praktisch. Als nl. gezocht moet worden op de letters die je BEGINT te type, dan kan de omschrijving nog vanalles zijn, want er zullen omschrijvingen zijn die op elkaar lijken. En als er meerdere zijn, dan zullen die toch ook moeten worden weergegeven. Dat is lastiger dan je denkt hoor, je moet ook nog het overzicht in het blad behouden. Wat vind jij dan wel praktisch ?

Ik schreef: "Maak een keuze". Je moet helemaal niets typen maar met het PIJLTJE een keuze maken in de cellen die ik vermeldde.

Prijslijst test.xlsxMaak in Blad1 een keuze in A2 en onderliggende cellen. Maak in Blad2 een keuze in B2 en onderliggende cellen.

Als ik je goed begrijp wil je dat in Blad1 in kolom A de artikelnummers verschijnen van de omschrijvingen die in hetzelfde blad in kolom B staan. Dat kan alleen als Blad1 en Blad2 altijd dezelfde indeling hebben, dus als in Blad1 en Blad2 de artikelnummers en omschrijvingen altijd in dezelfde rij staan. Alleen vraag ik me dan af wat het nut daarvan is, want beide bladen bevatten dan dezelfde informatie. Als op beide bladen de gegevens in dezelfde rijen staan, kun je in Blad1 in A2 eenvoudig typen (als je eerst de naan van Blad1(2) wijzigt in Blad2 ): =Blad2!A2 en dat naar beneden kopiëren. In Blad2 kun je in B2 typen: =Blad1!B2 en ook dit naar beneden kopiëren. Maar nogmaals: het nut van 2 bladen met dezelfde info ontgaat mij. Wat meer voor de hand ligt is dat (zoals in het eerste bestand dat je plaatste) je 1 lijst hebt met zowel artikelnummers als bijbehorende omschrijvingen, en dat je dan in een ander blad 1 van de gegevens invoert en de bijbehorende andere gegevens opvraagt. Dat kan heel eenvoudig met VERT.ZOEKEN

Wat ik dacht blijkt ook zo te zijn, vandaar dat ik om een bestand vroeg. In je eerste bericht schreef je: ik heb een lijstje op excel met 1 rij ‘artikels’ 1 rij ‘omschrijving’ en 1 van ‘prijs’ maar het blijkt te zijn: een lijstje met 1 kolom artikels, 1 kolom met omschrijvingen, en 1 kolom met prijzen. Wil je die invoer van artikelnummers in Blad2 doen? Wat is het verschil tussen bruto en bruto incl. ? Idem voor netto en netto incl.

Plaats hier als voorbeeld eens een Excelbestand met een aantal artikelen, omschrijvingen, en prijzen.

De functie =DAG() zonder getal bestaat niet (zie de helpfile van Excel, waarin dat goed wordt uitgelegd). Als je die dag variabel wil maken (afhankelijk van de dag), zou je kunnen gebruiken: =dag(vandaag()) Je formule zal dan wel werken (bij mij toch, in Excel 2010). Je kunt ook je formule verkorten, bv. zo : =KIEZEN('Invoer Refreshments'!H16-25;Keuzeblad!Z4;Keuzeblad!AA4;Keuzeblad!AB4;Keuzeblad!AC4;Keuzeblad!AD4;Keuzeblad!AE4)

Met jouw aanpassing heb je uiteraard bij elke waarde geen 5 cijfers meer als resultaat, maar als je daar bij nader inzien de voorkeur aan geeft, dan is dat natuurlijk ok.

Altijd 5 cijfers schreef je in bericht #6. Als het decimale gedeelte eindigt op nul(len) en de celeigenschap staat ingesteld als getal, dan zal Excel die laatste nul(len) altijd weglaten. Je kunt de gewenste weergave dan alleen bereiken door van het getal tekst te maken. Dat kan bv. zo: als het aan te passen getal in A1 staat, typ dan in een andere cel: =A1&herhaling(0;6-lengte(A1))