Копирование с 1-го листа строк отвечающих условиям

[Hugo121]

Sub tt()
    With Sheets(1)
        .UsedRange.AutoFilter 10, "<>"
        .UsedRange.SpecialCells(12).Copy Sheets(2).[A1]
        .AutoFilterMode = 0
    End With
    Application.CutCopyMode = False
End Sub

[SAS888]

Еще вариант:

Sub qq()
    Sheets(1).Copy Sheets(2)
    [J:J].SpecialCells(4).EntireRow.Delete
End Sub

[Робин]

Привет
Ув. Макрописцы, что нужно добавить/изменить в этот код, чтобы обновленные даные, добавлялись в новую таблицу. Причем, только один раз.
И еще, копирование должно осуществляться не выборочно, а копируются все строки, которые внесены в исходную таблицу.
Благодарю за ответ

[Робин]

День добрый

[Hugo121]

Добрый, добрый...
Обновлённые - что это значит?
Все новые данные, или дописанные после уже перенесённых, или старые, но частично изменённые?
Если все новые - то вместо Sheets(2).[A1] сперва определяем последнюю занятую строку, вроде

LastRow = Cells(Rows.Count, 1).End(xlUp).Row

потом используем это значение.
Или в данном случае лучше сразу ячейку:

Set ra = Range("A" & Rows.Count).End(xlUp).Offset(1)

Затем туда и копируем.
Только при первом копировании, если лист чистый - этот способ не подойдёт!
Нужно что-то сперва в A1 записать - например сгенерить шапку.

[Робин]

Блин, нифига не получается. Вместо добавления новых даных на тот же лист, каждый раз создает новый лист. Пробовал по всякому, но все не то что надо выходит.
А что касается:
"Обновлённые - что это значит?
Все новые данные, или дописанные после уже перенесённых, или старые, но частично изменённые?
Если все новые - то вместо Sheets(2).[A1] сперва определяем последнюю занятую строку, вроде", то
Обновлённые это или дописанные после уже перенесённых, или старые, но частично изменённые, либо и то и другое.
Плиз, выручайте.

[Hugo121]

Не, так не пойдёт. Сразу и то, и другое, и третье... И без примера файла с кодом.
Вообще можно сделать примерно так, как Вы хотите - но если у строк есть какие-нибудь ID. Т.е. по ID синхронизируем таблицы - все повторы ID полностью заменяем, новые добавляем, старые (отсутствующие) оставляем (или удаляем, смотря по задаче).

[Робин]

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

[Робин]

Не прикрепился Повтор

[Робин]

Добрый лень
Вот немножко переделал примерчик. Ночью сделал немного не то что надо. Сделал его более наглядным. Макрос удалил, так как он нерестал копировать совсем,и только сбивает с толку.

Повторяюсь, что мне надо.
А надо мне, создать накоительную ведомость с помесячными даными, которые меняются по содержанию, а не по форме.
Прошу прощения за сумбур
Заранее благодарствую за макрос.
И пожалуйста, не воспринимайте это как техзадание