Леонид, ххаха думаю отрезать не чего менеджер - девушка))))
Сейчас посмотрю.
Спасибо за ответы)
вов.. Леонид, вроде то! немного допилить и будет то что нужно)
если можно, объясните как Вы сделали весь этот поиск если можно?)
Спасибо Вам большое, это уже что то)

П.С.
Я так понял это листин макроса написанного для поиска ?
Sub ПоискКлиента()
'
' ПоискКлиента Макрос
' Макрос записан 22.10.2014 (LA)
'
'
Dim Kod, Name, Klient As String
Dim Num As Long
Num = 3
Columns("C

Selection.ClearContents
Range("B2").Select
Kod = Cells(3, 2)
For i = 1 To 65535
Windows("Накладная.xlsx").Activate
If Cells(i, 2) = Kod Then
Name = Cells(i, 3)
Cells(i, 7) = Cells(i, 7) + 1
Klient = Cells(i, 13)
Windows("ПОИСК.xls").Activate
Cells(Num, 3) = Name
Cells(Num, 4) = Klient
Num = Num + 1
Windows("Накладная.xlsx").Activate
End If
Next i
Windows("ПОИСК.xls").Activate
End Sub