cant make sound alert beep multipl times

[jaypeek]

Hi All,

I joined only a few days back.I am a beginner for VBA.I am trying to set up a sound alert based on a threshold value in cells/cell of a column.If the value is reached in multiple cells the beep will be that many times.The issue is that it beeps only once.Below is the code I have written .Pls tell me where is the mistake.

Thanks

jaypeek

Moderator's note: Please take the time to review our rules. There aren't many, and they are all important. Rule #3 requires code tags. I have added them for you this time because you are a new member. --6StringJazzer

Please Login or Register  to view this content.

[6StringJazzer]

It happens too fast for the system to respond to. Inserting a brief delay may help:

Please Login or Register  to view this content.

[jaypeek]

Hi Jeff,

thanks a lot.It now works like a song.I couldnt have figured this out myself.I am really thankful to you!!
jaypeek

It happens too fast for the system to respond to. Inserting a brief delay may help:

Please Login or Register  to view this content.

[6StringJazzer]

When responding, no need to quote the entire post, especially when it's obvious what you're responding to. If you really need to quote something just quote the relevant part.

If your question has been answered please mark your thread as "Solved" so that members will know by looking at the thread title that your problem is solved.

Go to the menu immediately above your first post to the thread and click on Thread Tools. From the dropdown menu select "Mark this thread as solved..."

[jaypeek]

Hi Everybody
I am trying to run a macro to play some windows media files one after the other.The file path is in sheet1(A1:A40) but maro diesnt play the sounds--- shows error 438-- object does not support this property or method.Pls help.
thanks
Option Explicit

Please Login or Register  to view this content.

[jaypeek]

Hi All,
found the issue with this code.The line "Set mysounds=sheet1("A1:A47" ) should be "Set mysounds=sheet1.Range("A1:A47" )It worked OK after inserting the word "range"
thanks
jaypeek