Перенос значений в нужные столбцы по условию "Дата"

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

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

27.09.2019 17:13:09

Уважаемые форумчане! Помогите решить такую практическую задачу: есть план платежей - таблица. В ней столбик с суммами платежей за сегодня по типам платежей (построчно). Поскольку начальство запросило сохранение данных после окончания платежного дня, захотел упростить себе работу и создать кнопку, при нажатии на суммы сегодняшних платежей переносятся в ячейки справа (от 1 до 31, по дням в зависимости от даты =Сегодня() ), а сам столбик с с суммами дневных оплат очищается.
Во есть, в идеале так: в течение дня в столбик построчно вносятся суммы оплат, в конце дня нажимается кнопка-срабатывает макрос, которые строчки оплат из ежедневных переносит в столбцы датам. То есть, если сегодня 07.09, то в столбец с заголовком 7.

Надеюсь, не очень сумбурно написал. Прикрепляю табличку для примерной визуализации процесса.
Всем спасибо за помощь и подсказки!

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

Книга1.xlsx (8.56 КБ)

Изменено: YuryFJ - 30.09.2019 12:52:41

Пытливый Пользователь Сообщений: 4714 Регистрация: 22.12.2012	#2 27.09.2019 17:26:41 Что делать со столбцом с повелительным названием "нужно оплатить"? Очищать? Кому решение нужно - тот пример и рисует.

YuryFJ Пользователь Сообщений: 5 Регистрация: 09.04.2014	#3 30.09.2019 08:58:11 Спасибо за внимание к посту! Нет, эти суммы не меняются и нужны для сравнения суммы фактических оплат с планом.

_Igor_61

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

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

30.09.2019 09:22:09

Код
Sub Perenos() Dim lD&, i lD = Left(Date, 2) For i = 9 To Cells(Rows.Count, 4).End(xlUp).Row Cells(i, lD + 5).Value = Cells(i, 4).Value Cells(i, 4).ClearContents Next i End Sub

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

Книга1_1.xlsm (15.91 КБ)

Изменено: _Igor_61 - 30.09.2019 09:28:01

YuryFJ

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

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

30.09.2019 10:22:31

Игорь, спасибо огромное! Я обратил внимание, что в тексте макроса фигурирует функция Date. Правильно ли я понимаю, что Макрос не завязан никак на ячейку с формулой =Сегодня()? В качестве теста я попробовал поменять вручную содержание на 15.08.2019, но при выполнении Макрос все равно распознал дату как 30.09

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#6 30.09.2019 12:10:54 Название темы общее. Уточните, предложите новое. Модераторы заменят.

_Igor_61 Пользователь Сообщений: 3007 Регистрация: 18.07.2016	#7 30.09.2019 12:43:19 Замените Date на Cells(4,3).Value Название темы: "Перенос значений в нужные столбцы по условию "Дата"