В конце месяца макросом разбросать данные по ФИО в архив с накоплением

[kmcrda@ukr.net]

Нужна помощь. Наперед спасибо. Суть вопроса. После завершения внесения в рабочую таблицу данных по всем ФИО (до 150 человек) в конце месяца макросом разбрасать данные в архив. И так каждый месяц.

[сфинкс]

Эксцель - Вид - Макросы - Запись макроса

Подсветить - Копировать - Архив - Ячейка - Вставить

и после 3-ёх операций завершить запись и получится:

Sub Arxiv()
    Sheets("Рабочая табл").Select
    Range("D5:S5").Select
    Selection.Copy
    Sheets("Архив").Select
    Range("D6").Select
    ActiveSheet.Paste
    
    Sheets("Рабочая табл").Select
    Range("D6:S6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Архив").Select
    Range("D19").Select
    ActiveSheet.Paste
    
    Sheets("Рабочая табл").Select
    Range("D7:S7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Архив").Select
    Range("D100").Select
    ActiveSheet.Paste
End Sub

Наверняка ячейки вставки очевидны и редактируя макрос хоть в блокноте
всё упорядочится

Зато подумайте: нужен ли макрос
или проще вставить формулы в ячейки "Архив" ссылаясь на другие листы

Плюс реальна таблица форматирующая макрос

[kmcrda@ukr.net]

Спасибо. Но я наверняка не верно изложил суть вопроса. Есть Рабочая книга которая ежедневно наполняется данными за соответствующий месяц и год. ФИО также могут изменяться, (добавляться) в течение месяца или года. После завершения внесения данных нужно разнести макросом (если можно то формулами) в книгу Архив по ФИО в соответствующий месяц и год. Если можете, то помогите. Я писать макросы не умею. Спасибо.

[Aleksandr H.]

Давайте напишем такой макрос, не вопрос.

"книга которая ежедневно наполняется данными за соответствующий месяц и год". Зачем, Карл? Почему не раз на месяц, 1го числа лютого за січень?

[сфинкс]

исходная таблица содержит архив и 1 лист
хотя видимо листов закладок много и лучше бы включили в вопрос

тогда тем более подумайте про формулы внутри ячеек в архиве
без макроса иначе любой макрос одноразовый

архив д6 нажать = и перейти в лист и щёлк и получаем
='Рабочая табл'!D5
и растягиваем вправо мышкой за уголок
д59
='Рабочая табл'!D6
и тоже растягиваем

причём всё контролируется без макроса и даже без знаков $

плюс внедряется проверка: совпали фио и месяц и год пишем мол всё ок

[kmcrda@ukr.net]

нет вариант ручного копирования не подходит ( это тоже самое что Ctrl+C(+V)), очень большой объем работы и трата времени

[kmcrda@ukr.net]

Кто может помочь? макрос не корректно работает, при смене года в рабочей таблице

[Aleksandr H.]

надо наверное не только строку 2024 добавлять, но и 12 месяцев года тоже. Формат листа АРХИВ не соотвествует норме

[IgorGO]

Сообщение от kmcrda@ukr.net

нет вариант ручного копирования не подходит

вам тратить время на ручное копирование - вариант не подходит
если кто-то потратит время на написание макроса - такой вариант вам подходит?

[сфинкс]

допустим таблица из формул с контролем
тогда при "мы нажали и всё пропало": щёлк формулы и расширят

допустим сочинили макрос
тогда при "мы нажали и всё пропало": переписывать... макрос ?