Вот ссылка  
http://www.planetaexcel.ru/forum.php?thread_id=10343  
(топик третий снизу)

{quote}{login=}{date=20.01.2010 11:14}{thema=Re: И снова VLookup рулит очередное спасибо Лузер™}{post}{quote}{login=Alexander_V}{date=19.01.2010 11:09}{thema=И снова VLookup рулит очередное спасибо Лузер™}{post}Вот ссылка  
http://www.planetaexcel.ru/forum.php?thread_id=10343  
(топик третий снизу){/post}{/quote}  
 
Посмотрел я файл с примером функции. Получается, в ней нужно описывать каждый лист, где надо искать. (=VlookupNumberX($B12;E$9;0;Таблица1!$A$1:$E$15;Таблица2!$A$1:$E$15;Таблица3!$A$1:$E$15))  
А это очень длинная формула (у меня около 15-ти листов с прайсами товаров).  
Мне надо, наподобие функции ВПР(), но только поиск осуществлять по всем листам.  
В примере (прикрепленный файл), поиск происходит по полю "Артикул" для таблицы "Прайс", а данные отображаются в полях "Наименов","кол-во" и "цена".{/post}{/quote}  
Не поверите - у меня тоже ровно 15 листов с таблицами :),и формула тоже очень длинная получилась(кто если не мы формуле путь к таблицам напишет), но зато работает :)  
Попробую сообразить пользовательскую функцию для поиска по всем листам, но ничего не обещаю .  
PS: Я только учусь.

{quote}{login=тухачевский}{date=20.01.2010 09:22}{thema=}{post}так?{/post}{/quote}  
 
посмотрел ваш файл  - не совсем понятна формула: =ДВССЫЛ(АДРЕС(raw($A5);СТОЛБЕЦ();1;1;lst($A5))).  
можете расшифровать ее?  
при ее копировании и вставке в мой лист "заказ" появляется ошибка "#ИМЯ?", а в исходнике появляется ошибка "#ЗНАЧ!"  
а в вашем исходнике всё работает.

{quote}{login=dendy_81}{date=21.01.2010 07:41}{thema=Re: Поиск данных по всем листам.}{post}{quote}{login=тухачевский}{date=20.01.2010 09:22}{thema=}{post}так?{/post}{/quote}  
 
посмотрел ваш файл  - не совсем понятна формула: =ДВССЫЛ(АДРЕС(raw($A5);СТОЛБЕЦ();1;1;lst($A5))).  
можете расшифровать ее?  
при ее копировании и вставке в мой лист "заказ" появляется ошибка "#ИМЯ?", а в исходнике появляется ошибка "#ЗНАЧ!"  
а в вашем исходнике всё работает.{/post}{/quote}  
 
вечером было избыточно  
упростил  
это пользовательская функция    
нужно в вашу книгу скопировать модуль из прикрепленной книги

{quote}{login=Alexander_V}{date=21.01.2010 11:28}{thema=Вот мой вариант}{post}Особо не тестировал времени нет. Если чего пишите.{/post}{/quote}  
Моя функция тоже пользовательская так что не забудьте скопировать модуль

{quote}{login=тухачевский}{date=21.01.2010 10:24}{thema=}{post}с учетом решения Alexander_V все короче  
а автора все нет{/post}{/quote}  
 
класс! формула сокращена до минимума! Спасибо вам за помощь (и Alexander_V тоже). Вставил в свою базу - работает! Только вот функция ищет неполное совпадение по одному или нескольким символам, и отображает первое найденное значение (ввёл "22", а нашла "220156"). А мне надо найти значение по всем символам, по количеству и по их порядковому расположению (по артикулу). Т.е., если я ввел "200543", то и найти должна только значение "200543". Что надо поменять в функции? И как в функции, если при поиске не найдено совпадений, оставить строки пустыми или заполнить пунктирами (вместо нулей)?

Я устыдился давать ТЗ и сделал сам, чуть иначе.  
 
Function VLookUpAllSheets(vCriteria As Variant, rTable As Range, lColNum As Long, Optional XlLookAt As String = "xlWhole") As Variant  
'rTable - указывается таблица для поиска значений(как в стандартной ВПР)  
'vCriteria - указывается ссылка на ячейку или текстовое значение для поиска  
'lColNum - указывается номер столбца в таблице rTable, значение из которого необходимо вернуть - может быть ссылкой на столбец - СТОЛБЕЦ()  
'XlLookAt - Optional. Can be one of the following XlLookAt constants: xlWhole or xlPart. Default - "xlWhole"  
Dim rFndRng As Range  
For i = 1 To Worksheets.Count  
 If Sheets(i).Name <> Application.Caller.Parent.Name Then  
   With Sheets(i)  
     Set rFndRng = .Range(rTable.Address).Resize(, 1).Find(vCriteria, , xlValues, IIf(XlLookAt = "xlWhole", xlWhole, xlPart))  
     If Not rFndRng Is Nothing Then  
       VLookUpAllSheets = rFndRng.Offset(, lColNum - 1).Value  
       Exit For  
     End If  
   End With  
 End If  
Next i  
End Function  
 
Справка на англицком, звиняйте - лень.

Внимательно перечитал пост думал нужно что бы "0" писало оказывается не надо :)  
в приложении файл формула возвращает пустое место (визуально).  
PS: Хотя после формул The_Prist-а и Лузер™-а как то даже не удобно свою выкладывать:).

Извиняюсь, что долго не появлялся (нэта не было).  
Спасибо всем участникам за полезную информацию! Особенно The_Prist за полную и содержательную функцию, а Лузеру за её доработку и "#N/A".  
После этой темы у меня появился интерес к изучению VBA. Буду мыслить!