SendMail merupakan cekrip yang anda buat,
coba SendMail diganti dahulu menjadi msgbox
misal:
If cell.Value = "Expired" Or cell.Value = "Warning" Then MsgBox "Kirim
Email"
salam
On 1/21/2018 1:53 PM, Andi Felani afelan...@gmail.com [belajar-excel] wrote:
mas kenang,
salam kenal juga,
dan terima kasih sudah reply
saya coba ketika saya rubah tanggal ada error compile error: argument
not optimal
mohon check di attach
salam,
andif
On Sun, Jan 21, 2018 at 6:32 AM, Nangagus nanga...@gmail.com
<mailto:nanga...@gmail.com> [belajar-excel]
<belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>>
wrote:
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 afelan...@gmail.com
<mailto:afelan...@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
