Нужен макрос: сравнение двух ячеек по условию (есть загвоздка)

[R Dmitry]

Код секретный, держите в тайне

Sub ggg()
For i = 1 To 57
If Cells(i, 1) < Cells(i + 1, 1) Then
Cells(i + 1, 2) = "Вверх": pl = True
ElseIf Cells(i, 1) > Cells(i + 1, 1) Then
Cells(i + 1, 2) = "Вниз": pl = False
Else
Cells(i + 1, 2) = IIf(pl, "Вверх", "Вниз")
End If
Next
End Sub

[Hugo121]

У меня вниз показывает...
А код простой:

Sub tt()
    Dim cc As Range, s$
    s = "не определено"
    For Each cc In [a2:a57]
        If cc.Value > cc.Offset(-1).Value Then s = "вверх"
        If cc.Value < cc.Offset(-1).Value Then s = "вниз"
        cc.Offset(, 1).Value = s
    Next
End Sub

[Hugo121]

Файл забыл.

[vladimir.rogatov]

R Dmitry и Hugo121 спасибо огромное за помощь!!! Работает как один, так и другой вариант.

[R Dmitry]

Сообщение от vladimir.rogatov

R Dmitry и Hugo121 спасибо огромное за помощь!!! Работает как один, так и другой вариант.

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

[Hugo121]

Я определился:
s = "не определено"

[vladimir.rogatov]

я вообще не понимаю, что такое s = "не определено". И понимаю, что это очень грустно и у знающих людей вызывает смех, впрочем как и у меня самого

[Hugo121]

Ну как - если при первом сравнении не будет ни больше, ни меньше, то в ячейку занесётся "не определено".
При дальнейших "=" занесётся последнее значение s.

[Казанский]

Сообщение от vladimir.rogatov

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

Да, промазал мышкой при составлении формулы, надо было кликнуть свой столбец, а я кликнул ваш.
Здесь исправлено.

[vikttur]

А так?

=ВЫБОР(2+ЗНАК(A2-A1);"туды";"ни туды, ни сюды";"сюды")