Excel Macro toevoegen

[Pat76rick]

Goedemiddag allen,

Zou iemand mij op weg kunnen helpen voor het maken van macros in een excel werkblad. Excel 2013

Ik stuur dagelijks naar een paar klanten een email met daarbij info zoals in de Excel cellen daaronder.
Deze info als mail versturen en niet als PDF.

Als welkomst tekst zou ik de info willen sturen uit tabblad klant. C4:G4

In het tabblad klanten
Boven het excel heb ik een knop gemaakt waar een macro moet komen

Klant 1
Bereik a145:g145 (of adrukbereik misschien?)
Email adressen c4 tot en met c20

Klant 2
Bereik J146; p 146 (of adrukbereik misschien?)
Email adressen d4 to en met c20

Klant 3
Bereik S7:Y7 (of adrukbereik misschien?)
Email adressen e4 tot en met e20

Klant 4
Bereik AB7:AH7 (of adrukbereik misschien?)
Email adressen f4 tot en met f20

Ik ben er zelf niet zo heel er in thuis.

Ik hoor graag van iemand of iemand mij zou kunnen helpen.

Groet, Patrick

 

[AD1957]

Lees je bericht nog eens goed, lijkt me dat de bereiken niet juist zijn.
De bereiken komen ook niet overeen met jouw voorbeeldbestand.
Klant 1 bereik vermoedelijk A7: G78
Kleine moeite om ervoor te zorgen dat de vraag overeenkomt met het voorbeeldbestand.

 

[Pat76rick]

Lees je bericht nog eens goed, lijkt me dat de bereiken niet juist zijn.
De bereiken komen ook niet overeen met jouw voorbeeldbestand.
Klant 1 bereik vermoedelijk A7: G78
Kleine moeite om ervoor te zorgen dat de vraag overeenkomt met het voorbeeldbestand.

Je hebt helemaal gelijk. Ik heb het niet juist en correct opgegeven.
Ik heb het op een blaadje opgeschreven maar dat is later weer veranderd en niet juist genoteerd.

Klant 1
Bereik a7:g47(of adrukbereik misschien?)
Email adressen c4 tot en met c20

Klant 2
Bereik J7;p47 (of adrukbereik misschien?)
Email adressen d4 to en met c20

Klant 3
Bereik S7:Y47 (of adrukbereik misschien?)
Email adressen e4 tot en met e20

Klant 4
Bereik AB7:AH47 (of adrukbereik misschien?)
Email adressen f4 tot en met f20

Ik ben er zelf niet zo heel er in thuis.

Ik hoor graag van iemand of iemand mij zou kunnen helpen.

Groet, Patrick

 

[edmoor]

Boven het excel heb ik een knop gemaakt waar een macro moet komen

Ik zie geen knop.
Alleen groene figuren,
Bedoel je dat?

En wat bedoel je met: Email adressen c4 tot en met c20

 

[Pat76rick]

Ik zie geen knop.
Alleen groene figuren,
Bedoel je dat?

En wat bedoel je met: Email adressen c4 tot en met c20

Hieronder in het blauw de knop wat een macro zou moeten worden



In het tabblad email adressen staat onder bv klant 1 een serie email adressen. Naar deze adressen zal het bereik van a7:g47 verstuurd dienen te worden

Dus doo rop de blauwe knop te drukken zal het bereik van a7:g47 worden verstuurd met de email adressen die in cel c4:c20 staan in het tabblad emaildressen

 

[edmoor]

Kijk eens naar dit:

 

[Pat76rick]

Ja precies

Dus voor Klant1 dit plaatje?
Bekijk bijlage 384408

Kijk eens naar dit:

Ik denk dat het er goed uit ziet. Echter, ik krijg een melding dat de macro geblokkeerd is.

 

[Pat76rick]

Wij werken tegenwoordig ook in Office 365 en daar kom ik het onderwerp automatiseren ook wel eens tegen. Zou dit eventueel een andere mogelijkheid zijn of is dit totaal iets anders?

 

[edmoor]

Als je het document hebt gedownload, klik er dan met rechts op, kies Eigenschappen en dan Deblokkeren.
Het "Automatiseren" waar je naar verwijst is iets heel anders.
Dat gaat om het nog lang niet volwassen Office Script, niet om VBA.

 

[Pat76rick]

Dank je wel edmoor!

De Macro lijkt te werken alleen is er een foutmelding.



Is dit ook mogelijk de mail adressen vanuit de BCC zodat niet iedere geadresseerde te zien is?

 

[edmoor]

Als je zegt een foutmelding te krijgen, vertel er dan ook bij welke dat precies is.

Bij .To = kan je je eigen email adres invullen.
Wat er nu achter .To staat kan je dan achter .BCC = zetten.
Dat is dan een extra regel die je onder .To kan toevoegen.

 

[Pat76rick]

Als je zegt een foutmelding te krijgen, vertel er dan ook bij welke dat precies is.

Bij .To = kan je je eigen email adres invullen.
Wat er nu achter .To staat kan je dan achter .BCC = zetten.
Dat is dan een extra regel die je onder .To kan toevoegen.

Ik dacht als ik het plaatje mee zou sturen dat het dan te zien was wat de foutmelding is. Maar schijnbaar niet.

Hieronder een foto van de foutmelding. Heb je hier wat aann?

 

[edmoor]

Kleine wijziging aangebracht en BCC toegevoegd:

 

[Pat76rick]

Fantastisch! Dankjewel edmoor!

Ik krijg nog toch nog een foutmelding




Ik ben van plan mij hier wat verder in te gaan verdiepen.
Heb je ook nog tips en links of wellicht cursussen die je aan zou kunnen bevelen?

 

[edmoor]

Wijzig deze regel onderaan:
Kill "Produits.jpg"

In:
Kill ThisWorkbook.Path & "\Produits.jpg"


Gratis uitgebreide VBA cursus:

Free VBA Course

Learn VBA (Excel) for free step by step thanks to the lessons and exercises offered on this site (variables, conditions, loops, procedures, functions, dialog boxes, events, userforms, etc).

excel-pratique.com

 

[Pat76rick]

Super bedankt edmoor!
Ik ga nu eens even stoeien met alle juiste gegevens/verwijzingen erin om te kijken of ik het werkend kan krijgen met al mijn gegevens en rekentools die ik heb.

 

[edmoor]

Succes

 

[Pat76rick]

De eerste test lijkt goed te gaan. Voorheen deed ik copy paste van Excel naar Outlook en dan zag de opmaak er goed uit. Nu als we met deze macro werken worden de letters nogal dikker/vlekkerig.
Is er een letterype dat vooral scherper is of is dat wellicht ook een instelling of een ander trucje dat de opmaak scherper houdt als het ware?

Met macro zie je dikkere vlekkerige opmaak




Old skool knippen en plakken met scherpe opmaak.

 

[edmoor]

Er wordt een plaatje gemaakt door Excel zelf.
Daar kan de code niets aan wijzigen.
Maak die cellen eens niet Bold.
Of zet je ingevulde document hier neer.

 

[Pat76rick]

Ik heb het voor nu deels op kunnen lossen met het lettertype Tahoma.
Dat ziet er dan een stuk beter uit.

Kan ik dit nu ook met collega's delen in een Sharpoint omgeving of werken dan geen marco'ss

Thanks edmoor.