sesli veri doğrulama

[hamitcan]

Ben anladığım kadarıyla çözmeye çalışdım. Benden bu kadar.Belki diğer arkadaşlar bir çözüm getirebilir.

 

[hamitcan]

ThisWorkBook kısmında değiştirmeyi unuttuğum bir yer kalmış. Verdiğim kodu eskisiyle değiştirin.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If [n16] >= 60 Then Sayfa2.[a1] = 0 Else Sayfa2.[a1] = 1

End Sub

 

[S.Yiğit]

Hocam bu sefer oldu. küçücük bir sorun var ama önemli değil. sorunda kaydediyorum kapatıyorum kapatırken "yaptığınız değişiklikleri kaydetmek istiyor musunuz" diye soruyor yani kaydettiğim halde soruyor ama böylede kullanabiliriz.. Hakkınızı helal edin, çok uğraştırdım sizi..

 

[hamitcan]

Rica ederim. Çözülsünde... Diğer sorun ise, aynı koda eklenti yaptım.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If [n16] >= 60 Then Sayfa2.[a1] = 0 Else Sayfa2.[a1] = 1
[B]ThisWorkBook.Save[/B]
End Sub

 

[S.Yiğit]

Rica ederim. Çözülsünde... Diğer sorun ise, aynı koda eklenti yaptım.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If [n16] >= 60 Then Sayfa2.[a1] = 0 Else Sayfa2.[a1] = 1
[B]ThisWorkBook.Save[/B]
End Sub

Hocam bu sefer tamamıyla çok güzel oldu. Elinize, bilginize sağlık.. Teşekkür ederim..

 

[QEXEC]

Aşağıdaki kodları ekleyip dener misiniz? Aslına bakarsanız tek satırlık bir kod vardı ama onu bulamadım.
Not:İstediğiniz "wav" dosyasını ekleyerek kullanabilirsiniz.

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 [e3] = "hatalı kayıt" Then Call PlaySound("C:\WINDOWS\Media\ding.wav", 0&, SND_ASYNC Or SND_FILENAME)

End Sub

Arkadaşlar bendede iki değer aynı değilse farklı yazan bi sayfa var bunu deniyorum hücreleri değiştirerek ses felan çıkarmıyor beep seside yok bunu yazıyorum

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, _
 ByVal hModule As Long, ByVal dwFlags As Long) As Long satırı kırmızı oluyor Syntax error hatası veriyor. yapacağı iş çok basit ama yapamadım I132 hücresi AYNI değilde FARKLI yazıyorsa sesle uyaracak, teşekkür ederim.

 

[hamitcan]

Arkadaşlar bendede iki değer aynı değilse farklı yazan bi sayfa var bunu deniyorum hücreleri değiştirerek ses felan çıkarmıyor beep seside yok bunu yazıyorum

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, _
 ByVal hModule As Long, ByVal dwFlags As Long) As Long satırı kırmızı oluyor Syntax error hatası veriyor. yapacağı iş çok basit ama yapamadım I132 hücresi AYNI değilde FARKLI yazıyorsa sesle uyaracak, teşekkür ederim.[/QUOTE]

Dosyanızı eklerseniz daha iyi olacak.

 

[QEXEC]

Üstat kusura bakmayın şirket dosyası olduğu için paylaşmak istemedim ama benzer basit bişey hazırladım onu paylaşayım FARKLI yazdığında ses çalmasını istiyorum VBA dan kaydediyorum ama çalmıyor bu işlerde iyi derecede bilgimde yok açıkcası sorun nedir anlayamadım.

 

[QEXEC]

Üstat kusura bakmayın şirket dosyası olduğu için paylaşmak istemedim ama benzer basit bişey hazırladım onu paylaşayım FARKLI yazdığında ses çalmasını istiyorum VBA dan kaydediyorum ama çalmıyor bu işlerde iyi derecede bilgimde yok açıkcası sorun nedir anlayamadım.

Yardımcı olacak birisi varmı acaba ?