макрос сравнения...

[Slavatron1984]

Добрый день уважаемые гуру... Обращаюсь к вам за помощью т.к. в макросах не селен, а другими способами эту задачу решить не могу... Проблема состоит в том, что фирма занимается дистрибуцией товара... У каждого агента есть маршруты посещения торговых точек, но эти клерки вечно и очень часто работают не по маршруту, тем самым создают дополнительные расходы на подачу автотранспорта... Поэтому прошу вас помочь в таком деле... В прикрепленном файле ексель 3 листа. В 1 листе список организации по которым должны происходить отгрузки...В 2 листе организации которые были сброшены (т.е. там есть организации по маршруту, и не по маршруту)... Моя просьба состоит в том, что бы помочь мне в 3 листе сформировать список организаций которые сброшены не по маршруту... Я так понимаю, что лучше сравнивать по коду организаций , а не по фирме, т.к. фирмы могут быть одинаковы,но с разными физичес. адресами, поэтому попрошу поляризоваться к полю код организ... Буду рад любому совету и помощи...

[Hugo121]

Если в макросах не сильны, тогда может руками скопируете нужные?
На второй лист в свободную ячейку второй строки формулу

=ВПР(A2;'День посещения организации'!$A$2:$A$9;1;0)

тянете вниз, все с #Н/Д вручную копируете куда нужно (можно их отсортировать в кучку)

[Slavatron1984]

У меня по 400 заказов ежедневно и это способ не совсем уместен, т.к. много возни... И мне нужно выявить заказы которые не по маршруту, а не те которые по маршруту... Спасибо за внимание...

[Slavatron1984]

Hugo121 сейчас понял вашу мысль все работает!!! Правда макросом было бы меньше морок, а здесь нужна подготовка шаблона... Хотя впр я пользуюсь неоднократно, но до этого вроде простого способа не додумался!!!

[Hugo121]

Прописать одну формулу (можно её сразу на весь столбец прописывать, т.е. не менять), один раз кликнуть по уголку (если левее заполнен столбец), включить фильтр и скопировать всё на другой лист - минутное дело. Хоть на 4000 строк.

Макросом мороки меньше, да... Но смотря кому

[Hugo121]

Option Explicit

Sub otbor()

    Dim a(), i&, ii&, x As Byte

    a = Sheets(1).Range("A1").CurrentRegion.Value
    With CreateObject("Scripting.Dictionary")

        For i = 2 To UBound(a)
            .Item(a(i, 1)) = vbNullString
        Next

        a = Sheets(2).Range("A1").CurrentRegion.Value
        ReDim b(1 To UBound(a), 1 To 8)

        For i = 1 To UBound(a)
            If Not .exists(a(i, 1)) Then
                ii = ii + 1
                For x = 1 To 8: b(ii, x) = a(i, x): Next
            End If
        Next

    End With

    Sheets(3).Range("A1").Resize(ii, 8) = b

End Sub

[Slavatron1984]

То, что нужно... Я знал, что найду решение здесь... Спасибо Hugo121 вы уже не раз помогли..