ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Use VBA to automatically email from Excel (https://www.excelbanter.com/excel-programming/341269-use-vba-automatically-email-excel.html)

Jake via OfficeKB.com

Use VBA to automatically email from Excel
 
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

Tom Ogilvy

Use VBA to automatically email from Excel
 
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




Jake via OfficeKB.com

Use VBA to automatically email from Excel
 
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


Tom Ogilvy

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




Jake via OfficeKB.com

Use VBA to automatically email from Excel
 
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


All times are GMT +1. The time now is 01:23 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com