Вызов макроса

[Евгений_12]

Помогите разобраться!
Из одной ячейки в другую нужно постоянно копировать данные.
Есть только одно условие если в (ячейке 1) = #Н/Д то ничего не делать
а оставить старые данные.

Я написал макрос.
Sub b1()
Лист15.Activate
Лист15.Range("G28").Value=IIf(Лист1 5.Range("H28").Taxt="#Н/Д",Лист15.Range("G28").Value,Лист15 .Range("H28").Value )

Работает так как нужно НО! чтобы макрос сработал нужно давить на
кнопук RUN. Как сделать чтоб при открытой книге данные менялись
в реальном времени сами?

Заранее всем большое спасибо.

[maksim_serg]

запишите этот код в событиея:

Workbook_Open() и Worksheet_Change(ByVal Target As Range)

[Евгений_12]

Что то не работает-- выдает ошибку компиляции.

[motorway]

А как вы написали? Бросьте весь код сюда

[Евгений_12]

В коде ("ЭтаКнига") У меня запускается несколько "Modules"

Private Sub Workbook_Open()

Day //запускается раз в день
Hour//запускается раз в час
Application.WindowsState=xlMinimize d// скинуть Excel вниз

Worksheet_Change(ByVal Target As Range) --так записать недает вообще
Worksheet_Change(ByVal Target )As Range -при такой записи при нажатии
Enter сам переписывает запись и неправильно компилируется.

[motorway]

Короче, после вызова редактора VBA (Alt+F11) вы должны выбрать, нажав "ЭтаКнига", в первом комбобоксе справа Workbook. Автоматически вставится код для Open. Внутрь него и вставляйте код макроса, но следите, чтобы был только код, а не Sub и End Sub.
В правом комбобоксе можно выбрать и другие события. Автоматически создастся код для них, куда и нужно вставить будет ваш код.
Это же можно сделать и для отдельного листа, нажав слева на нужный лист
Кроме того, в вашем коде я не вижу конца процедуры. Есть только начало, а где End Sub??

[SAS888]

Из одной ячейки в другую нужно постоянно копировать данные...
Как сделать чтоб при открытой книге данные менялись в реальном времени сами?

1. Как часто нужно производить копирование? Почему нужно в реальном времени?
2. Т.к. в Вашей ячейке возможно #Н/Д, то, следовательно ячейка содержит формулу. Поэтому, для этой ячейки событие Worksheet_Change возникать не будет.
3. Можно использовать событие Worksheet_Calculate, но при большом количестве формул на листе, Excel будет "тормозить".
4. Какая формула содержится в контролируемой ячейке? Много ли влияющих ячеек она содержит?