Oh iya terima kasih atas koreksinya mas PaijoUntuk mengantisipasi hal seperti yang mas Paijo katakan, kita bisa menggunakan fasilitas buffering yang kita gunakan setiap terjadi rekalkulasi untuk memverifikasi apakah data di Cell B10 berubah atau tidak. Kalau nilainya berubah dari nilai sebelumnya yang terseimpan di buffer dan memenuhi syarat diatas diatas 90 atau dibawah -90 maka kita eksekusi pengiriman emailnya
Pada makro sheet tersebut kita isikan sbb:
/Private Sub Worksheet_Change(ByVal Target As Range)/
/ If (Abs(Range("B10")) > 90 And Not LastChange = Range("B10")) Then/
/ LastChange = Range("B10")/ 'Simpan nilai terakhir di cell B10
/ MsgBox "Prosedur Kirim Email Ditemukan"/
/ End If/
/End Sub/
Kemudian, setelah itu, kita tambahkan sebuah modul, dari menu Insert ->
Module
Pada modul baru tersebut kita isikan sebaris puisi sbb: /Public LastChange/Dengan cara seperti tersebut diatas, jikalau andaikata seumpama di cell B10 nya sendiri yang diubah atau Cell tersebut adalah sebuah Rumus kalkulasi misalkan saja Penjumlahan dari B8+B9, kalaupun B8 diubah maka vba akan dapat mengirim email (tentunya jika syarat kondisi diatas 90 dan dibawah -90 terpenuhi) karena Nilai LastChange berubah. :-D
Demikain disampaikan, terima kasih. Rgds, De Premor Pada 11/04/2013 17:29, Paijo Iseng menulis:
Menurut saya hal seperti yang dimaksud (otomatis mengirim email saat nilai suatu cell memenuhi syarat) adalah sangat tidak bagus.Setiap kali terjadi perubahan isi sebuah cell, excell akan mengkalkulasi ulang seluruh cell yang ada di sheet, dan juga cell di sheet lain yang memiliki ketergantungan dengan cell yang berubah tersebut.Pada saat itu juga jika nilai cell memenuhi syarat, maka makro akan dijalankan. Coba bayangkan berapa banyak email yang dikirim kalau dalam semenit menekan 5 kali tombol enter...Sebaiknya tetap dilakukan dengan cara manual (menge-click tombol tertentu).Kalau ingin yang otomatis kirim tetapi cukup pintar untuk mendeteksi ada email yang sudah terkirim, sebaiknya menggunakan aplikasi terpisah.Iseng ------------------------------------------------------------------------ *From:* Kang Abdillah <[email protected]> *To:* "[email protected]" <[email protected]> *Sent:* Wednesday, April 10, 2013 11:22 AM *Subject:* ]] XL-mania [[ menjalankan macro dengan rumus Dear Master… Saya nubie nih, mau tanya :Apakah Excel bisa menjalankan macro menggunakan rumus secara otomatis..?? (tanpa klik Run pada macro dialog box) Misalkan : Jika Cell B10 berisi angka <-90, atau Cell B10 berisi angka >90 ---> maka File excel akan otomatis send email ke alamat email yg telah ditentukanBagaimana penulisan macro nya..?? Mudah-mudahan para Master dapat membantu saya.. Terima kasih.. Salam, Abdillah
Book1.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
