Macro to send email from excel when there is a change in cell content.

[EugeneE]

I am totally new to macro. pls help me out.

I need to trigger an email to be send automatically whenever a result is "PASS"
Either by typing in or by external sources.
Pls provide me examples on how to write the macro in this situation.

 

[VoG]

Try this Send a mail when a cell reaches a certain value

 

[EugeneE]

Try this Send a mail when a cell reaches a certain value

Thanks alot!
appreciate it

 

[EugeneE]

Can i know how to modify the macro? if i do not want numeric but text. As such a "Pass"

 

[VoG]

Can you post the code that you want to modify.

 

[EugeneE]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Application.Intersect(Range("A1"), Target) Is Nothing Then
If IsNumeric(Target.Value) And Target.Value > 200 Then
Call YourMacroName
End If
End If
End Sub
</PRE>

 

[EugeneE]

i do not want my target value to be more than 200. i want it to read Pass.

 

[VoG]

Try

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Application.Intersect(Range("A1"), Target) Is Nothing Then
If Target.Value = "Pass" Then
Call YourMacroName
End If
End If
End Sub

This will be triggered when you manually enter Pass in A1.

 

[EugeneE]

Tried. but it did not trigger. no response.

 

[VoG]

Where did you put the code? You need to right click the sheet tab, select View Code and paste in the code. Macros must be enabled.