Сложная задача

[asale]

Добрый день.
А как можно сделать, чтобы данные из файла при нажатии кнопки копировались в другой файл. при добавлении новых данных и нажатии кнопки данные не заменялись а дополнялись в файл, т.е. накапливались.
Как это возможно осуществить?

[pashulka]

Посмотрите этот пример, возможно на этот раз, он Вас устроит.

[asale]

То, что нужно.
Огромное спасибо.
pashulka, а как сделать, чтобы копировалисьи столбцы B,C,D.
И еще все это делается, чтобы данные отправлялись от каждой салона продажи (все они в разных местах). Можно сделать также опознование данных салона в конечном файле?

[pashulka]

1. Если последняя заполн. строка может определяться исходя из последней заполн. ячейки столбца "A" или "D", то для копирования данных нескольких столбцов, можно, воспользоваться, например

Range([D2], [A65536].End(xlUp)).Copy …
Range([A2], [D65536].End(xlUp)).Copy …
Range([A2], [A65536].End(xlUp)).Resize(, 4).Copy ...

Если такой подход неприемлем, то для определения последней заполненной строки можно воспользоваться функцией, которая наличествует в последнем примере этой темы (возможно потребуются некоторые непринципиальные изменения)

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

[asale]

спасибо. Попробую разобраться. Решение очень красивое.

Спасибо.

[kzld]

Сообщение от pashulka

Посмотрите этот пример, возможно на этот раз, он Вас устроит.

Интересно конечно. А как изменить макрос, чтобы он копировал всю строку , а не только столбец A ?

[pashulka]

Если последняя заполн. строка может определяться исходя из последней заполн. ячейки столбца "A", то для копирования данных всех столбцов, можно, воспользоваться, к примеру

Range([A2], [A65536].End(xlUp)).EntireRow.Copy …