Re: [belajar-excel] kirim automatis alert expired

[Nangagus nanga...@gmail.com [belajar-excel]]

mungkin SendMail diganti GetExpirations


On 21/01/2018 23:11, Andi Felani afelan...@gmail.com [belajar-excel] wrote:

mas kenang,
saya coba dengan MsgBox "Kirim Email" berhasil
ada keluar pop up "kirim email"

tetapi kalau saya masukan script SendMail tidak bisa
mohon petunjuknya

2018-01-21 21:41 GMT+07:00 Nangagus nanga...@gmail.com 
 [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>>:


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
 [belajar-excel]
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
 [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

Re: [belajar-excel] kirim automatis alert expired

['Mr. Kid' mr.nm...@gmail.com [belajar-excel]]

Ada baiknya,
proses loop dan segalanya diserahkan ke prosedur yang katanya sudah ada.

Coba deh diturut ulang kasusnya...

1. Kalau saya klik Start, maka data yang expired dan blabla akan terkirim.
2. Bagaimana supaya terkirim otomatis tanpa klik start ?

Solusi :
buat event tertentu yang isinya menjalankan prosedur yang dipanggil tombol
start yang sudah ada.

Jadi, prosedur yang sudah ada diusahakan digunakan berulang-ulang oleh
prosedur lain.
Padahal, mengirim email yang sudah ada itukan isinya sudah ada loop mencari
data yang expired dan blabla.
Jadi tidak perlu bikin loop tentang hal itu lagi kan..

Regards,
Kid









2018-01-21 21:41 GMT+07:00 Nangagus nanga...@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> 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
> [belajar-excel]  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 [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
>>
>>
> 
>

Re: [belajar-excel] kirim automatis alert expired

[Andi Felani afelan...@gmail.com [belajar-excel]]

mas kenang,
saya coba dengan MsgBox "Kirim Email" berhasil
ada keluar pop up "kirim email"


tetapi kalau saya masukan script SendMail tidak bisa
mohon petunjuknya


2018-01-21 21:41 GMT+07:00 Nangagus nanga...@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:


>
>
> 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
> [belajar-excel]  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 [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
>>
>>
>
>

Re: [belajar-excel] kirim automatis alert expired

[Nangagus nanga...@gmail.com [belajar-excel]]

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 
 [belajar-excel] 
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
 [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

Re: [belajar-excel] kirim automatis alert expired

['Mr. Kid' mr.nm...@gmail.com [belajar-excel]]

Hai Andi,

Coba buat event calculate dan isi dengan proses memanggil prosedur yang
Anda gunakan untuk kirim email biasanya (yang kata Anda kalo pencet Start).
Anda bisa memilih event calculate milik sheet (direkomendasikan) tersebut
atau workbook.

[Bila perlu] buat event workbook open dan isi dengan proses calulate
workbook.

Peringatan!!!
Anda tidak memikirkan apa yang terjadi sebenarnya jika keinginan Anda
terwujud. Karena setiap record bisa diimil berkali-kali
Coba dan pikirkan saja jalan keluarnya deh..

Regards,
Kid




2018-01-19 22:42 GMT+07:00 Andi Felani afelan...@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> 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
>
> 
>

Re: [belajar-excel] kirim automatis alert expired

[Andi Felani afelan...@gmail.com [belajar-excel]]

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
[belajar-excel]  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 [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
>
>
>

Re: [belajar-excel] kirim automatis alert expired

[Nangagus nanga...@gmail.com [belajar-excel]]

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 [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

[belajar-excel] kirim automatis alert expired

[Andi Felani afelan...@gmail.com [belajar-excel]]

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


TESTING.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12