О____о!   Отлично))))  ... вопрос закрыт вот этим  
 If IsError([D17]) Then Exit Sub
If IsError([B17]) Then Exit Sub
If IsError([E17]) Then Exit Sub
 
Все работает..как швейцарские часы... !!!  ОГРОМНЕЙШЕЕ СПАСИБО!!!

http://www.planetaexcel.ru/forum.php?thread_id=44135  извиняюсь но чо то не открывается.. битая что ле  ... Спасибо что подсказали на счет end if ))) Пока вот еще не смог решить проблему

Уважаемый KukLP))) .. Мучался целый день со звуком.. и сделал все! Добрые люди помогли)))... Но вот щас возникла следующая проблема:  
Я же получаю данные в excel по DDE.. и когда пропадают данные (числа) и вместо них в ячейках появляются хрень -  "#####"  и  "#N/A"   , то - Private Sub Worksheet_Calculate()  
выдает 'debug'(и ексель останавливается) . Один приятель по памяти и наспех написал код:  
 
 
 
Public Sub Process_Value(ByVal X_Coord As Long, ByVal ValueName As String, ByVal Value As Variant)  
   Dim TmpValue As Variant  
   Dim LastIndex As Long  
       
   ' if we've read and non-numeric value, then replace it by ### in the grid  
   If IsNumeric(Value) Then  
       TmpValue = Value  
   Else  
       TmpValue = "####"  
   Else  
       TmpValue = "#N/A"  
   End If  
End Sub  
 
 
 
Но он почему то не работает(((..   Скажите плиз, есть ошибка в коде или нет.. и куда этот код вставлять что бы макрос Worksheet_Calculate() больше не ругался на "#####" и "#N/A"  ??

Игорь! Благодарю... Все работает отлично!!!

не получается условным форматированием.. потому что не запоминает цвет(((  Игорь если не трудно накатай код..плиз))

Господа программисты!!.. чо надо написать дальше что бы при достижении значений ячейка С10 окрашивалась в красный цвет и запоминала это  
 
 
Private Sub Worksheet_Calculate()  
 
If (Range("E17").Value > 20 And Range("B17").Value > 10) Then  
 
а если    
 
If (Range("E10").Value > 20 And Range("B17").Value > 10) Then  
 
то ячейка С10 окрашивалась в зеленый цвет и так же запоминала это до следующих изменений по первому условию... то есть: если так - то красный, а если так то зеленый.. .  
Подскажите плиз..

Имеется такой макрос...    
 
Private Declare Function PlaySound Lib "winmm.dll" _  
Alias "PlaySoundA" (ByVal lpszName As String, _  
ByVal hModule As Long, ByVal dwFlags As Long) As Long  
 
Private Sub Worksheet_Calculate()  
 
If (Range("D17").Value > 5 And Range("B17").Value > 3) Then  
WAVFile = "01.wav"  
  WAVFile = ThisWorkbook.Path & "\" & WAVFile  
  Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)  
Else  
If (Range("E17").Value > 5 And Range("B17").Value > 3) Then  
WAVFile = "02.wav"  
  WAVFile = ThisWorkbook.Path & "\" & WAVFile  
  Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)  
End If  
 
End If  
 
End Sub  
 
 
Так вот задача такая -- сделать так что бы макрос автоматически запускался при открытии книги через минуту! А так же -- как сделать так, что бы файл воспроизводился при достижении нужных значений всего 1 или 2 раза....  Господа требуется ваш мудрый совет..