Сортировка по шаблону Exel

[Slavatron1984]

Добрый день.
В первом листе "Шаблон" список все существующих код товара и наименовании товара. В втором листе "отчет продаж полученных" с программы. В 3 листе показал нужный мне результат... Возможно ли отсортировать список товара с листа 2, согласно расположению товара, как в листе 1 шаблон и результат получился,как в листе 3... Если существует дополнительный товар в отчете лист 2, который отсутствует в листе шаблон(лист 1), то в листе 3 ниже после сортировки показать его...

Решение через макрос

Windows 2007 office 2013

Для меня траур, т.к. данный код утерял вместе с винчестером, восстановить не получается... С данным макросом мне помогли здесь вроде бы... Но уже 3 часа ищу по своим сообщением и в поиске, без результата...

[kuklp]

Public Sub www()
    Dim a, b, c, d, i&, j&, n&, m&
    a = Sheets("Шаблон").[b5].CurrentRegion.Columns(1)
    d = a
    b = Sheets("данные с отчета").[b5].CurrentRegion
    ReDim Preserve a(1 To UBound(a), 1 To UBound(b, 2))
    ReDim c(1 To UBound(a), 1 To UBound(b, 2))
    On Error Resume Next
    For i = 1 To UBound(b)
        n = Application.Match(b(i, 1), d, 0)
        If Err Then
            Err.Clear: m = m + 1
            For j = 1 To UBound(b, 2)
                c(m, j) = b(i, j)
            Next
        Else
            For j = 2 To UBound(b, 2)
                a(n, j) = b(i, j)
            Next
        End If
    Next
    On Error GoTo 0
    Stop
    Sheets("нужный результат").[i5].Offset(UBound(a)) = "отсутствует"
    Sheets("нужный результат").[i5].Resize(UBound(a), UBound(a, 2)) = a
    If m Then Sheets("нужный результат").[i5].Offset(UBound(a) + 1).Resize(m, UBound(a, 2)) = c
End Sub

[Slavatron1984]

Спасибо kuklp все работает...

[Slavatron1984]

Stop в коде какую функцию выполняет... код на нем часто зависает... Я его стер, но понимаю,что он там не зря вписан...

[Hugo121]

Код на нём должен "зависать" всегда - это же стоп!
Правильно что убрали - вероятно это была шутка

[kuklp]

Я просто спешил. Надо было уезжать и забыл убрать.

[Hugo121]

А зачем ставил?
Я обычно обхожусь большой жирной красной точкой!

[kuklp]

Для отладки.

[Hugo121]

Можно было не отвечать

[kuklp]

Ну как же тебе не ответить! Кому другому можно, а тебе...