Новости:

Подпишитесь на рассылку новых сообщений форума через службу рассылок: Subscribe.ru

Главное меню

макрос добавить строки

Автор хочу_все_знать, 30.05.2014, 16:03

« назад - далее »

хочу_все_знать

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

Serge 007

А где нужно?
Как Вы это собираетесь указывать?
Бесплатная помощь: www.excelworld.ru
Платная помощь: sergeyizotov@excelworld.ru
Ю-money: 41001419691823 | WMR:126292472390

хочу_все_знать

#2
На листе есть шапка (название материалов) строка 5-8, их нужно скопировать в тот же лист, но добавлять над выделенной строкой.
Указывать собираюсь комбинацией клавиш Ctr+Q.

cheshiki1

ЦитироватьНа листе есть шапка (название материалов) строка 5-8
У нас ни листа ни шапки. :) Файл приложите с описанием что куда согласно файла.

хочу_все_знать

Может я не правильно объясняю, извините  :-\
Просто не охота постоянно копировать\вставить скопированные ячейки, хотелось бы автоматизировать процесс.

Вот пример бланка:

cheshiki1

в модуль книги
Private Sub Workbook_Open()
Application.OnKey "^q", "Макрос4" 'ctrl+q(значек^)
End Sub

в модуль
Sub Макрос4()
    Range(ActiveCell, ActiveCell.Offset(3, 0)).EntireRow.Insert
    Range("A5:G8").Copy
    Cells(ActiveCell.Row, 1).PasteSpecial
    Application.CutCopyMode = False
End Sub
Как то так.

хочу_все_знать

Спасибо огромное, 5 лет мучился, неудобно спросить было. :D

Hugo121

Тысячи/миллионы живут и не мучаются... Потому что не знают про макросы :)
А по делу - ещё нужно бы
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "^q"
End Sub

Или даже при активации/деактивации книги производить эти процедуры.
Иначе и на других книгах будет пытаться сработать.
webmoney: E265281470651 Z422237915069