Страницы: 1
RSS
Копирование данных с помощью макроса.
 
Доброго времени суток. Помогите дописать макрос выполняющий последовательность копирования из одной строки (верхней с данными) в нижнюю. Один раз он копирует. Но хочется, чтобы при следующем нажатии на кнопку "копирование" он копировал текст в следующую строчку ниже. заранее спасибо. (лист-база).
 
Вариант.
 
Код
Sub CopyPaste()
    Rows("2:2").Copy
    lr = Cells(Rows.Count, 5).End(xlUp).Row
    If lr < 8 Then lr = 7
        Cells(lr + 1, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 Application.CutCopyMode = False
   
End Sub

 
Спасибо огромное. Все работает!!!
Страницы: 1
Наверх