Макрос изменения количества строк в таблицах на двух листах книги одновременно

[timda81]

Здравствуйте!
Помогите разобраться со ссылками на другой лист, они не правильно сдвигаются при добавлении строк. Обновленный файл пример в моем сообщении от 01.06.2012 13:42

[sulfur]

скиньте лист в том состоянии, когда там еще не было ошибки. Чтобы я мог нажать на кнопку и получить вашу ошибку. Иначе мне не проверить в какой момент и из за чего она происходит. Может это вы сами формулу "=3!Q10" подставили, я ж не знаю

[timda81]

Вот выкладываю исправленный файл, хотя предыдущий я тоже тестировал все было нормально, так же учел пожелание сохранить изначальную структуру, хотя мне кажется в этом необходимости нет, так как первый 2 строки не попадают под воздействие макроса и в них можно посмотреть всю начальную структуру.

[sulfur]

исправьте вот так:

Public Sub ADDButton()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationAutomatic
    Dim i As Integer
    For i = 3 To 2 Step -1
        Call ADDRegim(i)
    Next i
    ThisWorkbook.Sheets(i + 1).Activate
    Application.ScreenUpdating = True
End Sub
Sub ADDRegim(shtNum As Integer)

дело в том, что сначала надо вставлять строки на третьем листе. Иначе и происходит сдвиг. При пошаговой отладке это видно

[timda81]

Sulfur! спасибо за помощь!

[timda81]

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

исправьте вот так:

Public Sub ADDButton()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationAutomatic
    Dim i As Integer
    For i = 3 To 2 Step -1
        Call ADDRegim(i)
    Next i
    ThisWorkbook.Sheets(i + 1).Activate
    Application.ScreenUpdating = True
End Sub
Sub ADDRegim(shtNum As Integer)

дело в том, что сначала надо вставлять строки на третьем листе. Иначе и происходит сдвиг. При пошаговой отладке это видно

sulfur, сразу не заметил, что это в итоге не помогло, прикладываю вариант, как мне кажется рабочий, я уже с этим файлов столько промучался, что уже и до конца не уверен)))