Use VBA to automatically email from Excel
React to a cell edited in column A:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If IsNumeric(Target.Value) And Target.Value 200 Then
YourMacroName
End If
End If
End Sub
or for a specific range of cells (B5:B20 in the example)
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("B5:B20"), Target) Is Nothing Then
If IsNumeric(Target.Value) And Target.Value 200 Then
YourMacroName
End If
End If
End Sub
--
Regards,
Tom Ogilvy
"Jake via OfficeKB.com" <u14346@uwe wrote in message
news:550190b788b61@uwe...
I can get it to email based on one cell, but I need it to email based on a
range of cells depending on difference of todays date and the due date. I
have one column set up to determine the number of days left, currently
there
are 50 or so jobs running so there are 50 or so rows. I need it to
automatically email from the different cells in the column when
appropriate.
I'm not sure if I explained that properly but I appreciate your help.
Tom Ogilvy wrote:
In what ways is it what you need?
In what ways is it not what you need?
I am working on a project to track the status of production jobs.
Ideally I
would like excel to automatically email the appropriate person a couple
of
[quoted text clipped - 7 lines]
Jake
|