Добрый день  
 
Подскажите пожалуйста можно  ли как то посчитать количество изменений числа в ячейке?

подскажите плиз можно ли это записать в модуле как то  покороче    
 
 
Sub Mcrs()  
 
Sheets(1).Range("H56").Value = Sheets(1).Range("H55").Value  
Sheets(1).Range("H55").Value = Sheets(1).Range("H54").Value  
Sheets(1).Range("H54").Value = Sheets(1).Range("H53").Value  
Sheets(1).Range("H53").Value = Sheets(1).Range("H52").Value  
Sheets(1).Range("H52").Value = Sheets(1).Range("H51").Value  
Sheets(1).Range("H51").Value = Sheets(1).Range("H50").Value  
Sheets(1).Range("H50").Value = Sheets(1).Range("H49").Value  
Sheets(1).Range("H49").Value = Sheets(1).Range("H48").Value  
Sheets(1).Range("H48").Value = Sheets(1).Range("H47").Value  
Sheets(1).Range("H47").Value = Sheets(1).Range("H46").Value  
 
Sheets(1).Range("J56").Value = Sheets(1).Range("J55").Value  
Sheets(1).Range("J55").Value = Sheets(1).Range("J54").Value  
Sheets(1).Range("J54").Value = Sheets(1).Range("J53").Value  
Sheets(1).Range("J53").Value = Sheets(1).Range("J52").Value  
Sheets(1).Range("J52").Value = Sheets(1).Range("J51").Value  
Sheets(1).Range("J51").Value = Sheets(1).Range("J50").Value  
Sheets(1).Range("J50").Value = Sheets(1).Range("J49").Value  
Sheets(1).Range("J49").Value = Sheets(1).Range("J48").Value  
Sheets(1).Range("J48").Value = Sheets(1).Range("J47").Value  
Sheets(1).Range("J47").Value = Sheets(1).Range("J46").Value  
 
End Sub

добрый День  
 
подскажите плиз как можно запустить звук при совпадении условий в ячейке  
 
Sub звук()  
? if A1=5 Then Open "c:\phone.wav" ?  
Application.OnTime Now + TimeValue("00:15:00"), "звук"  
End Sub

Добрый день  
Подскажите новичку возможно ли в Excel создать динамически обновляющийся массив ..  
чтото типа конвейера  
например массив из 3 ячеек в первой ячейке 6 во второй 8 в третьей 4 при появлении нового числа 5 в первой появится 5 во второй 6 в третьей 8