alpha

Voor H36 i n het tweede blad is de formule van Plongske ook juist, mits daar de naam van het eerste blad aan wordt toegevoegd; dus: =aantal.als('Actueel Data'!K3:K27;"Retour")

MDanny, Je eerste vraag 3 bestaat uit twee delen, het tweede gedeelte had ik inderdaad over het hoofd gezien. Wat er in H36 moest komen, had je in je eerste bericht niet vermeld. Je kunt daar gebruiken (als je naar het eerste blad wil blijven verwijzen): =AANTALLEN.ALS('Actueel data'!F3:F27;">0";'Actueel data'!E3:E27;">0") Dat zijn er 18. Omerking: Je schrijft kolommen waar je rijen bedoelt: kolommen lopen van links naar rechts (A, B, C, enz.), rijen van boven naar beneden (1,2,3, enz.). Uitleg bij de formule in E36: =25-AANTAL(E3:E27) 25 = het aantal rijen dat je gevruikt voor je gegevens: 27 - 2 (de rijen 1 en 2) =Aantal(E3:E27) telt het aantal cellen met getallen (datums zijn ook getallen). Maar moest je dus (al of niet per ongeluk) in een cel tekst invoeren, dan wordt die ook meegeteld). Om goed met Excel te kunnen werken is het vooral nodig om de (belangrijkste) functies goed te kennen (dat geldt trouwens ook als je in Excel met vba wil gaan programmeren). Die functies staan in de helpfile van Excel. Druk maar eens op F1 en voer als zoekwoord in: werkbladfuncties. Eén van de eerste resultaten zal dan zijn: "Lijst met werkbladfuncties". Als je daarop klikt, zie je ze allemaal staan, mét de uitleg hoe ze te gebruiken. Schouderklopjes hoeven niet, wel stellen degenen die reageren het (over het algemeen) op prijs om te vernemen of hun antwoord het beoogde resultaat heeft gehad en aan de verwachtingen voldoet. Daaraan heb je ruimschoots voldaan.

MDanny, Ik zit niet een hele dag achter de computer en kan dus niet altijd meteen antwoorden. Ik heb bovendien nog wel andere zaken te doen dan vragen op een forum te beantwoorden. Daar had je niet om gevraagd. Maar als je in D36 mijn formule ziet staan voor het aantal lege cellen in kolom E, dan is het toch niet zo moeiljk om daaruit het aantal niet-lege cellen in 1 of meer kolommen uit af te leiden?

Antwoorden in de bijlage. MDanny.xlsx

Begin met je computer op virussen en malware te controleren. Lees het artikel op onderstaande website eens, misschien is het voor jou ook de oplossing: http://pc-en-internet.infonu.nl/tips-en-tricks/143496-wel-verbinding-geen-internet-door-proxyfout.html

In mijn vorig bericht verzuimde ik te vermelden dat je natuurlijk ook in alle cellen met formules in de rijen 2, 5, 10, en 13 het getal 20 moet vervangen dat grotere getal waarover ik het in bericht #9 had.

Selecteer A2 en klik bovenaan in het menu op "Gegevens". Klik in de groep "Hulpmiddelen voor gegevens" op "gegevensvalidatie". Vervang in het venster dat dan verschijnt onder "Bron" in de formule het getal 20 door het gewenste (een groter) getal. Doe hetzelfde met A10.

Maak in de bijlage een keuze in A2 of in A10, afhankelijk van het feit of je een fabrikant of een vertegenwoordiger wil selecteren. Als je een keuze maakt in A2, krijg je in rij 2 alle gegevens van de fabrikant en in rij 5 die van de bijbehorende vertegenwoordiger. Maak je een keuze in A10, dan verschijnen in rij 10 de gegevens van de gekozen vertegenwoordiger en in rij 13 die van de bijbehorende fabrikant. Wil je alleen maar gegevens van een fabrikant en niet die van de bijbehorende vertegenwoordiger, of omgekeerd: alleen maar de gegevens van een vertegenwoordiger zonder die van de bijbehorende fabrikant er bij, dan kun je met alleen de rijen 2 en 5 volstaan. In rij 5 kun je dan vert.zoeken gebruiken. deevvb.xlsx

