Araç Servis Takip Programı (AST-v.2) foruma eklenmiştir. 
http://www.excelce.net/forum/index.php?topic=1656.0

Gönderen Konu: alarm  (Okunma sayısı 3734 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı yapex

  • Excelce Onbaşı
  • **
  • İleti: 1
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: murat yilmaz
  • Doğum Yılınız: 1977
  • İl / İlçe: iskenderun hatay
alarm
« : 22 Şubat 2016, 17:29:55 »
1-  Excel hucresi belli bir sayiya ulasinca email yolla emri verilebilirmi ?
2- Excel hucresi belli bir sayiya ulasinca sesli uyari yap emri verilebilirmi ?

ornek:  c1 hucresi 5 sayisina gelince bana otomatik email yollasin.  bu sekilde devamli bilgisayarin basinda takip etmeme gerek kalmaz.
email yollama emri verilirmi ?
sesli uyari yapmasi saglanabilirmi ?

Çevrimdışı Huseyinkis

  • Excelce Onbaşı
  • **
  • İleti: 4
  • Puan +0/-0
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Hüseyin Kış
  • Doğum Yılınız: 1981
  • İl / İlçe: İstanbul
Ynt: alarm
« Yanıtla #1 : 15 Mart 2016, 14:30:54 »
ekteki kodları denermisiniz Deneme@Deneme.com adresi yerine kendi mail adresinizi yazın. Kod dosyanın açık olduğu bilgisayarda outlook hesabı varsa mail atar.


Kod: [Seç]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C1")) Is Nothing Then Exit Sub

if Cells(1,3)>= 5 then

Dim strDate As String
Dim OutApp As Outlook.Application
Dim NewMail As Outlook.MailItem

           
Set OutApp = New Outlook.Application
Set NewMail = CreateItem(olMailItem)
With NewMail
On Error Resume Next
.To = "Deneme@Deneme.com"
.Subject = "Hücre 5 rakamına ulaştı"
.Save
.Send
End With
Set NewMail = Nothing
Set OutApp = Nothing

end if

End Sub