вывести все кроме при условиях

[Kek]

Доброго времени суток.

Необходимо сравнить каждый столбец "№заказа" из листов 01-15 с №заказа в листе "grf". выводит все не совпавшие строки из 01-15 в лист "res". И еще при условии, что дата "=СЕГОДНЯ()+1" в листах 01-15. т.е. сравнить артикулы,которые совпали - не выводить и фильтровать по одной дате.

Заранее благодарю.

[IgorGO]

1. в данных нет ни одного заказа с датой=СЕГОДНЯ()+1.
2. шапку на листе res приведите в соответсвие остальным 15 листам.
3. выполнить при активном листе grf

Sub FindAll()
  Dim rr As Long, r As Long, f As Long
  rr = Sheets("res").Cells(Rows.Count, 2).End(xlUp).Row
  On Error Resume Next
  For Each sh In Sheets:  With sh
    r = WorksheetFunction.Match("№ заказа", .Columns(4), 0)
    If Err.Number = 0 Then
      For r = r + 1 To .Cells(Rows.Count, 4).End(xlUp).Row
        If .Cells(r, 5) = Date + 1 Then
          f = WorksheetFunction.Match(.Cells(r, 4), Columns(3), 0)
          If Err.Number <> 0 Then
            Err.Clear: rr = rr + 1
            .Rows(r).Copy Destination:=Sheets("res").Cells(rr, 1)
          End If
        End If
      Next
    Else
      Err.Clear
    End If
  End With:  Next
End Sub

[Kek]

извиняюсь, данные на вчерашний день. т.е здесь выводятся только строчки?

[IgorGO]

а из Вашего первого поста очевидно, что надо выводить что-то другое?

[Kek]

результат: все строки кроме совпавших артикулов и фильтр по дате, по одной только дате(можете использовать "=сегодня()"). все не совпавшие строки должны выводиться в лист "res".

[Kek]

исправлено в листе res

[IgorGO]

сосредоточтесь, Вы составляете ТЗ, у Вас последняя попытка:
на лист res выводим все заказы, номеров которых нет на grf, и дата равна СЕГОДНЯ, так?

[Kek]

Вы правильно поняли

[IgorGO]

дату проверяю согласно ячейке А2 на листе res

[Kek]

дома на 2010 открывается всё отлично, НО вот на работе в 2003 что то кнопка не реагирует. файлКонвертер установлен. Что можно еще предпринять?