Условное форматирование

[SaLoKiN]

Доброго времени суток!
Собсно проблема у меня =(
Необходимо использование условного форматирования. Правила создаю, применяю, сохраняю,закрываю книгу,заново открываю и все норм. НО! как только открываю данный файл на другой машине, условного форматирования как ни бывало)
Есть ли идеи как это обойти?
Вариант с макросом рассматривал. макрос записал, запустил работает. Но обращение к листу вообще никакое(а может и какое, но если уже открыты другие книги и макрос запускается при открытии книги автоматом, все не круто) .

Sub УФ2()
'
' УФ2 Макрос
'
 With ThisWorkbook.Sheets("НТК 1 ")
 .Range("H100").Select
    .Range(Selection, Selection.End(xlDown)).Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreaterEqual _
        , Formula1:="=ВПР(RC[-2];AutoMob!R2C1:R55C4;3;0)"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .Pattern = xlPatternRectangularGradient
        .Gradient.RectangleLeft = 1
        .Gradient.RectangleRight = 1
        .Gradient.RectangleTop = 1
        .Gradient.RectangleBottom = 1
        .Gradient.ColorStops.Clear
    End With
    With Selection.FormatConditions(1).Interior.Gradient.ColorStops.Add(0)
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior.Gradient.ColorStops.Add(1)
        .Color = 255
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = True
    End With
End Sub

Помогите допинать макрос или дайте совет по правильному использованию условного форматирования)

[IgorGO]

условное форматирование храниться в файле и должно работать на других компьютерах (в той же версии офиса - точно)
и уже совсем не важно настроено это макросом или руками

[SaLoKiN]

а если УФ использует в условии функцию ВПР,которая берет данные с другого листа этой книги? Прост мне кажется что вся загвоздка как раз-таки в этом....

[Казанский]

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

а если УФ использует в условии функцию ВПР,которая берет данные с другого листа этой книги?

В 2007 и более ранних это не работает.

[SaLoKiN]

В 2007 и более ранних это не работает.

Точняк!
Только- что проверил версию офиса на других компах. там 2007. Есть идеи как это победить(переустановка офиса не варик)?

[agregator]

Можно скачать портативную версию 2007 офиса.

[gling]

В 2007 и более ранних это не работает.

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

[Казанский]

Будет. А можно создать имя-функцию, например crit с формулой

=ВПР(RC[-2];AutoMob!R2C1:R55C4;3;0)

и использовать его

    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreaterEqual _
        , Formula1:="=crit"

Для изменения критерия не нужно будет лезть в код, а только в диспетчер имен (Ctrl+F3).

[SaLoKiN]

gling

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

Казанский

Будет

спасибо!
Все работает!
Тема закрыта!