Копирование строки на другой лист "ориентируясь" по значению ячейки

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

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

22.05.2018 08:28:03

Добрый день, друзья!

Есть книга, в ней 2 листа.
На листе 1 а ячейке (A1) через функцию "СЕГОДНЯ()" стоит дата. Также есть диапазон данных (A3:E3).
На листе 2 есть диапазон дат (A1:A10).

Есть ли возможность, сделать так, чтобы ряд данных с листа 1, копировался на лист 2 в ту строку, в которой дата совпадает с датой на листе 1. Т.е. дата остается, копирование осуществляется со столбца B.
В идеале, чтобы это происходило автоматически. Открывается книга, дата прописывается на листе 1, строчка копируется на лист 2.

Набросал примерчик, чтобы была понятнее.

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

пример.xlsx (9.28 КБ)

yozhik

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

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

22.05.2018 09:25:40

Код
Private Sub Workbook_Open() Worksheets("Лист1").Range("B3:E3").Copy Worksheets("Лист2").Range("B" & Worksheets("Лист2").Columns(1).Find(Date).Row) End Sub

kukhmaster Пользователь Сообщений: 20 Регистрация: 16.04.2018	#3 22.05.2018 09:34:08 yozhik,немного не то. Нет ориентации по дате на листе 1 Изменено: kukhmaster - 22.05.2018 10:02:14

Karataev

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

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

22.05.2018 19:20:41

Код

Private Sub Workbook_Open()
    Dim shSrc As Worksheet, shRes As Worksheet
    Dim r As Long
    
    Set shSrc = Worksheets(1)
    Set shRes = Worksheets(2)
    r = WorksheetFunction.Match(CDbl(shSrc.Range("A1").Value), shRes.Columns("A"), 0)
    shRes.Cells(r, "B").Resize(, 5).Value = shSrc.Range("A3:E3").Value
End Sub

kukhmaster Пользователь Сообщений: 20 Регистрация: 16.04.2018	#5 13.08.2019 09:43:46 Всем огромное спасибо - помогли!