deevvb, op basis van de 2 jpg-bestanden die je gepost hebt, is onmogelijk een oplossing te bedenken. Je wil gegevens opvragen van fabrikanten en van vertegenwoordigers, maar dan moet ook bij de namen aangeduid zijn of de betreffende persoon fabrikant of vertegenwoordiger is. Dat is niet het geval. Bovendien is niet duidelijk op welk blad en in welke cellen de namen en de gegevens behorend bij die namen, staan. Post eens een Excelbestand, dan zal het misschien duidelijker zijn.

vba = "visual basic for applicatons", dat is de taal waarin de Microsoft macro's worden geschreven (de applications zijn dan Word, Excel, Outlook, Powerpoint, ...). Op dezelfde plaats als waar ik je in mijn vorig bericht naar verwees, zie je onder die macro een tweede staan met daarin deze regel (maar met meer namen): .List = Array("Jan Janssens", "Linda Wouters", "Mieke Aelvoet (amb)") Je moet daarin die namen wijzigen en aanvullen met jouw namen. Voor de goede werking is het dan noodzakelijk dat in de map waarover ik het in mijn vorig bericht had, Wordbestanden met precies dezelfde namen voorkomen. Uitgaande van het voorbeeld dus: Jan Janssens.doc , Linda Wouters.doc , Mieke Aelvoet (amb).doc Je kunt eventueel de inhoud van het Worddocument dat je al hebt naar het Wordbestand met de macro's kopiëren, dan kun je de macro gebruiken.

Oei, dan ben je waarschijnlijk nog nooit met macro's, vba, en formulieren bezig geweest. Dat is jammer. Die macro hoort bij de knop op het formulier, dus daar moet je hem zoeken. 1. Houd de linker ALT-toets ingedrukt en druk op F11. 2. Het venster dat nu verschijnt zou uit 2 delen moeten bestaan. Zie je aan de linkerkant geen deelvenster met de naam "Project" met daaronder "Normal" en "Project (DB)", kies dan bovenaan in het menu: "Beeld" - "Projectverkenner", dan is dat deelvenster wel zichtbaar. 3. Klik in dat deelvenster op het plusteken vóór "Project (DB)", dat plusteken wordt dan een minteken en de onderliggende mapjes worden zichtbaar. 4. Klik op het plusteken vóór "Formulieren" en daarna 1 x op "Userform1". Kies dan in het menu: "Beeld" - "Programmacode". 5. Je ziet nu in het rechter-deelvenster de bewuste macro staan, waarin je mypath = "C:\Namen\" moet wijzigen in de locatie op jouw computer (dat kan een lang pad zijn). Doe dat zorgvuldig, vergeet de slashes en de aanhalingstekens niet! En vergeet ook niet om het document daarna op te slaan. Als test zou je een leeg Worddocument kunnen aanmaken met 1 van de fictieve namen die in DB.docm staan (bv. Linda Wouters.doc), dat bestand plaats je in de map waarvan het pad in de macro staat. Je laat dat bestand gesloten. Open dan db.docm, typ daarin een tekst, selecteer die, en voer de macro uit. Open daarna "Linda Wouters.doc" om te controleren of de geselecteerde tekst er in staat.

Dat komt er ook te staan! Als er dat bij jou niet staat, wat is dan bij jou het resultaat van de opdracht? Opmerking hierbij: Je moet wel bedenken dat je geen 2 getallen maar 2 beweringen met elkaar vergelijkt, namelijk: $B$18="Vaste dwarsaanslag" en $B$17=1 Beide beweringen kunnen WAAR of ONWAAR zijn, het resultaat is dus ook WAAR of ONWAAR, maar omdat je een vermenigvuldiging maakt maak je van WAAR en ONWAAR een 1 en een 0. Er zijn dan 4 mogelijkheden: - Bewering 1 is WAAR en bewering 2 is WAAR --> Uitkomst: 1 x 1 = 1 - Bewering 1 is WAAR en bewering 2 is ONWAAR --> Uitkomst: 1 x 0 = 0 - Bewering 1 is ONWAAR en bewering 2 is WAAR --> Uitkomst: 0 x 1 = 0 - Bewering 1 is ONWAAR en bewering 2 is ONWAAR --> Uitkomst: 0 x 0 = 0 Je kunt je opdracht overigens verkorten tot: =($B$18="Vaste dwarsaanslag")*($B$17=1) Om te laten blijken dat het resultaat WAAR of ONWAAR is, voer dit in: =EN($B$18="Vaste dwarsaanslag";$B$17=1) En om die uitkomst weer in een 0 of 1 om te zetten: =--EN($B$18="Vaste dwarsaanslag";$B$17=1) PS: Het is gebruikelijk om per topic 1 onderwerp te behandelen. Gebruik voor een nieuw onderwerp een nieuw topic.

