Belirli saatlerde sesli uyarı mesajı

[ASLAN7410]

Merhaba hayırlı sabahlar.

Ekte gönderdiğim excel sayfamda, günün saati C sütunundaki
belirlenmiş olan saatlere denk geldiğinde, ses çıkartarak uyarı mesajı
vermesi ve koşullu biçimlendirme ile hücrenin renklendirilmesini istiyorum.

Kendimde bulunan formüllerle, koşullu biçimlendirme ve makro
örnekleri ile yapmaya çalıştım bir türlü yapamadım.

Ayrıca göndermiş olduğum dosyada çalışan saat var, bu saat sadece
bu dosyada çalışmasını istiyorum. Diğer açık olan excel sayfalarını etkilenmesin istemiyorum.

Yardımcı olur musunuz?
.

 

[askm]

Module kodlarınızı aşağıdaki şekilde değiştirin.

Dim stopit As Boolean
Private sAutoClosed As Boolean
Sub startclock()
stopit = False
clock
End Sub
Sub clock()
If stopit = True Then Exit Sub
ActiveWorkbook.Worksheets(1).Cells(1, 27).Value = _
Format(Now, "hh:mm:ss")
Application.OnTime (Now + TimeSerial(0, 0, 1)), "clock"
 [AB1] = WorksheetFunction.CountIf(Range("C2:C32"), Range("AA1"))
    If WorksheetFunction.CountIf(Range("C2:C32"), Range("AA1")) > 0 Then
        Command0_Click
        stopit = True
        startclock
    End If
End Sub
Sub stopclock()
stopit = True
End Sub

Sub Saat()
    With Range("E2")
    Formula = "=NOW()"
    .Value = .Value
    End With
End Sub

Private Sub Command0_Click()
Dim oSHL As Object
On Error Resume Next
Err.Clear
Set oSHL = CreateObject("WScript.Shell")
If Err <> 0 Then
  msgbox "Error:" & Err
Else
  oSHL.PopUp "Zaman uyarısı. . .", 2, "A S L A N ...", vbOKOnly + vbExclamation
End If
Set oSHL = Nothing
End Sub

 

[ASLAN7410]

Sayın askm ilginiz için çok teşekkür ediyorum, ellerinize sağlık.

Yazmış olduğunuz kod göndermiş olduğum dosya ile birlikte başka açık olan excel dosyalarında da çalışıyor. Yani yeni açmış olduğum excel çalışma dosyasının AA1 hücresinde saat çıkıyor ve çalışmaya devam ediyor, AB1 hücresinde de 0 yazıyor.

Yazmış olduğunuz kod sadece göndermiş olduğum excel sayfası için uygulanır mı?

Ayrıca E14-L14 birleşik hücreye koşullu biçimlendirme uygulayıp, C sütunundaki saatler denk geldiğinde hücre kırmızıya dönse ekrana gelen mesaja tamam dedikten sonra, hücre tekrar normal rengine dönse, bu şekilde yapabilir misiniz?

 

[askm]

Ekteki şekilde mi?

 

[ASLAN7410]

Sayın askm ellerinize sağlık tam istediğim gibi olmuş çok teşekkür ederim.

Küçük bir sorun var bu da çözülürse süper olacak.
Başka bir programda veya başka bir excel dosyasında bulunduğum zaman saat C sütunundaki saatlerden herhangi birisine denk geldiği zaman hiç bir uyarı mesajı gelmeden devam ediyor.

 

[ASLAN7410]

Sayın askm, makronun bulunduğu dosya ekranda duruyorsa uyarı mesajı geliyor, aynı anda birden çok excel sayfası ekranda iken ve başka bir excel dosyası ile uğraşırken, kod'daki saat arka tarafta çalışıyor, ancak saat denk geldiğinde uyarı mesajı ekrana gelmiyor.

 

[ASLAN7410]

Sayın yönetici arkadaşlar konu günceldir.

 

[askm]

Başka çalışma kitabında uyarı vermeyi başaramadım. Ama başka bir program ile meşgulken sıkıntı olmuyor. Ses veriyor. Ama başka program çalışırken uyarı vermiyor. Araştırıyorum. Sonuç alırsam paylaşacağım. Siz de sonuç alırsanız paylaşırsanız memnun olurum.

 

[ASLAN7410]

Çok teşekkür ederim sayın askm, valla olursa süper olacak.

 

[askm]

Aşağıdaki şekilde deneyin.

Sub clock()
kitap = ThisWorkbook.Name
If stopit = True Then Exit Sub
Workbooks("Zamanı Gelince UYARI.xlsm").Worksheets(1).Cells(1, 27).Value = _
Format(Now, "hh:mm:ss")
Application.OnTime (Now + TimeSerial(0, 0, 1)), "clock"
    If WorksheetFunction.CountIf(ThisWorkbook.Sheets("Sayfa1").Range("C2:C32"), ThisWorkbook.Sheets("Sayfa1").Range("AA1")) > 0 Then
        ThisWorkbook.Sheets("Sayfa1").Activate
        Command0_Click
        stopit = True
        startclock
    End If
End Sub

 

[ASLAN7410]

Sayın askm ellerinize sağlık tam istediğim gibi çalışıyor, kusura bakmayın sizi yordum.

Uyarı sesi çok kısık çıkıyor, bilgisayar içerisindeki herhangi bir sesi veya bir klasör içerisine atılmış bir sesi uyarı sesi olarak verdirebilir misiniz?

 

[askm]

Aşağıda örnek ekledim.

Sub deneme()

Set WMP = CreateObject("new:{6BF52A52-394A-11d3-B153-00C04F79FAA6}")
WMP.OpenPlayer "E:\ÖZEL\mumin-sarikaya-ben-yoruldum-hayat.mp3"
End Sub

 

[askm]

Sayın ASLAN7410. İlgili kodu hafta sonu uğraşmama rağmen yapamamıştım. Farklı bir formda sordum. Oradan aldığım cevabı size sundum. Bilginize. Yani son kısımda benim emeğim sadece soru sormak oldu.

 

[ASLAN7410]

Sayın askm, ilginiz için çok teşekkür ediyorum, ancak bir türlü yapamadım.

Yapmak istediğim klasör bilgisayar masa üstünde, bilgisayarlarda D veya E sürücüleri yok, farklı arkadaşlarda kullanmaya başladığında herkesinde kendi oturumları var, bende masa üstü olarak ayarlamaya çalıştım ancak olmadı.

Yapmak istediğimin en son halini gönderiyorum.

 

[ASLAN7410]

Bu mesaj silindi.

 

[ASLAN7410]

Konu çözülmüştür, ilgilenen herkese çok teşekkür ediyorum.