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

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Копирование диапазона с одного листа на другой лист (Макросы/Sub)

Raven2009

Дата: Понедельник, 02.12.2019, 16:45 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 151

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Добрый день.

Есть умная таблица, содержимое которой нужно скопировать на соседний лист Stock. Каждое новое копирование должно происходить на новую пустую строку, там тоже умная таблица)

Но только в 1ой ячейке второй таблицы должны проставлять дата и время при копировании, т.е. Now().

Подскажите пож-ста как правильно написать? Я скопировал макрос из другой темы, но он пишет только одну строку из первой таблицы

К сообщению приложен файл: 8185617.rar (24.6 Kb)

Ответить

Kuzmich

Дата: Понедельник, 02.12.2019, 17:14 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 714

Репутация: 157 ±

Замечаний: 0% ±

Excel 2003

Цитата

он пишет только одну строку из первой таблицы

[vba]

Код

ObjStk.DataBodyRange.Cells(LastRow, 1).Resize(objInb.ListRows.Count, 3) = objInb.DataBodyRange.Value

[/vba]

Ответить

Raven2009

Дата: Понедельник, 02.12.2019, 17:30 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 151

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Спасибо вам большое! пишет всю таблицу, но в первой колонке в таблице нужно написать Now().

Я сделал так и все получилось))

[vba]

Код

ObjStk.DataBodyRange.Cells(LastRow, 1).Resize(objInb.ListRows.Count, 1) = Now()
ObjStk.DataBodyRange.Cells(LastRow, 2).Resize(objInb.ListRows.Count, 3) = objInb.DataBodyRange.Value

[/vba]

Ответить

Копирование диапазона с одного листа на другой лист (Макросы/Sub)

Страница 1 из 1
1