alarm

[yapex]

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 ?

[Huseyinkis]

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