Sending An Email
 

Can someone please tell me why this won't work?
I have a spreadsheet that feeds from an Access database.
It refreshes every minute.
When certain conditions are met, cell G12 changes from "NO" to "YES".
I don't understand why the following code won't work.
The cell CHANGES from NO to YES, but it doesn't trigger the email to be sent.

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("G12").Value = "YES" Then
ActiveWorkbook.Send
Recipients = "
Subject = "NOC AGING" & Format(Date, "dd/mm/yy")
End If

End Sub

Thank you in advance for any help you can give me.
Gee

Sending An Email
 

It keeps getting stuck on "ActiveWorkbook.Send"

"Gee" wrote:

Can someone please tell me why this won't work?
I have a spreadsheet that feeds from an Access database.
It refreshes every minute.
When certain conditions are met, cell G12 changes from "NO" to "YES".
I don't understand why the following code won't work.
The cell CHANGES from NO to YES, but it doesn't trigger the email to be sent.

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("G12").Value = "YES" Then
ActiveWorkbook.Send
Recipients = "
Subject = "NOC AGING" & Format(Date, "dd/mm/yy")
End If

End Sub

Thank you in advance for any help you can give me.
Gee

Sending An Email
 

I figured it out!

Private Sub Worksheet_Calculate()
If Range("G12").Value = "NO" Then
Range("A2").Select
End If
If Range("G12").Value = "YES" Then
Range("A1").Select
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("G12").Value = "YES" Then
ThisWorkbook.SendMail ", Subject:="AGING"
End If
End Sub


"Gee" wrote:

It keeps getting stuck on "ActiveWorkbook.Send"

"Gee" wrote:

Can someone please tell me why this won't work?
I have a spreadsheet that feeds from an Access database.
It refreshes every minute.
When certain conditions are met, cell G12 changes from "NO" to "YES".
I don't understand why the following code won't work.
The cell CHANGES from NO to YES, but it doesn't trigger the email to be sent.

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("G12").Value = "YES" Then
ActiveWorkbook.Send
Recipients = "
Subject = "NOC AGING" & Format(Date, "dd/mm/yy")
End If

End Sub

Thank you in advance for any help you can give me.
Gee

Sending An Email
 

Pay attention to the fact that the event will be triggered every time ANY
cell is changed.
this means that even if cell A1 will be changed, the macro will check for
the value in cell G12.

you may want to change the condition from "If Range("G12").Value..." to "If
Target.Address = "$G$12"..."

this will trigger the event only if the specific cell (G12) will change.

Can someone please tell me why this won't work?
I have a spreadsheet that feeds from an Access database.
It refreshes every minute.
When certain conditions are met, cell G12 changes from "NO" to "YES".
I don't understand why the following code won't work.
The cell CHANGES from NO to YES, but it doesn't trigger the email to
be sent.
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("G12").Value = "YES" Then
ActiveWorkbook.Send
Recipients = "
Subject = "NOC AGING" & Format(Date, "dd/mm/yy")
End If
End Sub

Thank you in advance for any help you can give me. Gee

Sending An Email
 

Pay attention to the fact that the event will be triggered every time ANY
cell is changed.
this means that even if cell A1 will be changed, the macro will check for
the value in cell G12.

you may want to change the condition from "If Range("G12").Value..." to "If
Target.Address = "$G$12"..."

this will trigger the event only if the specific cell (G12) will change.

Can someone please tell me why this won't work?
I have a spreadsheet that feeds from an Access database.
It refreshes every minute.
When certain conditions are met, cell G12 changes from "NO" to "YES".
I don't understand why the following code won't work.
The cell CHANGES from NO to YES, but it doesn't trigger the email to
be sent.
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("G12").Value = "YES" Then
ActiveWorkbook.Send
Recipients = "
Subject = "NOC AGING" & Format(Date, "dd/mm/yy")
End If
End Sub

Thank you in advance for any help you can give me. Gee