Доработать макрос который вставляет скопированные ячейки.

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Доработать макрос который вставляет скопированные ячейки. (Макросы/Sub)

Chelovekov

Дата: Четверг, 07.01.2021, 09:31 | Сообщение № 1

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

Ранг: Обитатель

Сообщений: 310

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

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

Excel 2016

Здравствуйте, Гуры Екселя. Прошу, Вас доработать макрос, которые копирует данные с одной таблицы и вставляет в другую таблицу, в следующую пустую ячейку. И проблема состоит в том что если удалить данные из таблицы, куда вставляются, скопированные данные, то он, вместо того, что бы начать вставлять, данные сначала, продолжает вставлять в следующую ячейку, после последней заполненной строки.
Файл пример прикрепляю.
Спасибо.
[vba]

Код

Sub Макрос1()
    Application.ScreenUpdating = 0
    Range("A2:D2").Copy
    Sheets("Таблица").Range("A" & Range("Таблица1[#All]").Rows.Count + 1).Resize(1, 4).PasteSpecial (xlPasteValues)
    Application.CutCopyMode = 0
    Application.ScreenUpdating = 1
End Sub

[/vba]

К сообщению приложен файл: 6253336.xlsm (18.9 Kb)

Ответить

Pelena

Дата: Четверг, 07.01.2021, 13:48 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19182

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

Замечаний: ±

Excel 365 & Mac Excel

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

Цитата Chelovekov, 07.01.2021 в 09:31, в сообщении № 1 ()

если удалить данные из таблицы

Вы действительно удаляете строки из таблицы или очищаете данные? Если очищаете данные, то во всей таблице или выборочно? То есть достаточно ли проверить, что первая ячейка пуста, и тогда начинать запись с первой строки?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Chelovekov

Дата: Четверг, 07.01.2021, 14:37 | Сообщение № 3

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

Ранг: Обитатель

Сообщений: 310

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

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

Excel 2016

Здравствуйте.
Алгоритм такой :
1. Копируем данные с таблицы.
2. Вставляем скопированные данные в другую таблицу.
3. Далее, все последующие данные вставляются в следующую строку, после уже заполненной, то есть по порядку.
4. Если я сам очищаю таблицу с скопированными данными, то макрос опять начинает вставлять данные с первой строки.

Спасибо.

Ответить

Pelena

Дата: Четверг, 07.01.2021, 15:31 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 19182

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

Замечаний: ±

Excel 365 & Mac Excel

как поняла

К сообщению приложен файл: 1751588.xlsm (20.8 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Chelovekov

Дата: Четверг, 07.01.2021, 15:58 | Сообщение № 5

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

Ранг: Обитатель

Сообщений: 310

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

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

Excel 2016

Спасибо огромное hands

С Рождеством, дай бог Вам и вашим близким здоровье и всех благ.

Ответить

RAN

Дата: Четверг, 07.01.2021, 16:45 | Сообщение № 6

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

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

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

2010

Я вот по файлу из №1 не понял. Но, если Pelena поняла правильно, то так
[vba]

Код

Sub Мяу()
    With Sheets("Таблица").ListObjects("Таблица1")
        .Range.Rows(1).Offset(.ListRows.Count + 1).Value = Range("A2:D2").Value
    End With
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

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