excelde selı uyarı

[karayagız424]

Merhabalar;
Excele gırmıs oldugum sertıfıka tarıhlerının gerı bıldırımlerınde ayarlamıs oldugum tarıhde seslı olarak benı uyarmasını ıstıyorum bu ayarı nasıl yapabılırım yardımcı olabılırmıısnız dosya hergun yenılenıyor

 

[apismellifera]

Örnek dosyanızı paylaşırsanız yardımcı olmaya çalışırım.

 

[apismellifera]

Çalışma sayfasının modülüne aşağıdaki kodları ekleyin.
Ekteki calarsaat dosyasını dosyanızın bulunduğu klasöre koyun.

Private Declare Function PlaySound Lib "winmm.dll" _
  Alias "PlaySoundA" (ByVal lpszName As String, _
  ByVal hModule As Long, ByVal dwFlags As Long) As Long

Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000

Sub PlayWAV()
    WAVFile = "calarsaat.wav"
    WAVFile = ThisWorkbook.Path & "\" & WAVFile
    Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
End Sub

Aşağıdaki kodu da üst taraftakinin peşi sıra modüle yapıştırın. Bu kod ile A sütunu ile B sütunu arasında B'deki değerin büyük olması koşuluna bağlı olarak alarm çalması sağlanır. Listenizde bu koşula uyan tek bir hücre bile olsa alarm çalar.

Sub hata()
For i = 1 To Range("A65535").End(xlUp).Count
Application.ScreenUpdating = False
If Cells(i, 1).Value < Cells(i, 2).Value Then
Cells(i, 2).Activate
Call PlayWAV
Else: Exit Sub
Application.ScreenUpdating = True
End If
Next i
Application.ScreenUpdating = True
End Sub

Alarm'ın dosyanın açılışında aktif olması için aşağıdaki kodu VBA ekranında ThisWorkbook sekmesine yapıştırın.

Sub WorkBook_Open()
Call hata
End Sub

Uımarım işinize yarar çalışmayı görmeden bu kadar oluyor.