Hücre değeri 1 olunca BİP sesi gelsin

[mavi674]

Selam
i5:i18 arası hücrelerden herhangi bir hücre değeri 1 olduğu sürece (bu i5=1 veya i10=1 veya i18=1 gibi) otomatik olarak (buton olmadan)
bip çalsın ta ki değerler 0 oluncaya kadar
Şimdiden Teşekkürler..

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu boş bir module kopyalayın ve dosyanızı kaydedip kapatınız.
Dosya açıldığında iki saniyede bir kontrol yapar.
Sayfa adını kendi dosyanıza göre değiştirmeyi unutmayınız.

Sub Auto_Open()
If WorksheetFunction.CountIf(Sheets("Sayfa1").Range("I5:I18"), 1) > 0 Then Beep
Application.OnTime Now + TimeValue("0:0:2"), "Auto_Open"
End Sub

 

[mavi674]

Ömer Bey
çok güzel olmuş ama benim tablomdaki makroya yeleştiremedim, yani ekledim ama çalışmadı.

Sub Autpen()
stopit = False
clock
End Sub

Bu makroya dahil edebilirmiyiz
Tablo açıldığında saat çalışıyor. Burada zamanlama var zaman dolunca (5 timer var) i5:i18 arası 1 olunca alarm verecek diye tasarlamıştım..
İlginize teşekkürler...

 

[mavi674]

veya başka bir şey düşünebilir miyiz ?
ila bip olması da gerekmeyebilir.

 

[ÖmerBey]

Aşağıdaki şekilde bir dener misiniz?

Public zmn As Double
Sub Auto_Open()
stopit = False
clock
kontrol
End Sub

Sub kontrol()
If WorksheetFunction.CountIf(Sheets("Sayfa1").Range("I5:I18"), 1) > 0 Then Beep
zmn = Now + TimeValue("0:0:2")
Application.OnTime zmn, "kontrol"
End Sub

Sub Auto_Close()
On Error Resume Next
Application.OnTime zmn, "kontrol", , False
End Sub

 

[mavi674]

Ömer Bey
Teşekkürlerimi sunarım
Saat ve bip süper çalıştı
Ellerinize sağlık
Başarılar dilerim
Esen Kalın...

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...