Здравствуйте,прошу помочь с формулой: как сделать так, чтобы сумма на конец сегодняшних суток с Листа1 переносилась на Лист2 в столбец В в ту строчку,которая соответствует сегодняшней дате и не изменялась при переходе на завтра. Иными словами-сегодня(12.04.2018) сумма 1000,а завтра, если кто-то принес деньги,то сумма изменится на это значение.
Здравствуйте,прошу помочь с формулой: как сделать так, чтобы сумма на конец сегодняшних суток с Листа1 переносилась на Лист2 в столбец В в ту строчку,которая соответствует сегодняшней дате и не изменялась при переходе на завтра. Иными словами-сегодня(12.04.2018) сумма 1000,а завтра, если кто-то принес деньги,то сумма изменится на это значение.klf
Private Sub Workbook_BeforeClose(Cancel As Boolean) Set r = Sheets(2).Range("A:A").Find(Date) If Not r Is Nothing Then r.Offset(0, 1).Value = Sheets(1).Cells(11, 4).Value End Sub
[/vba]
Добрый день. [vba]
Код
Private Sub Workbook_BeforeClose(Cancel As Boolean) Set r = Sheets(2).Range("A:A").Find(Date) If Not r Is Nothing Then r.Offset(0, 1).Value = Sheets(1).Cells(11, 4).Value End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
