1 Message
Digest #4412
Message
Sat Jan 20, 2018 3:32 pm (PST) . Posted by:
"Nangagus"
Coba pada sheet1 gunakan cekrip:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Dim TrigCel As Range
Set KeyCells = Range("A2:B13")
Set TrigCel = Range("D2:D13")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
For Each cell In TrigCel
If cell.Value = "Expired" Or cell.Value = "Warning" Then
SendMail
Next cell
End If
End Sub
salam
Kenang
On 1/19/2018 10:42 PM, Andi Felani afelani33@gmail.com [belajar-excel]
wrote:
> salam kenal semuanya,
> di attach saya sudah coba untuk alert ke email jika ada expired
> email terkirim kalau di macro saya klik start, nah yang jadi
> pertanyaan bagaimana cara membuat supaya bisa kirim secara otomatis
> jika ada yang expired atau warning
>
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Dim TrigCel As Range
Set KeyCells = Range("A2:B13")
Set TrigCel = Range("D2:D13")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
For Each cell In TrigCel
If cell.Value = "Expired" Or cell.Value = "Warning" Then
SendMail
Next cell
End If
End Sub
salam
Kenang
On 1/19/2018 10:42 PM, Andi Felani afelani33@gmail.com [belajar-excel]
wrote:
> salam kenal semuanya,
> di attach saya sudah coba untuk alert ke email jika ada expired
> email terkirim kalau di macro saya klik start, nah yang jadi
> pertanyaan bagaimana cara membuat supaya bisa kirim secara otomatis
> jika ada yang expired atau warning
>
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar