Sesli uyarı (hücredeki degere baglı)

[foxtrot]

merhabalar

sorum şöyle arkadaşlar

A1 hücresine B1 ve C1 hücrelerinin toplamı yazılmaktadır.

A1 hücresinin degeri 2 oldugunda

sesli beep uyarısı versin ve bu uyarının süresi 10 saniye olsun istiyorum
diger hallerde sesli uyarı vermesin sadece 2 oldugunda uyarı versin.

bunu nasıl saglayabiliriz

yardımlarınız için şimdiden çok teşekkürediyorum

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[foxtrot]

Sayın COST_CONTROL

harikasınız ilginize çok teşekkür ediyorum

tam istedigim gibi olmuş emeklerinize çok teşekkürediyorum çok sağolun

iyi çalışmalardilerim yeniden görüşmeküzere

 

[007hasanayik]

sayın cost control yaptığınız örneği inceledim. aklıma üzerinde çalıştığım bir form geldi. o formda bir hücreye T.C. kimlik no gireceğim. Bu hücreye yanlışlıkla 11 karakterden fazla yada az karakterle giriş yaptığım zaman aynı uyarıyı verdirebilirmiyiz. İlginize şimdiden teşekkür ediyorum.

 

[Skorpiyon]

Sayın Cost Control'un koduna bu ilaveyi yaparsanız 11 karakter dışında bişi girilirse Beep verir.


Private Declare Function APIBeep Lib "kernel32" Alias "Beep" _
(ByVal dwFreq As Long, ByVal dwDuration As Long) As Long


Private Sub Worksheet_Change(ByVal Target As Range)
If Len(Cells(1, 1)) = 11 Then
GoTo bitir
Else
ReDim A(20)
For SES = 1 To 20
A(SES) = 400 '(400 SES TİPİ)
Next
For X = 1 To 20
APIBeep A(X), 500 '(400 SÜRE)
DoEvents
Next
End If
bitir:
End Sub

 

[Skorpiyon]

veya sadece burayı değiştirsenizde olur

If Len(Cells(1, 1)) <> 11 Then

 

[S.Yiğit]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

Değerli Hocalarım,

Eski olduğu için yukarıda Sn. Korhan Ayhan hocamın eklediği dosyayı açamadım. Benimde benzer bir sorunum var. N6 Hücresinde toplama formülüm var. Bu formül sonucu oluşan sayı 60'ı geçtiğinde bir kere sesli uyarı vermesi lazım. Sadece 60 olduğunda değil 60'ı geçtiğinde de uyarı verecek.

 

[1Al2Ver]

Değerli Hocalarım,

Eski olduğu için yukarıda Sn. Korhan Ayhan hocamın eklediği dosyayı açamadım. Benimde benzer bir sorunum var. N6 Hücresinde toplama formülüm var. Bu formül sonucu oluşan sayı 60'ı geçtiğinde bir kere sesli uyarı vermesi lazım. Sadece 60 olduğunda değil 60'ı geçtiğinde de uyarı verecek.

Merhaba,

Sayın Hamitcan'ın çözümüdür, denermisiniz ?

http://www.excel.web.tr/showthread.php?p=420732#post420732

Kod'daki ; If [n6].Value = 60 Then Call PlaySound satırındaki = işaretinin arkasına > (büyük) işareti ilave edilmiştir.

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

Private Sub Worksheet_Change(ByVal Target As Range)
If [n6].Value >= 60 Then Call PlaySound("C:\WINDOWS\Media\chimes.wav", 0&, SND_ASYNC Or SND_FILENAME)

End Sub

 

[S.Yiğit]

Sn 1Al2Ver merhaba,

Link için teşekkürler.. Orda sağolsun Hamitcan hocam yardımcı oluyor. yanlız verdiğiniz kodda her işleme ses geliyor. Bana sadece 60'ı geçtiğinde bir kere ses gelecek bir kod lazım..

 

[nurullah16]

