Opgelost vanaf EXCEL bestand automatisch aantekening in agenda plaatsen

[Dukkel]

Hallo Allemaal

Ik heb een Medisch-Kostenoverzicht (op datum) en nu heb ik de vraag:

Kun je daar van af ook automatisch een agenda-aantekening genereren ?

Met vriendelijke groet

Dukkel

 

[HSV]

Dat kan, en ook weer verwijderen.

 

[AHulpje]

Bedoel je zoiets:

 

[Dukkel]

Hallo AHulpje

Nee, ik bedoel: Kun je van de data die in mijn Medisch-Kostenoverzicht staat, een Behandelmomentje.ics bestandje maken, met daarmee de mogelijkheid om het in een Agenda te plaatsen.

Zie Afbeelding, daarop staan eigenlijk 2 afbeeldingen over elkaar heen. Hopelijk kom je er uit, wat ik bedoel.





Waarschijnlijk zul je dan vragen hoe ziet die data er dan wel uit, in dat Medisch-Kostenoverzicht ?
Als een opzetje hiervan nodig heb, stuur ik je dat wel. Laat het me dan effe weten.

 

[AHulpje]

Zo dan, beide methoden:

 

[Dukkel]

Hallo AHulpje

Ja, ik heb optie1 en optie2 geactiveerd, en na enige invullingen, stond de "Vergadering" inderdaad geplanned op 17 Oktober
Vraag 1: moeten die invullingen steeds gebeuren of was dat éénmalig nodig?
Vraag 2: hoe is dan de formule om die knop naar mijn Medisch-Kostenoverzicht te brengen?

Optie2 heeft mijn voorkeur (die .ics met dat bestandje)
Mooi werk !

 

[AHulpje]

Wat bedoel je met "enige invullingen"?
Aan je eigen exceldocument toevoegen:

• Kopieer de knop "Maak ICS" (rechtermuisknop, kopiëren) en plak hem in je eigen document op het werkblad met afspraakgegevens.
• Kopieer de broncode van Sub ICS() naar je eigen Module.
• Pas de celverwijzingen in de broncode aan.

 

[snb]

https://www.snb-vba.eu/VBA_Outlook_external.html#L_10.1

 

[Dukkel]

Hallo @AHulpje
Mooi werk.
Maar als ik meerdere datums op m'n lijstje zet, zie ik, dat alleen van rij1 een Agendapunt wordt gemaakt.
Kan het zodanig aangepast worden, dat van een willekeurige rij een Agendapunt gemaakt wordt. (Dus bijvoorbeeld van rij4, ook als die niet persé de laatste rij is?)

 

[Dukkel]

Wat bedoel je met "enige invullingen"?
Aan je eigen exceldocument toevoegen:

• Kopieer de knop "Maak ICS" (rechtermuisknop, kopiëren) en plak hem in je eigen document op het werkblad met afspraakgegevens.
• Kopieer de broncode van Sub ICS() naar je eigen Module.
• Pas de celverwijzingen in de broncode aan.

Hallo
Ik heb die knop naar mijn werkblad gekopieerd
Maar waar vind ik ik de broncode van SUB ICS() ??

 

[Dukkel]

Ik heb de broncode gevonden, en geexporteerd als Module1.
Maar inladen in mijn bestand lukt niet erg
Ik krijg de Module1 wel te zien (ook de inhoud) maar niet aan de knop gekoppeld.

HOE DOE IK DAT ?

 

[AHulpje]

De huidige Sub ICS maakt gebruik van rij 2 uit het actieve werkblad: Cells(2,##)
En de kolommen A t/m E voor Onderwerp, Locatie, Datum, Tijd en Duur.
Je zou rij 2 kunnen vervangen door een variabele r: Cells(r,##)
En die r uit de actieve cell afleiden: r = ActiveCell.Row

Koppelen van Sub ICS aan je knop:

• Klik met de rechtermuisknop op de knop
• Kies Macro toewijzen
• Kies ICS
• OK

 

[AHulpje]

Liever geen profielbericht "Ik kan niet nog steeds de knop (om een melding in de Agenda te plaatsen) koppelen aan de ICS data." maar houd de vraag openbaar.
Wat bedoel je hier precies mee?
Kun je de macro niet aan de knop koppelen?
Of wil je het gegenereerde ICS bestandje direct in je agenda plaatsen?
Of kun je de juiste data niet in het ICS bestandje krijgen?

 

[Dukkel]

Precies, ik kan de macro niet aan de knop koppelen
Bovendien, ik heb in het bestandje Afspraak.xlsm (dat je opgestuurd hebt) meerdere datarijen gezet, en de knop pakt steeds slechts 1 regel
in dit geval n.l. alleen de eerste regel.
Mijn bestand bestaat uit meer dan 39 regels, en het zou mooi zijn als de actieve regel (dus de regel die ik op dát moment invoer) dmv ie knop in de agenda geplaatst werd.

 

[AHulpje]

Lees bericht #12 nog eens goed en bekijk de code in bijgaande bijlage.
Kijk ook eens naar de code in bericht #8.

 

[Dukkel]

Ik krijg aldoor de melding: Macro's zijn uitgeschakeld.
Hoe krijg ik die macro's weer aan de gang?

 

[AHulpje]

Klik in de verkenner met de rechter muisknop op de bestandsnaam, kies Eigenschappen, vink "Blokkering opheffen" aan.

 

[Dukkel]

Hallo AHulpje
Het duurde even voordat ik kon reageren, waarvoor m'n excuses

De knop "Plaats afspraak in Agenda" werkt in jouw voorbeeld, en daar wilde ik mee doorgaan omdat die rechtstreeks en correct de afspraken in mijn agenda zet
Bij mij moeten er natuurlijk een paar aanpassingen plaatsvinden.
Allereerst heet mijn 'probeer'-bestand: Map-Medisch1.xlsx deze naam moet ik dus zetten op de plaats 'Afspraken' ?
en vervolgens moet er wat veranderen betreffende de datum en tijd.
Omdat bij mij de datum en tijd gevat zijn in ene (zie bijgaand voorbeeld) moet de tijd uit de datum gefilterd worden.
Een afspraak noteer ik meestal voor in de agenda een tijd van 30 minuten.

 

[AHulpje]

Zie bijlage.

 

[Dukkel]

De eerste knop is denk ik voor mij het meest interessant, en werkt Prima
Nu is eigenlijk dat Map-Medisch1.xlsm slechts een deel (Blad2) van mijn Medisch-Kostenoverzicht (dat ik hierbij je opstuur)
Kan die knop ook op Blad1 en naar Blad2 gekopieerd worden ?