Условное форматирование с управляющего листа

[Uralmaster]

Сделано условное форматирование с помощью управляющего листа
но только цвета ячеек

Нужно форматирование шрифта (цвет, толщину) ?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target = "" Then
Target.Interior.ColorIndex = xlNone: Exit Sub
End If
Dim x As Range, s As String
s = Application.Trim(Replace(Split(Target, "-")(0), "", ""))
Set x = Sheets(2).[A:A].Find(Split(s, " ")(0))
If x Is Nothing Then Exit Sub
If x.Interior.ColorIndex <> xlNone Then Target.Interior.ColorIndex = x.Interior.ColorIndex

End Sub

файл прилагаю

[kuklp]

Я Вам уже отвечал на этот вопрос:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 1 Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    If Target = "" Then
        Target.Interior.ColorIndex = xlNone: Exit Sub
    End If
    Dim x As Range, s As String
    s = Application.Trim(Replace(Split(Target, "-")(0), "", ""))
    Set x = Sheets(2).[A:A].Find(Split(s, " ")(0))
    If x Is Nothing Then Exit Sub
    If x.Interior.ColorIndex <> xlNone Then
    Target.Interior.ColorIndex = x.Interior.ColorIndex
    Target.Font.ColorIndex = x.Font.ColorIndex
    End If
End Sub

[Uralmaster]

спасибо за поддержку - цвет понятно - а чтоб еще форматирование шрифта жирный- простой по образцу делал - такое возможно ?

[kuklp]

Да.
Добавьте:
Target.Font.bold = x.Font.bold
и т.д.

[kuklp]

Можно короче:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 1 Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    If Target = "" Then
        Target.Interior.ColorIndex = xlNone: Exit Sub
    End If
    Dim x As Range, s As String
    s = Application.Trim(Replace(Split(Target, "-")(0), "", ""))
    Set x = Sheets(2).[A:A].Find(Split(s, " ")(0))
    If x Is Nothing Then Exit Sub
    x.Copy
    Target.PasteSpecial Paste:=xlPasteFormats
End Sub

Но будет тормозить.

[Uralmaster]

добавление Target.Font.bold = x.Font.font.bold ошибку выкидывает

[Uralmaster]

по 2 коду затыкается на строке
s = Application.Trim(Replace(Split(Targ et, "-")(0), "", ""))

она красная получается в VBA

[kuklp]

Target.Font.bold = x.Font.bold
По второму коду удалите пробел в Target.
Это сайт вставляет почему-то.

[Hugo121]

Описки, искажения движка...
x.Font.bold
Split(Target, "-")(0), "", "")

[kuklp]

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

Описки, искажения движка...
x.Font.bold
Split(Target, "-")(0), "", "")

Привет, Игорь. Если заключать в теги - не искажает, но тогда пустые строки вставляет, приходится их потом удалять.