Леонид,
Понятно вроде разобрался немного.
Вот добавил еще проверку количества тоесть если у Пети уже есть такие детали то ищем дальше если больше никому не нужно выводим сообщение об этом.
Но с выводом немного что то не получаеться, не хочет с else работать) правда я в бейсике полный 0 но более мение знаю С,С++. Вроде условие переверяет и ищет дальше ноо с сообщением туго.
А так все вроде работает..
Ага и еще тут нужно нажимать кнопку ПОИСК что не есть удобно так как сам сканер эмулирует нажатие ентера.

вот так как то

Sub ПоискКлиента()
'
' ПоискКлиента Макрос
' Макрос записан 22.10.2014 (LA)
'

'

Dim Kod, Name, Klient As String
Dim Num As Long

Num = 3
Columns("C").Select
Selection.ClearContents
Range("B2").Select
Kod = Cells(3, 2)
For i = 1 To 65535 'типо безконечный цыкл )
Windows("Накладная.xlsx").Activate
If Cells(i, 7) <> Cells(i, 10) Then'проверка условия количества товара
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'выводим значение ячейки в 3 столбе
Cells(Num, 4) = Klient' выводим значение ячейки в 4 столбе
Num = Num + 1'переменную нум увеличиваем на 1
Windows("Накладная.xlsx").Activate'активация листа накладной
End If 'Закрываем проверку условия
If Cells(i, 7) = Cells(i, 10) Then 'Проверка наличия количества если есть все выводим сообщение тут елсе не работает(
MsgBox ("Все есть!") 'Вывод ошибки
End If'Закрываем проверку условия
End If'Закрываем проверку условия
Next i
Windows("ПОИСК.xls").Activate'активация листа поиска

End Sub

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