Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
макрос на повторение
 
#1
28.01.2013 12:20:26
Есть макрос, подскажите пожалуйста какую нужно добавить команду что бы данный макрос запускался столько, сколько стоит в определенной ячейке ( то есть кол-во повторов по значению из ячейки) .

Sub Копи_строк()
'
' Копи_строк Макрос

   Rows("15:15").Select
   Selection.Copy
   A_LastRow = Cells(Rows.Count, 1).End(xlUp).Select + 1
   Selection.Insert Shift:=xlDown

End Sub
 
 
 
#2
28.01.2013 12:53:58
В какой ячейке находится значение количества повторов?
 
 
 
#3
28.01.2013 12:56:10
H1
 
 
 
#4
28.01.2013 12:56:56
Наверное, задача не многократно выполнить макрос, а вставить столько строк, сколько указано в ячейке. Правильно?
 
 
 
#5
28.01.2013 13:03:12
Попробуйте так:
Код
Sub Макрос1()
Rows(15).Resize([H1]).Insert
End Sub
 
 
 
#6
28.01.2013 13:03:19
Пробуйте следующий макрос

Sub Копи_строк()
   Dim i As Long
   If IsNumeric([H1].Value) Then
       Application.ScreenUpdating = False
       For i = 1 To [H1].Value
           Rows("15:15").Copy
           Rows(Cells(Rows.Count, 1).End(xlUp).Row + 1).Insert shift:=xlDown
       Next i
       Application.CutCopyMode = False
       Application.ScreenUpdating = True
   End If
End Sub
 
 
 
#7
28.01.2013 13:04:59
задача скопировать строку с формулами, значениями и вставить ее под скопированную строку столько раз сколько будет стоят в  ячейке H1
 
 
 
#8
28.01.2013 13:10:22
Кросс - http://www.programmersforum.ru/showthread.php?t=226388
И ответ HUGO - там же...
Изменено: Z - 28.01.2013 13:11:33
"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)
 
 
 
#9
28.01.2013 13:14:35
cu-rock, а чем Вас не устроил ответ, данный по ссылке, которую показал Z?
 
 
 
#10
28.01.2013 13:20:36
в первую очередь читал этот форум.
Спасибо Bond все работает супер.
 
 
 
#11
28.01.2013 13:24:45
В 12:09 там уже был первый ответ. Здесь Вы создали сообщение в 12:20. Двое людей на programmersforum напрасно потратили на Вас СВОЁ время. Для приличия отпишитесь там...
 
 
 
#12
28.01.2013 13:28:56
извиняюсь за беспокойство (больше не буду постить на двух форумах), отпишусь Юрий М, еще раз спасибо.
Изменено: cu-rock - 28.01.2013 13:29:19
 
 
 
#13
28.01.2013 13:46:45
Да постить никто не запрещает - просто информируйте об этом.
 
 
 
Страницы: 1
Наверх