ben örnek tablonuzu acamadım yaa (

 

[nurullah16]

yardımcı olacak bir kardeşimiz varmı..

bana bu sesli ikaz konusunda yardımcı olacak yokmu allah rızası için..yoksa delirecem...((

 

[Korhan Ayhan]

Merhaba,

Konu eski bir konu olduğu için dosyalar foruma yapılan saldırıda silinmiş. Siz örnek dosyanızı ekleyip ne yapmak istediğinizi açıklarsanız yardımcı olabiliriz.

 

[nurullah16]

çok şükür buldum

merhaba koray hocam ben dosyayı şükür buldum:koray bey f3 hücresindeki "uyarı "yazan hücrenin iki tarih arasında 10 kala sesli ve görsel ikaz mümkünmü salgılarımla... dosya ekte...saygılarım

 

[nurullah16]

korhan ayhan hocam dosya ek'te

hocam tabloda D3 İLE E3 Arasındal tarihin 10 gün olması lazım yada 11 bu tarihler geldiğinde f3 hücresinde uyarı yazıp sesli ikaz edilsin istiyorum ...

bu mümkünmü...

saygılarımla..

 

[nurullah16]

saygılarımla

Merhaba,

Konu eski bir konu olduğu için dosyalar foruma yapılan saldırıda silinmiş. Siz örnek dosyanızı ekleyip ne yapmak istediğinizi açıklarsanız yardımcı olabiliriz.

dosyam ekte korhan Ayhan bey..

 

[Korhan Ayhan]

Merhaba,

Ekteki örnek dosyayı inceleyiniz.

Kodlar aşağıdaki koşullarda çalışır.

Sayfa1 aktif olduğunda
Sayfada bir hücreye girip çıktığınızda
Sayfada hesaplama yapıldığında

Not: XP sisteminde ses dosyası kullanılmıştır. Farklı bir sistem kullanıyorsanız ses dosyasının yolunu kendi sisteminize göre değiştiriniz.

 

[TASADAM366]

Korhan bey konu açılmışken bende sorayım.Diyelim ki
Sayfa1 de G22 hücresinde ve Sayfa4 de F16 hücresinde tarih var.G22 deki Bugünün tarihi
F16 daki ise doğum tarihi.Diyelim ki doğum tarihi 19.09.1985
Ben makro çalıştırdığımda bu iki hücreyi kontrol edip Sesli uyarı verebilir mi?
Sesli uyarı mp3 veya wma dosyası olacak.İlginiz için şimdiden teşekkür ederim.Saygılarımla

 

[Korhan Ayhan]

Merhaba,

Verilebilir. Fakat siz eklediğim dosyadaki özelliği "vma" uzantılı bir ses dosyası ile deneyiniz. Benim deneme şansım yok.

 

[nurullah16]

tşk ler

tşkler koran bey;

peki örnek tablomdaki B3 VE C3 HÜCRELERİNDEKİ VERİLERİ HÜCRE DEĞİŞİ OLMADAN O HÜCREYE AİT TIKLADIĞIMDA B3 VEYA C3 HÜCRESİNKİ BİLGİLER KARŞIMA CIKSIN İSTİYORUM BU MÜMKÜNMÜ..

YARDIMLARINIZ İÇİN TŞKLER...

 

[TASADAM366]

Sayın Korhan Ayhan,
Örneğinizde (Bu konunun 16. mesajında) F3,I3,L3 hücrelerine işlev itibarıyla aynı olan aşağıdaki formülü yazmışsınız.
=EĞER(VE(E3<>"";E3-BUGÜN()<=10);"UYARI";"")
Bu formülde E3 deki tarih Bugün() e eşit olması için formülü nasıl düzenlemeliyim.
ve formüldeki UYARI yazısı değiştiğinde örneğin Mutlu Yıllar yazdığımda Makroda da bunu değiştirmem gerekir mi?
Bir de bazen iki kez çalıyor.Ve bazen excel ekranı silikleşiyor.Yanıt vermiyor diyor ama müzik bitince normale dönüyor.İlginiz ve yardımlarınız için şimdiden teşekkür ederim.Saygılarımla
--------------
Sayın Korhan Ayhan sizin frmülü kendime uyarladım.F65 hücresinde doğum tarihi girili.
=EĞER(VE(F65<>"";F65-BUGÜN()=0);"UYARI";"")
Bu formülde diyelim ki doğum tarihi 25.09.1979 olan biri için nasıl bir uyarlama yaparsam 1979'u görmeden sadece ay ve gün aynı olduğunda uyarı yazısı gelebilir?
Not:Formül F65 hücresiyle bugünün tarihi aynı olursa çalışıyor ama defalarca çalıyor.Bir kez çalıp dursa iyi olur.
--------------------
Sayın Korhan Ayhan doğum tarihine göre de düzenleme yaptım.Doğum trihi gelince müzik çalıyor.Şimdi sadece 1 kez çalsın yeter.Diğer sayfalara geçip geri dönüldüğünde veya formülün yazıldığı hücre seçildiğinde çalmasın.excel dosyam açıldığında bir kez çalsın yeterli.Saygılarımla.
Nasıl yaptığımı da kısaca anlatayım.Yararlanmak isteyen olur.
Formülde geçen F65 de doğum tarihi girili.
Formül W3 hücresine yazılmıştır.
W3 hücresinde aşağıdaki formül bulunmaktadır.

=EĞER(METNEÇEVİR(AY(F65);"00")&METNEÇEVİR(GÜN(F65);"00")=METNEÇEVİR(AY(BUGÜN());"00")&METNEÇEVİR(GÜN(BUGÜN());"00");"DOĞUM GÜNÜN KUTLU OLSUN,NİCE YILLARA...";"")

Makro da aşağıdaki gibi değiştirilmiştir.Makroda geçen D:\01.wav çalacak müziğin adresidir.Makro W3 yazan metin kendisindekiyle aynı ise çalışıyor.Ve makro W3 hücresini kontrol edip kendisinde yazılı metinle karşılaştırıp işlem yapıyor.Buna dikkat ediniz.

Option Explicit

#If VBA7 And Win64 Then
Private Declare PtrSafe Function sndPlaySound Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
#Else
Private Declare Function sndPlaySound Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
#End If

Private Sub Worksheet_Activate()
On Error Resume Next

If WorksheetFunction.CountIf(Range("W3"), "DOĞUM GÜNÜN KUTLU OLSUN,NİCE YILLARA...") > 0 Then
sndPlaySound "D:\01.wav", 0
End If
End Sub

Private Sub Worksheet_Calculate()
On Error Resume Next

If WorksheetFunction.CountIf(Range("W3"), "DOĞUM GÜNÜN KUTLU OLSUN,NİCE YILLARA...") > 0 Then
sndPlaySound "D:\01.wav", 0
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next

If WorksheetFunction.CountIf(Range("W3"), "DOĞUM GÜNÜN KUTLU OLSUN,NİCE YILLARA...") > 0 Then
sndPlaySound "D:\01.wav", 0
End If
End Sub