Новости:

Новая редакция правил форума: 2.4. Если вопрос или ответ содержится во вложенном файле, все-равно кратко описывайте в сообщении вопрос или суть решения. Это необходимо, чтобы тему можно было найти через поиск.

Главное меню

Макрос вставки строки

Автор Mailo, 26.09.2011, 21:38

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

Mailo

Здравствуйте.Подскажите простой макрос вставки строки.Знаю что тема заезженная.Но во всех макросах что я видел,строка вставляется или пустой,или копируется активная строка и вставляется,или вставляется строка в конец таблицы.
Мне же необходимо следующее:Ставлю курсор в любую ячейку таблицы.Жму кнопку "Вставить".Строка вставляется со здвигом вниз.И во вставленную строку копировалась строка 5 из листа Журнал_рег.
Спасибо!!!

_Boroda_

Где-то так
Sub Макрос3()
If Selection.Rows.Count > 1 Then Exit Sub
r_ = Selection.Row
    Sheets("Журнал_рег").Rows(5).Copy
    Rows(r_).Insert Shift:=xlDown
    Application.CutCopyMode = False
End Sub
Скажи мне, кудесник, любимец ба'гов...



Яндекс-деньги: 41001632713405
Webmoney: R289877159277; Z102172301748; E177867141995

Mailo

Спасибо.То что надо.