duhafnusa4
New Member
- Joined
- May 13, 2021
- Messages
- 5
- Office Version
- 365
- Platform
- Windows
Hi Everyone! Ive been a long time lurker and now member!
I need some help.
I have a workbook that I have send an email when a group of cells updates its value to ones I specify (list of people on my team I want the email sent to)
Using worksheet_change it works flawlessly when I manually change the cell to the new value.
The issue is the cell contains an equation and its result is what I want to trigger the macro to run
Here is what I have that works by manually changing the Cell Value (with target.value names changed to name1, name 2 etc.., and e to protect identity:
Also if I could have Target.Value look at a dynamic list (of members I choose to add/remove that would be nice.
Doing this seems to not work:
To recap:
1) I want to have an email sent out when a cell that contains a formula updates to a specific result
2) I want to have those specific results in a list I can change depending if my team members change
All of this is to notify my team members when a project they are involved with is currently being worked on (cell with formula is pulling data from PI Datalink)
Thanks!
p.s I suck at excel
I need some help.
I have a workbook that I have send an email when a group of cells updates its value to ones I specify (list of people on my team I want the email sent to)
Using worksheet_change it works flawlessly when I manually change the cell to the new value.
The issue is the cell contains an equation and its result is what I want to trigger the macro to run
Here is what I have that works by manually changing the Cell Value (with target.value names changed to name1, name 2 etc.., and e to protect identity:
VBA Code:
Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = True
'If Not Intersect(Target, Range("B41:K41")) Is Nothing Then
'If Target.Value = "name1" Or Target.Value = "name2" Or Target.Value = "name3" Or Target.Value = "name4" Or Target.Value = "name5" Then
If Not Intersect(Target, Range("B49:K49")) Is Nothing Then
If Target.Value = "0" Or "1" Or "2" Or "3" Or "4" Or "5" Then
'Call Email_List
'Call Cell_List
Call Check_Parts_Running
End If
End If
End Sub
Also if I could have Target.Value look at a dynamic list (of members I choose to add/remove that would be nice.
Doing this seems to not work:
VBA Code:
Dim Members As Range
Members = Range ("A1:A6")
If Target.Value = Members Then
To recap:
1) I want to have an email sent out when a cell that contains a formula updates to a specific result
2) I want to have those specific results in a list I can change depending if my team members change
All of this is to notify my team members when a project they are involved with is currently being worked on (cell with formula is pulling data from PI Datalink)
Thanks!
p.s I suck at excel