ВПР или макрос

[amadeus017]

Доброго времени суток, уважаемые форумчане!
Обращаюсь к вам с просьбой, подсказать с формулой ВПР, не могу сообразить, как СЦЕПИТЬ значение столбцов A;B;C на Листе2, и найти схожее совпадение на Листе1, проставив фамилию водителя, в столбик D.
Или есть иная формула, а не ВПР?

что-то пытался сделать с функцией ВПР, результат негативный
ВПР(СЦЕПИТЬ(A3;B3;C3);Лист1!сцепить (Лист1!A2;Лист1!B2;Лист1!C2):Лист1! D;2;0)

[gling]

Ест вариант, но не с ВПР. Для ВПР с моими знаниями нужен доп столбец.

[AleksandrH]

Function NewVlookup(data As Date, Point As String, Product As String) As String
    Dim r As Long, i As Long
    NewVlookup = "Data Not Found"
    With Sheets(1)
    r = .Cells(.Cells.Rows.Count, 1).End(xlUp).Row
    For i = 2 To r
        cs = .Cells(i, 1) & .Cells(i, 2) & .Cells(i, 3)
        css = data & Point & Product
        If .Cells(i, 1).Value = data And .Cells(i, 2).Value = Point And .Cells(i, 3).Value = Product Then
            NewVlookup = .Cells(i, 4)
            Exit Function
        End If
    Next
    End With
End Function

[Hugo121]

Не понимаю - зачем в коде строка

cs = .Cells(i, 1) & .Cells(i, 2) & .Cells(i, 3)

только время ворует...

[AleksandrH]

Пардон, ето для меня при отладке.
Строки

cs = .Cells(i, 1) & .Cells(i, 2) & .Cells(i, 3)
        css = data & Point & Product

не нужны

[amadeus017]

Прошу прощения, я с макросами на "Вы", думал, что просто скопировал код, нажал Alt+F11, вставил код в "книгу" и можно через Alt+F8, вызвать макрос и пользоваться... Но чуда, не произошло.

[AleksandrH]

я тоже, но предлагаю слегка подчудить и на листе Лист2 в ячейку D4 вписать

=NewVlookup(A4;B4;C4)

и нажать Ентер

[Hugo121]

Но сперва код (без этих двух лишних строк) закопипастить в СТАНДАРТНЫЙ модуль этой книги, или надстройки, или любой другой (но тогда искать функцию в списке "определённых пользователем" мастером).

[amadeus017]

Большое спасибо!!! Все получилось!
Попробовал макросом (функцией) и вместо ВПР, ИНДЕКСом, как в примере от gling. В индексе, я заметил, что если не ставить дату на Листе2, то выбирается первое значение с Листа1, т.е., если столбики поменять местами, то функция может не сработать, да? Надо будет попробовать... Однако, сейчас задача решена, за что примного благодарен!!!

[amadeus017]

И снова, как говорится, здравствуйте!
Попробовал на практике функцию ИНДЕКС и "NewVlookup", все работает, но в графе где хотелось бы получить данные (перенес в графу F и прикрепил новый файл), остается руками написанная функция, а не значение как при макросе.
Прошу подсказать, встречал кто-то уже подобный код?