Фиксация данных

[lite]

Можно ли зафиксировать данные если они меняються (в режиме реального времени и каждую секунду ) см .пример .зарание благодарью.

[doober]

Вм надо зафиксировато значение с первым появлением 1,если не 1 то в ячейке 0

[EugeneS]

можно, например, так, поместите данный код в код Листа 1:

Private Sub worksheet_change(ByVal Target As Range)
If Target.Address = "$C$6" Then
    If Target.Value = 1 Then
        [d6] = Target.Offset(, -1).Value
    ElseIf Target.Value = 0 Then
        [d6] = 0
    End If
End If
End Sub

[lite]

Сообщение от doober

Вм надо зафиксировато значение с первым появлением 1,если не 1 то в ячейке 0

ДА ,в "С6". И Главное чтоб неизменялась !!!

[doober]

я думаю.если мысли совпали.значит код правильный

Dim Fl As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$6" Then
If Target <> 1 Then
Fl = False
[D6] = 0
ElseIf Fl = False Then
[D6] = [b6]
Fl = True
End If: End If

End Sub

[lite]

я думаю.если мысли совпали.значит код правильный

Может мысли и совпали только ничего непроисходит.может я нетак что-то делаю.вы немогли бы показать на примере .спасибо

[doober]

Код выше принципиально не имеет никакого отношения к вашей новой задаче.По вашим требованиям формула работает правильно.никакой фиксации не требуется,а должна быть проверка условия.Возможно вы не правильно сформулировали задачу

[lite]

Сообщение от doober

Код выше принципиально не имеет никакого отношения к вашей новой задаче.По вашим требованиям формула работает правильно.никакой фиксации не требуется,а должна быть проверка условия.Возможно вы не правильно сформулировали задачу

Ну может быть.Мне нужно например ...если тек.знач дашло до 0.9880 в ячейку С2 скопировалось ето значение и неизменялась(сама цифра) до появления ..0 в А2 .тек.значение (В2)меняеться автоматом.(ето рынок акций там меняеться значение каждую секунду ) что-то типо того.