Help adding multiple email addresses by clicking cells

[Delta729]

I'm sure this is possible, but I don't have a clue on how to try and make this work. We have different reports that are sent out and we have a list of about 30 different managers that would receive these different reports based if they made the report (which isn't good to be on). Different level of management would be on the To: and higher up management would be on the cc.. portion of the email. Also, Managers are divided into about 12 different regions.

What I'd like to have happen is to click the cell with the email address and it be automatically added to another cell. Then click the next one and so on to add all needed. Or even better would be to click the region name and add the related emails would added to the related email to the correct To: or c.c. field. Example: Click Region called "Metro West" - add Level 1 Mgr email address to CC list, Level 2 or Level 3 Mgr email would on then auto added to another cell. Then click on the next region and their related emails would be added to the appropriate corresponding cell. I could then copy this to the To: and CC. portion of the email.

I don't know if this could be done with a macro or a form control. Any help would be greatly appreciated.

 

[bensonsearch]

Hi,
Few questions,

What is in the clicked cells and how are the rexepiants determined, eg by username or predefined list?

 

[daverunt]

Hi,

this is very basic but you can experiment with it and expand it - maybe even tidy it up.
Stick 3 email addresses in column A1 to A3 and place the code in the worksheet of the vba Project i.e Sheet1(Sheet1)

When you click on A1 to A3 it copies the value to another column next empty cell.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
 If Target.Row = 1 And Target.Column = 1 Then
 Range("D1").Select
 Do While Not IsEmpty(ActiveCell)
    ActiveCell.Offset(1, 0).Select
    Loop
 ActiveCell.Value = Cells(Target.Row, Target.Column).Value
 End If
 
 If Target.Row = 2 And Target.Column = 1 Then
 Range("E1").Select
 Do While Not IsEmpty(ActiveCell)
    ActiveCell.Offset(1, 0).Select
    Loop
 ActiveCell.Value = Cells(Target.Row, Target.Column).Value
 End If
 
 If Target.Row = 3 And Target.Column = 1 Then
 Range("F1").Select
 Do While Not IsEmpty(ActiveCell)
    ActiveCell.Offset(1, 0).Select
    Loop
 ActiveCell.Value = Cells(Target.Row, Target.Column).Value
 End If
 
 
End Sub