Помогите с кодом макроса

[Haguro]

Как в макросе прописать для экселя код

1. "Если лист содержит текст "Прямые затраты", то вставляет текст "Сводная таблица" в ячейку выше.
2. "Если лист содержит текст "Всего с НР и СП", то вставляем блок текста на 2 ячейки ниже и на 1 слолбец влево.

[AleksandrH]

Sub Макрос1()
'
' Макрос1 Макрос
'

'
    Dim oFind As Range
    Set oFind = Cells.Find(What:="Прямые затраты", After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False)
    If Not (oFind Is Nothing) Then
        If oFind.Row > 1 Then Cells(oFind.Row - 1, oFind.Column) = "СВОДНАЯ"
    End If
    Set oFind = Cells.Find(What:="Всего с НР и СП", After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False)
        If Not (oFind Is Nothing) Then
            If oFind.Column > 1 Then Cells(oFind.Row + 3, oFind.Column - 1) = "БЛОК ТЕКСТА"
    End If
End Sub

[Haguro]

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

[AleksandrH]

Ищите...

With Range("A1:M50")
        .Font.Name = "calibri"
        .Font.Size = 24
        .Font.ColorIndex = 1
        .Interior.ColorIndex = 15
        .Borders(xlEdgeLeft).LineStyle = xlContinuous
        .Borders(xlEdgeLeft).Weight = xlThin
        .Borders(xlEdgeTop).LineStyle = xlContinuous
        .Borders(xlEdgeTop).Weight = xlThin
        .Borders(xlEdgeBottom).LineStyle = xlContinuous
        .Borders(xlEdgeBottom).Weight = xlThin
        .Borders(xlEdgeRight).LineStyle = xlContinuous
        .Borders(xlEdgeRight).Weight = xlThin
        .Borders(xlInsideVertical).LineStyle = xlContinuous
        .Borders(xlInsideVertical).Weight = xlThin
        .Borders(xlInsideHorizontal).LineStyle = xlContinuous
        .Borders(xlInsideHorizontal).Weight = xlThin
    End With

[Haguro]

With Range не годится, нужно прописать конкретный текст и изменить размер его шрифта и взять в рамку

[AleksandrH]

это было не решение, а, если хотите, подсказка куда искать

[Hugo121]

Искать нужно кнопку записи макроса.

[Haguro]

запись макроса не катит, потому что он пишет действия на текущем листе, а надо чтобы они распространялись на все листы

[Hugo121]

Как уверенно и безаппеляционно

[Haguro]

может я не так сформулировал, но поверьте я уже этот метод пробовал