Question : Excel VBA

Je fais employer le code suivant pour envoyer automatiquement un cahier de travail mis à jour chaque fois qu'il est sauvé à une distribution nommée list.

It est possible sur sauf de sauter vers le haut une liste de destinataires potentiels qui peuvent être faits tic tac ou de façon ou d'autre choisi pour le
de distribution.

Private Workbook_BeforeSave (ByVal SaveAsUI aussi booléen, annulation que booléenne) obscurcir OutApp pendant qu'Object
obscurcissent OutMail pendant qu'Object

les 0)
d'OutMail d'OutApp = de CreateObject (le « Outlook.Application ») = d'OutApp.CreateItem (sur le résumé d'erreur Next
avec OutMail
. À = « [email protected] ; john de/>.doe2@hotmail.com " .CC =
de "" .BCC =
de "". Sujet =
« d'avis de rapport sur l'état d'avancement des travaux ". Le corps = « la feuille jointe de statut a été " le
. Attachments.Add ActiveWorkbook.FullName
. Extrémité de Send
With
sur l'erreur 0
OutMail = Nothing
OutApp = Nothing
End Sub class= de

Réponse : Excel VBA

J'ai enlevé vos objets de checkbox.  Les objets de Checkbox font ce plus compliqué qu'il doit être.

Ce que j'ai fait était crée un événement de Worksheet_SelectionChange qui entre un « R » s'il est vide ou l'entrée vide la cellule si « R » est déjà là.

J'ai alors changé la police des cellules en Webdings 2 de sorte que le R apparaisse comme boîte de contrôle.   Cintrer quand vous cliquez la cellule qu'il vérifiera elle ou l'uncheck il.   Ceci me permet de vérifier si un email doit être ajouté par checkinging la colonne pour une valeur de « R ».  Espérer que ceci semble raisonnable .....

Voir attaché ......

Status-Report.xls (48 KBs) (type de dossier détails) 

Cellules de clic pour les vérifier