Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макросом создать заданное количество таблиц
 
#1
20.10.2020 11:49:09
Здравствуйте, помогите с такой проблемкой. Макросом копируется таблица с листа "Груша"на лист "Яблоко", таблицы располагаются друг под другом, таких таблиц может быть n-количество. Каждая таблица занимает 30 строк, не нужные строки скрыты. Как можно макросом создать заданное количество таблиц, например запускаешь макрос, всплывает форма, где указываешь сколько нужно создать таблиц, жмешь "ok", и он создает эти таблицы друг под другом. В маем случае макрос запускается, только с таблицы "Яблоко", и только со столбца "A".Очень большое количество таблиц приходиться создавать.
 
 
 
#2
20.10.2020 11:52:05
Цитата
Alex32 написал:
В маем случае макрос запускается, только с таблицы "Яблоко",
а должно как?
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#3
20.10.2020 11:59:28
запускаешь макрос, всплывает форма, где указываешь сколько нужно создать таблиц, жмешь "ok", и он создает эти таблицы друг под другом.  
 
 
 
#4
20.10.2020 12:00:09
Alex32, где находится таблица яблоко?
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#5
20.10.2020 12:03:26
Цитата
Alex32 написал:
Макросом копируется таблица с листа "Груша"на лист "Яблоко"
 
 
 
#6
20.10.2020 12:56:33
нужно на всех листах создать или на одном?
Изменено: Mershik - 20.10.2020 12:56:59
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#7
20.10.2020 13:07:45
На листе яблоко
 
 
 
#8
20.10.2020 13:08:25
Alex32, все равно что-то темное)
Код
Sub copy_n()
Dim n As Long, lr As Long, i As Long
n = Application.InputBox("Укажите сколько таблиц вы хотите создать? (ЦЕЛОЕ ЧИСЛО)", Type:=1)
For i = 35 To n * 30 Step 30
    Range("5:34").Copy Destination:=Rows(i)
Next i
End Sub
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#9
20.10.2020 13:38:53
Да,Спасибо большое, то что нужно. А можно сделать, чтобы копировал таблицу с листа "Груша", И можно продолжить создание таблиц, например создал 100 таблиц, ввел данные, а потом необходимо создать еще 300. Получается нужно будет пересоздавать?
 
 
 
#10
20.10.2020 13:50:40
Alex32,
Код
Sub copy_n()
Dim n As Long, lr As Long, i As Long
n = Application.InputBox("Укажите сколько таблиц вы хотите создать? (ЦЕЛОЕ ЧИСЛО)", Type:=1)
X = Range("A1").SpecialCells(xlLastCell).Row
For i = X To (n - 1) * 30 + X Step 30
    Worksheets("Груша").Range("3:33").Copy Destination:=Rows(i)
Next i
End Sub
Изменено: Mershik - 20.10.2020 13:50:53
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#11
20.10.2020 14:29:39
Спасибо ещё раз то что нужно
 
 
 
#12
20.10.2020 19:36:58
Пришлось заменить это
Цитата
Mershik написал:
X = Range("A1").SpecialCells(xlLastCell).Row
т.к после удаления и при повторном создании таблицы, макрос добавляет с той строки на которой закончил
заменил на это
Код
ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count
Пояснение здесь КАК ОПРЕДЕЛИТЬ ПОСЛЕДНЮЮ ЯЧЕЙКУ НА ЛИСТЕ ЧЕРЕЗ VBA? Может кому то пригодиться.
 
 
 
Страницы: 1
Наверх