Вставка и удаление строк с сохранением формул

[Semenson]

Здравствуйте. Помогите , пожалуйста, новичку написать макрос. Надо вставлять и удалять строки так , чтобы в ячейках таблицы сохранялись формулы.
Проблема в том, что формула рассчитывает значения с нарастающим итогом (т.е. , учитывая значение верхней ячейки). В моей реализации макроса при вставке сохраняется ссылка на верхнюю ячейку без учета вставленной строки, а при удалении - выдается ошибка "неверная ссылка". Иллюстрация - в приложенном файле: попробуйте поудалять и повставлять строки. Спасибо.

[IgorGO]

напишите в С3

=СУММ(ИНДЕКС(C:C;СТРОКА()-1))+A3-B3

тяните эту ячейку вниз по столбцу, а теперь удаляйте / добавляйте строки

[Semenson]

Все работает, огромное Вам спасибо

[Semenson]

Здравствуйте, Игорь.
Простите за беспокойство, не подскажете, почему действие этого макроса распространяется на все листы книги: если я вставляю или удаляю строку на главном рабочем листе, то и на всех листах книги вставляется или удаляется строка с таким же номером ?

Private Sub CommandButton1_Click()
Dim LastRow As Long, wsh As Worksheet, rng As Range
    
   
    
    
    With ThisWorkbook.Worksheets(1)
         LastRow = ActiveCell.Row
    End With
    
 If Application.Intersect(ActiveCell, ActiveSheet.UsedRange) Is Nothing _
        Or ActiveCell.Row < 6 Then
            MsgBox "    Àêòèâíàÿ ÿ÷åéêà âíå òàáëèöû"
    Else
    
    For Each wsh In ThisWorkbook.Worksheets
        If wsh.Index <= 6 Then
            wsh.Rows(LastRow + 1).Insert Shift:=xlDown
            wsh.Rows(LastRow).Copy wsh.Rows(LastRow + 1)
            On Error Resume Next
            Set rng = wsh.Rows(LastRow + 1).SpecialCells(xlCellTypeConstants)
            On Error GoTo 0
            If Not rng Is Nothing Then rng.ClearContents
            Set rng = Nothing
        End If
    Next

End If


End Sub

Спасибо большое заранее.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

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

Почему действие этого макроса распространяется на все листы книги

потому что так написано в макросе:

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

For Each wsh In ThisWorkbook.Worksheets

цикл выполняется для всех листов в книге.

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

на все листы книги

и, кстати, не на все листы, а только на первые 6:

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

If wsh.Index <= 6 Then

[Serge_Bliznykov]

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

MsgBox " Àêòèâíàÿ ÿ÷åéêà âíå òàáëèöû"

чтобы не было такого безобразия, перед тем как скопировать текст в буфер обмена, попробуйте включить РУССКУЮ раскладку на клавиатуре.

[Semenson]

Большое спасибо за ответ