Перенос значений на другой лист по заданной дате

@mitox76 · Регистрация: 12.03.2018

Author24 — интернет-сервис помощи студентам

День добрый. Столкнулся с вопросом переноса данных из ячейки одного листа в ячейку на другой лист - ответ на него нашел:

Visual Basic

Sub test()
Application.ScreenUpdating = False
Range("b4").Copy
With Sheets("2").Range("g10")
    .PasteSpecial Paste:=xlPasteValues
End With
 
With Application
    .ScreenUpdating = False: .CutCopyMode = False
End With
End Sub

Но не смог найти ответ на вопрос когда значение ячейки (B4) с одного листа (1) нужно перенести на другой лист (2) исходя из заданной на листе (1) даты (I1). Во вложенном файле на листе (1) дата 04.01.2019 - нужно чтобы на лист (2) значение перенеслось в указанную дату. Данные на листе (1) заполняются каждый день и каждый день мне их нужно переносить на лист (2) по дате.
По аналогии необходимо переносить и значения B8 и C8 на лист (2) (подсветил цветом).

Буду благодарен за помощь. Файл прикладываю.

@Alex77755 · 05.01.2019, 14:04

макрос

	05.01.2019, 14:04