Добрый вечер всем добрым людям! Очень прошу о помощи с макросами. В чем проблема, нужно вставить текст в блок "Надпись" с сохранениям формата, тоесть если текст красный то и вставить нужно красный. При смене текста и выполнения макроса, что-бы текст и цвет менялся тоже! Попробывал записать макрорекордером, но оно работает не так как нужно
Private Sub Worksheet_Change(ByVal Target As Range)If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
Dim iColor
Dim iVal As String
iColor = Target.Font.Color
iVal = Target.Value
ActiveSheet.Shapes.Range(Array("TextBox 1")).Select
Selection.Text = iVal
With Selection.Font
.Color = iColor
.TintAndShade = 0
End With
End If
End Sub