If/Else conditions assigned to an image to run various actions

[stilton1]

I created an inventory workbook with various images used as buttons each with their own macro assigned. I have one button named EMAIL that the user clicks and it uses VBA to create an email populating the body of the message which works great. I've added a new section and want to assign the EMAIL button an action based on certain parameters but not sure if it's possible.

For example I'd have an if/else statement to decide between 3 different options based on the content. The EMAIL button would be assigned action A, B or C accordingly. Otherwise, I would need to create 3 different EMAIL buttons and hope the user clicks the correct one.

Any help would be appreciated.

 

[kevin9999]

Could you post your existing code (that "works great") and also advise what are the 3 conditions that you want the code to decide between?

 

[SanjayGMusafir]

For example I'd have an if/else statement to decide between 3 different options based on the content. The EMAIL button would be assigned action A, B or C accordingly.

Though I'm not any expert at VBA but occasionally experiment with what information I draw from net mixed with my needs...

• I think the IF part should be in your VBA itself.
• Once a macro is run it should decide in background what actions to take...

The other work around is, the one I use the most -

• Let excel choose based on Information I give and compose a final version
• And macro only sends the final message

It all depends on what kind of logical test you want Excel to go through and at what stage...

 

[stilton1]

I didn't think about using the VBA to use the conditional statement to assign the correct code and set it that way.

Sub EmailDistroSelection()

'Determine Email Distro
If Sheet3.Range("S29") = Sheet3.Range("S49") Then
Sheet3.Range("U29") = Sheet3.Range("U49")
Sheet3.Range("U30") = Sheet3.Range("U50")
Exit Sub
ElseIf Sheet3.Range("S29") = Sheet3.Range("S52") Then
Sheet3.Range("U29") = Sheet3.Range("U52")
Sheet3.Range("U30") = Sheet3.Range("U53")
Exit Sub
ElseIf Sheet3.Range("S29") = Sheet3.Range("S55") Then
Sheet3.Range("U29") = Sheet3.Range("U55")
Sheet3.Range("U30") = Sheet3.Range("U56")
Exit Sub
ElseIf Sheet3.Range("S29") = Sheet3.Range("S58") Then
Sheet3.Range("U29") = Sheet3.Range("U58")
Sheet3.Range("U30") = Sheet3.Range("U50")
Exit Sub
End If
End Sub

I have a drop-down selection on a sheet that ultimately determines who needs to receive a copy by email. On another sheet I have a vlookup that adds all of the TO emails in one cell and CC emails in another cell. The code listed compares the selection criteria and populates the proper email TO and FROM cells as part of a larger subroutine verifying data is entered correctly before generating the email. It may not be efficient code but seems to work well.

 

[SanjayGMusafir]

Glad to help you and thanks for the feedback.