@mouche13, Als het juist is wat hierboven staat: dat de bijlage bij mijn vorige bericht nog niet is gedownload, dan heb je blijkbaar geen behoefte meer aan een oplossing. Waarom heb je dat dan niet eerder gemeld?

Zie de bijlage. jasper.xlsm

Met vertikaal zoeken zoek je inderdaad naar de gevraagde tekst (bv. een naam), maar als die gevonden wordt kun je meteen ook de andere gegevens van die persoon opvragen en weergeven, als die gegevens tenminste min of meer logisch bij elkaar staan. Plaats hier eens een (voorbeeld)bestand met een aantal (eventueel fictieve) gegevens, dan kan snel beoordeeld worden of en hoe je de gegevens kunt opvragen.

Als je weet hoe de gegevens van fabrikanten en vertegenwoordigers in het andere blad staan, zou je die data bv. kunnen opvragen met 'vertikaal zoeken'.

???

Hetzelfde, maar dan toegepast in het bestand dat je postte, typ in H7: =ALS(AANTAL(D7:F7)=3;1;"") Zorg er wel voor dat de celeigenschappen van H7 ingesteld staan op "Standaard".

=ALS(AANTAL(A1:C1)=3;1;"")

Probeer het eens met de invoegtoepassing van Microsoft die je kunt downloaden op dit adres: https://www.microsoft.com/nl-NL/download/details.aspx?id=7

Dat "automatisch" (als je bedoelt "helemaal automatisch"), dat kun je wel vergeten. Word zou dan moeten weten naar welk bestand (met een bepaalde naam) de tekst gekopieerd zou moeten worden. Dat is minder eenvoudig dan je op het eerste gezicht zou denken. Het navigatievenster met de namen is door Word-vba nl. niet programmeerbaar. En je kunt ook niet redeneren: "gebruik als bestandsnaam de eerste of tweede regel met tekst van een pagina" (waarin de naam staat), want Word/Word-VBA kent formeel geen begin of einde van een pagina. De lengte van een pagina wordt in Word immers bepaald door de printer, niet door Word. Daarom moest naar een andere oplossing worden gezocht. Ik heb er daarbij voor gekozen om de namen onder te brengen in een listbox. Van alle namen die je in het navigatievenster ziet staan, wordt dan verondersteld dat er een Wordbestand van bestaat. Voorbeeld: als in het navigatievenster de namen "Jan Janssens" en "Mieke Aelvoet (amb)" voorkomen (zoals in mijn voorbeeld het geval is), dan moeten de Wordbestanden "Jan Janssens.doc" en "Mieke Aelvoet (amb).doc" op je computer bestaan; hetzelfde geldt voor alle andere namen in het navigatievenster. Maar als ik je vraag goed begrepen heb, is dat op jouw computer al het geval. Is dat niet het geval, dan zal er een foutmelding volgen als je naar het betreffende bestand wil kopiëren. Verder nog het volgende: - Omdat je in je laatste bericht een .doc-document toevoegde, veronderstel ik dat je met Word 97, 2002, of 2003 werkt, daar is in de macro dan ook van uitgegaan. - Als map waar de betreffende Wordbestanden staan is gekozen voor C:\Namen , pas die locatie aan indien nodig. Als dat gebeurd is, is de procedure als volgt: - Selecteer in het bestand db.docm de tekst die je wil kopiëren. - Klik in de 'werkbalk snelle toegang' op het icoon met de drie gele blokjes om de macro te starten. - Klik op de naam naar wiens Wordbestand je de tekst wil kopiëren. - Klik op Ok. Hierna wordt de geselecteerde tekst gekopieerd. DB.zip

Helaas nog geen antwoord op de vraag die ik op 20/01/2016 stelde, welk e-mailprogramma je op je computer gebruikt. Het is Outlook, maar WELKE Outlook ? Die van MS Office of een andere (Outlook.com bv) ? Dat was belangrijk om een passend antwoord te kunnen geven, nu heb ik moeten gokken.

