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
days before the deadline to ensure the job stays on track. This is the first
time using visual basic so my knowledge is very limited. I was able to find
a code from this website http://www.rondebruin.nl/mail/change.htm but it is
not exactly what I need. If anyone can help me out I would really appreciate
it.

thanks

Jake

In what ways is it what you need?

In what ways is it not what you need?

--
Regards,
Tom Ogilvy


"Jake via OfficeKB.com" <u14346@uwe wrote in message
news:550134986f565@uwe...
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
days before the deadline to ensure the job stays on track. This is the
first
time using visual basic so my knowledge is very limited. I was able to
find
a code from this website http://www.rondebruin.nl/mail/change.htm but it
is
not exactly what I need. If anyone can help me out I would really
appreciate
it.

thanks

Jake

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

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

Thanks !!

Tom Ogilvy wrote:
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

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
[quoted text clipped - 12 lines]

Jake


--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200509/1