Макрос переноса строки из одного листа в другой

[ссержа]

Здравствуйте уважаемые форумчане! Оч срочно нужна помощь решить задачу (готового не нашёл а на переделку и вникание потратил неделю и толку никакого).
Задача простая (просто я не сталкивался с макросами).
Есть книга с Лист1 Лист2 и т д В листах происходят некие вычисления -данные сводятся в определённую строку (строка одна и та же например №18)
Нужена кнопка (макрос) при нажатии на которую эта строка №18 копировалась на другой лист (например Лист10)этой же книги. Т е такая копка будет в каждом листе с вычислениями (Листы1-5) а строки копироваться из Листов1-5 на Лист10 одна под другой. Перенос с листов 1-5 будет выборочный .Т е не все листы нужно заносить в Лист10. При копировании повторяющейся детали (яч№2 ) нужно присвоить индекс типа "деталь 1"
В перспективе листов с вычислениями будет штук100.И надо будет управление переносом свести в какойто главный лист.Но тут срочность важна поэтому упростил задачу специально...Очень благодарен если кто откликнется...!!!!

[Скрипт]

ссержа, сформируйте Excel-книгу с примерными данными, выложите эту книгу на Форуме и на примере этой книги поясните, какой должен быть результат.

[ссержа]

Сорри вот пимер чего должно получиться.Ещё потом на том листе в который копируются строки тоже макрос переводящий этот список в текстовый формат с разделительными табуляциями (переводить нужно только таблицу -без суммы внизу)

[Скрипт]

ссержа, я сделал кнопки только для двух листов. По аналогии сделайте кнопки для остальных листов.
Данные вставляются на последний лист.
Про выгрузку данных в текстовый файл, я не смотрел.

[ссержа]

Просто супер!! Всё работает !Спасибо огромное лично Вам Скрипт!
Если можно -нужна небольшая доделка.Выяснилось что некоторые листы (которых будет штук 100) ну из которых надо переносить строку будут содержать этих строк до 15штук одна под другой.Т е перенос нужно будет
делать (в общем случае) когда одну строку а когда 15 сразу.Пытаюсь разобраться сам но мало времени....Просто уже надо внедрять всё это...
Заранее благодарен в любом случае

[Скрипт]

ссержа, чтобы упростить написание кодов, я разбил VBA-код на два независимых макроса.
Первый макрос переносит данные с активного листа на последний лист.
Второй макрос - присваивает порядковые номера.

Перед запуском первого макроса, сделайте активной или выделите несколько ячеек в столбце "B" (с клавишей Ctrl не выделяйте), которые нужно скопировать на последний лист.

Для запуска второго макроса, в VBA сделайте следующее:
Tools - References... - Microsoft Scripting Runtime.
Перед запуском второго макроса, просто сделайте активным последний лист.

Чтобы на каждом листе не делать кнопку для вызова макроса, сделайте кнопку на Панели инструментов.

Чтобы поместить коды, которые я выложил, в VBA:

1. разархивируйте коды;
2. перейдите в VBA;
3. File - Import Files...

[deatmach]

Сообщение от Скрипт

ссержа, я сделал кнопки только для двух листов. По аналогии сделайте кнопки для остальных листов.
Данные вставляются на последний лист.
Про выгрузку данных в текстовый файл, я не смотрел.

А можно ли то-же самое , только не одну строку и столбец , а(например выделенное ) несколько строк и столбцов?

[AlexLin]

Добрый время суток!
У меня возникла проблема с макросом переноса строки из одного листа в другой.
А именно макрос работает переносит с "Ввод результатов испытаний" интервал С1:С48 в данные но переносит в столбик, а мне надо в строчку. В "данные" с А4:AP4 и следующие данные с А5:AP5.
?Подскажите пожалуйста как написать макрос.

Sub uuu()
With Sheets("Ввод результатов испытаний").Range("C1:C48")
Sheets("данные").Range("A4").Resize (.Rows.Count, .Columns.Count) = .Value

lr = .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(lr, 1) = Date Then
.Cells(lr, 1).Resize(1, 3) = arr
Else: .Cells(lr + 1, 1).Offset(1, 0).Resize(1, 3) = arr
End If
MsgBox "Сделано"
End With
End Sub