Перенос данных с одного листа на другой по определенным условиям

[disneska]

Всем привет. Мало надежд, что кто-то захочет помочь, но все же попробую,
Уже давно пытаюсть упростить одну задачу но никак не могу.(пытался адаптировать уже готовые коды - не получается)
Есть два листа, реестр и письмо на отгрузку, нужно вставлять определенные данные с реестра в письмо на отгрузку, условия по которым вставлять выделил желтым.
В примере все станет понятно какие данные и куда.

Заранее Спасибо!

[Hugo121]

Думаю проще использовать UDF, например ВПР2()/VLOOKUP2()
Если я конечно правильно понял... Но не понял откуда дыры и зачем беспорядок...
Вот результат: http://prntscr.com/vrcqd4
И можно в код добавить ещё и проверку даты, если это нужно.
Код у меня такой в надстройке:

Function VLOOKUP2(Table As Variant, SearchColumnNum As Long, SearchValue As Variant, _
                n As Long, ResultColumnNum As Long)
    Dim i As Long, iCount As Long
    If TypeName(Table) = "Range" Then Table = Intersect(Table.Parent.UsedRange, Table).Value
    VLOOKUP2 = ""
    For i = 1 To UBound(Table)
        If Table(i, SearchColumnNum) = SearchValue Then iCount = iCount + 1
        If iCount = n Then
            VLOOKUP2 = Table(i, ResultColumnNum)
            Exit For
        End If
    Next i
End Function

[disneska]

Hugo121,
Добрый день Hugo121!

Большое спасибо за вашу помощь, UDF отлично подходит здесь, я сам пытался сделать индекс и впр но не понимал как это реализовать.

Ещё несколько вопросов с вашего позволения:
Столбцы получатель, габариты подтягиваем с помощью ВПР ? у меня так получилось.

По дате поиск тоже очень нужен, но сам не могу добавить в эту функцию( это с помощью поискпоз ?

Дыры это чтобы было удобнее читать информацию, разделять заказы по клиентам, можно и без дыр , сделаю форматирование наверное.

Спасибо!

[Hugo121]

для номера накладной и тянуть вправо и вниз:
=VLOOKUP23(Реестр!$A:$N;10;$K$9;14;$K$11;СТРОКА()-14;СТОЛБЕЦ()-1)
код:

Function VLOOKUP23(Table As Variant, SearchDateColumnNum As Long, SearchDateValue As Variant, SearchColumnNum As Long, SearchValue As Variant, _
                 n As Long, ResultColumnNum As Long)
    Dim i As Long, iCount As Long
    If TypeName(Table) = "Range" Then Table = Intersect(Table.Parent.UsedRange, Table).Value
    VLOOKUP23 = ""
    For i = 1 To UBound(Table)
        If Table(i, SearchDateColumnNum) = SearchDateValue Then
            If Table(i, SearchColumnNum) = SearchValue Then iCount = iCount + 1
            If iCount = n Then
                VLOOKUP23 = Table(i, ResultColumnNum)
                Exit For
            End If
        End If
    Next i
End Function

[Hugo121]

Сообщение от disneska

Hugo121,
Столбцы получатель, габариты подтягиваем с помощью ВПР ? у меня так получилось.

можно конечно и так тянуть по номеру накладной, но я сразу всё делаю этой одной функцией, для того там в аргументах прописано
СТРОКА()-14;СТОЛБЕЦ()-1

[Hugo121]

И кстати если делать первым вариантом, но тянуть только номер накладной, а дату проверять например с помощью ВПР - то можно добиться дыр у тех, кто не подходит по дате.
И наоборот - тянем по дате, проверяем доставку - тоже будут дыры.

[disneska]

Hugo121

Огромное спасибо за помощь!
Теперь, кажется, этого мне достаточно!

P.S. шоколадка моя пришла ?)

[disneska]

Hugo121

Огромное спасибо за помощь!
Теперь, кажется, этого мне достаточно!

P.S. шоколадка моя пришла ?)

[Hugo121]

Что-то пришло, правда там написано что в 10:26...
Спасибо в любом случае