Здравствуйте! Совсем недавно стала знакомиться с макросами и поэтому постоянно возникают трудности. Моя задача заключается в следующем... Есть некая таблица, она состоит из 7 строк. Но эти 7 строк будут постоянно повторяться, и количество таких вот блоков по 7 строк будет увеличиваться в зависимости от того, сколько потребуется в том или ином случае.
вставлять эти блоки у меня получается. Я копирую со скрытого листа уже отформатированный как надо шаблон и вставляю непосредственно на рабочий лист в конец таблицы. Проблема заключается в том, что мне хотелось бы отследить последнюю строчку после таблицы, хотелось бы знать номер строки, куда она переместилась. Этот номер я тоже отображаю на скрытом листе.
В предыдущих моих работах с таблицами мне приходилось с помощью макросов вставлять или удалять только одну строчку. Там все работало. Я нажимаю на кнопку, вставляю строчку и последняя строка сдвигается, ее номер на скрытом листе изменяется.
Не получается разобраться почему же такой фокус не выходит с копированием не одной строки, а диапазона. Извините, может не очень понятно объяснила(( Старалась как можно подробнее. Заранее благодарю!!
Это мой макрос для копирования диапазона:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Sub ДобБлок()
Dim kol As Integer, i As Integer, R1 As Range
kol = 9
Set R1 = Sheets("RAB").Range("A7:S13")
i = Sheets("RAB").Cells(23, 2).Value
If i < 19 Then Exit Sub
ActiveSheet.Unprotect
With Sheets("Форма 17")
R1.Copy
End With
Rows(i).Select
Selection.Insert Shift:=xlDown
ActiveSheet.Unprotect
Range(Rows(i), Rows(i + kol - 1)).EntireRow.Hidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFiltering:=True
End Sub
Учимся использовать тэги оформления кода -
FAQ
