excel de Sesli Uyarı çok koşullu

[orcoo100]

merhaba
1-) F3 ten baslayan F9 kadar giden sutun var. bu sutun diğer hücrelerden formulle besleniyor. f3 ten f9 kadar hücrelerin içi ya "ÜRÜN SAT" yazılı, yada hücre boş olarak çalışmaktadır. istediğim F3ten F9 kadar olan hücrede eğer "ÜRÜN SAT" yazısı olduğunda hemen beep sesi ile beni tek bir sefer uyarsın. ORNEGİN: F4 HUCRESI VE F5 HUCRESİ "ÜRÜN SAT" yazısı ile doluysa beep le uyarsın hemen ardında eğer F6 "ÜRÜN SAT" OLURSA YİNE BEEP lesin sonuç olarak F sutununda hangi hücre "ÜRÜN SAT" koşulu olursa beep lesin. Hücrenin içi boş ise herhangi bir uyarı vermeyecek


2-) yine G sutunu aynı şekildedir. G3 ten G9 a kadar formülle besleniyor. hücreler ya "ÜRÜN AL" ile doluyor yada hücrenin içi boş oluyor. Hücrelerin herhangi birinde yada ikisi yada tamamı "ÜRÜN AL" yazısı ile doluyorsa beep ile uyarı versin.


Not: forumda diğer sesli uyarı başlıklı yazılarda bu çözümü bulamadım. excel 2003 kullanıyorum.

 

[Murat OSMA]

Şu kodlari bir deneyiniz;

Sub beeeep()
Dim i as integer 
For i = 3 to 9
if cells(i, "f") <> "" and cells(i,"f") = "ÜRÜN SAT" then beep
if cells(i, "g") <> "" and cells(i,"g") = "ÜRÜN AL" then beep
Next i 
End sub

 

[Murat OSMA]

Beep yerine bu satiri yazabilirsiniz; call shell("rundll32.exe user,messagebeep")

 

[orcoo100]

bende calişmadi

Beep yerine bu satiri yazabilirsiniz; call shell("rundll32.exe user,messagebeep")

bende ikiside calışmadı
tedarikçi fiyatları ile oynayıp( rakamları 5000 ve 1000 indirip yükseltin) doğru çalışırsa dosyayı sizden rica ede bilirmiyim?

 

[Murat OSMA]

Şu an cepten giriyorum, dosyanızı yarın indirip bakarım.

 

[Murat OSMA]

Zararlı dosya olduğu belirtilip kapanıyor. Yeni bir dosya ekleyin.

 

[orcoo100]

yeni dosya ekte

murat bey yeni dosya ekte