Макрос: Копирование значений листа «Сегодня» в «Архив».

Макрос: Копирование значений листа «Сегодня» в «Архив»., Кнопкой, переместить строки рабочего листа, в лист архивный.

Пользователь

Сообщений: 6 Регистрация: 11.08.2022

11.08.2022 20:37:30

Здравствуйте! Пожалуйста, помогите.

Задача:
Кнопкой, перенести данные с основного, рабочего листа в архивный.
Пробовала разные макросы использовать по данной теме, читала форумы, статьи, но у меня ни чего не получилось.

Есть лист1 «Сегодня», в котором работаю каждый день, заношу данные. В конде дня копирую всё заполненные строки в Лист2 «Архив». Потом кнопкой делаю сброс, очищаю рабочий лист1, для нового дня.

Хотела сделать кнопку, которая бы архивировала и стразу отчищала рабочий лист.

DANIKOLA

Пользователь

Сообщений: 502 Регистрация: 17.08.2019

11.08.2022 21:39:46

Здравствуйте Мария Филипова, вот пробуйте.

Код

Sub clean_tab()
    Range("B4" & ":" & "B" & Range("C4").End(xlDown).Row, Range("N4")).ClearContents
End Sub
Sub CopyData()
    Range("B4" & ":" & "B" & Range("C4").End(xlDown).Row, Range("N4")).Copy _
    Sheets("Архив").Range("B3").End(xlDown).Offset(1, 0)
End Sub

Прикрепленные файлы

ТЕСТ+.xlsm (49.89 КБ)

Мария Филипова Пользователь Сообщений: 6 Регистрация: 11.08.2022	#3 11.08.2022 22:11:56 Огромное вам спасибо! Честное слово, так рада, что вы мне помогли. Второй день пытаюсь разобраться, так устала. Спасибо, что нашли время, я это очень ценю.