Dan maak je er een HTML-e-mail van ? Mijn vraag met welke Outlook je werkt, stelde ik omdat ik denk dat je met de code die je in je eerste bericht vermeldde, geen tekst in de 'body' van de e-mail kunt krijgen als "Outlook behorend tot MS Office" niet op je computer is geïnstalleerd. Je bericht nader beschouwend zie ik dat je de Outlook-app gebruikt, dus ik vermoed dat het dan met de aanpak uit bericht 1 niet zal lukken. Daarom stel ik een andere wijze van verzenden voor. Probeer onderstaande code, maar wijzig daarin eerst: - in regel 8 van boven: het e-mailadres in het juiste e-mailadres dat je als afzender gebruikt. - in regel 8 van onder: "mail.telenet.be" in de naam van de uitgaande server van jouw provider (mail.telenet.be dat ik heb vermeld, is de naam van de uitgaande server van Telenet). Vergeet bij de aanpassingen de aanhalingstekens niet. De regel voor het bijvoegen van een attachment heb ik non-actief gemaakt. Wil je beslist een Excelbestand meesturen, dan moet je er rekening mee houden dat je niet een geopend bestand kunt meesturen (dus indien nodig een kopie van bv. 1 blad als afzonderlijk bestand opslaan). Maar ik veronderstel dat je toch geen Excelbestand met macro's mee gaat sturen? ALS je een Excelbestand wil meesturen, dan moet je in de regel met het attachment uiteraard het pad en de naam van het bestand aanpassen. Probeer als test eerst e-mails zonder attachment te verzenden. Let op dat met gebruik van deze wijze, de verstuurde e-mails niet verschijnen in je e-mailprogramma bij de "Verzonden items". Laat aub het resultaat weten. Sub Sendmail1() Dim r as integer, m as integer m = Cells(Rows.Count, 1).End(xlUp).Row For r = 2 To m With CreateObject("CDO.Message") '.AddAttachment ("C:\Documents and Settings\Eigenaar\Bureaublad\map1.xlsm") For r = 4 To 5 .From = "peterlol@telenet.be" .To = Cells(r, 17).Value .Subject = "Cash Back Januari 2016 - " & Cells(r, 1).Value & " te " & Cells(r, 16).Value .TextBody = "Beste " & Cells(r, 15) & " " & Cells(r, 20) & "," & vbCrLf & vbCrLf & _ "Onze Cashbacks van de maand Januari hebben wij afgesloten" & vbCrLf & _ "en je mag ons dan ook 1 factuur opmaken van " & Cells(r, 10).Value & " euro excl. BTW. " & _ vbCrLf & "met volgende vermelding: " & _ "Cashback Lightning " & Cells(r, 3).Value & vbCrLf & Cells(r, 9).Value & "." With .configuration.Fields .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.telenet.be" .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Update End With .Send Next r End With End Sub

Het is altijd handig dat je vermeldt wat je zelf al hebt ondernomen om tot een oplossing te komen, dan hoeven lezers van dit forum daar geen aandacht meer aan te besteden. Van belang om te weten kan ook zijn met welke versie van Word je werkt en of de melding zich bij elk Wordbestand voordoet (dus ook een nieuw Wordbestand) of bij 1 specifiek bestand. En ook wanneer de melding is ontstaan: zonder enige aanleiding, of nadat je een macro had opgenomen bijvoorbeeld. Hoe dan ook: ik zou het sjabloon Normal.dotm verwijderen, dat bestand wordt dan automatisch en zonder macro's opnieuw aangemaakt als je nadien Word opstart. Zoek naar dat bestand via de zoekfunctie van Windows, maar zorg er wel voor dat voordat je dat doet in Windows Verkenner bij de mapopties "Verborgen bestanden en mappen weergeven" is aangevinkt.

Klik in het menu van Word achtereenvolgens op: Bestand (in Word 2007 de ronde Officeknop linksboven) - Opties - Vertrouwenscentrum -> Instellingen voor Vertrouwenscentrum (knop aan de rechterkant) - Instellingen voor macro's, en vink aan: "Alle macro's inschakelen (.....)", Klik op Ok, en nogmaals op Ok.