Страницы: 1
RSS
Макрос скопировать выделенные строки из одной таблицы в другу таблицу
 
Здравствуйте нужна помощь. Мне нужно скопировать выделенные строки из одной таблицы в другу таблицу, на конкретный лист в последнюю не заполненную ячейку. Вот нашел  макрос
Код
Sub transponir22() ' переносим файлы в общий отчет
Dim x1 As Long, rn As Range
Set rn = Cells(ActiveCell.Row, 1).Copy
Workbooks.Open Filename:="D:\Данные\Хранение.xlsm" ' открываем файл отчета
x1 = Cells(Rows.Count, 1).End(xlUp).Row + 1
Range(Cells(x1, 1), Cells(x1 + rn.Rows.Count - 1, 1)).NumberFormat = "@"
Range(Cells(x1, 1), Cells(x1 + rn.Rows.Count - 1, rn.Columns.Count)).Value = rn.Value
ActiveWorkbook.Close 1 'закрываем с сохранением
End Sub

Но он копирует конкретную строку из одной таблицы, на лист в котором было последнее сохранение
Изменено: Lerik2020 - 26.02.2020 01:21:14
 
Всё разобрался
это
Код
Set rn = Cells(ActiveCell.Row, 1).Copy
заменил на
Код
Set rn = Selection.EntireRow

Страницы: 1
Наверх