EducatedFool выкладывал надстройку.

{quote}{login=KukLP}{date=25.07.2011 11:05}{thema=}{post}EducatedFool выкладывал надстройку.{/post}{/quote}  
спасибо за предложение, но надстройку не надо =) мне два варианта верхних нравятся

в данный момент у меня код модуля вот такой  
 
Option Explicit  
 
Sub Поиск()  
Dim iFoundRng As Range  
Dim iSheet As Worksheet  
Dim iFoundSht As Worksheet  
Dim FirstAddress As String  
Dim TextToFind As Variant  
Dim iLastRow As Long  
Dim iShtName As String  
     
   Set iFoundSht = Sheets("Поиск") 'лист "Поиск" присваиваем переменной  
   iFoundSht.Range("A5:AA5000").Clear 'очищаем диапазон ячеек на листе Поиск  
   'TextToFind = Application.InputBox("Введите строку для поиска" & Chr(13) & Chr(13) & "Например: Lexus или Lexus 350", "Поиск", "Lexus 350")  
   TextToFind = iFoundSht.Range("B2")  
   If TextToFind = "" Or TextToFind = False Then Exit Sub 'если ничего не ввели - Выход!  
   TextToFind = Trim(TextToFind) 'убираем начальные и конечные пробелы  
   Application.ScreenUpdating = False 'отключаем обновление экрана  
   For Each iSheet In ThisWorkbook.Worksheets 'поиск по листам  
       If iSheet.Name <> iFoundSht.Name Then  
           If iSheet.FilterMode = True Then iSheet.ShowAllData 'если на листе установлен автофильтр, то снимаем его  
           Set iFoundRng = iSheet.Cells.Find(TextToFind, , xlFormulas, xlPart)  
           If Not iFoundRng Is Nothing Then 'если нашли  
               FirstAddress = iFoundRng.Address 'запоминаем адрес найденной ячейки, чтобы продолжить поиск по листу  
               Do  
                   With iFoundSht  
                       iLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row 'определяем последнюю заполненную строку на листе поиск  
                       If iLastRow = 1 Then iLastRow = 4 'если лист пуст, то вставлять будем начиная с 7-й строки  
                       If iShtName <> iSheet.Name Then 'если новый прайс-лист  
                           With .Cells(iLastRow + 1, 1) 'проставляем имя листа  
                               .Value = "Лист: " & iSheet.Name & " Ячейка: " & iFoundRng.Address(0, 0)  
                               'добавляем гиперссылку  
                               iFoundSht.Hyperlinks.Add Anchor:=iFoundSht.Cells(iLastRow + 1, 1), Address:="", _  
                                   SubAddress:="'" & iSheet.Name & "'" & "!" & iFoundRng.Address, ScreenTip:="Перейти на лист " & iSheet.Name  
                               '.Font.Bold = True 'выделяем жирным  
                           End With  
                       End If  
                       'iFoundRng.EntireRow.Copy Destination:=.Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1) 'копируем всю строку  
                       iShtName = iSheet.Name 'запоминаем имя листа  
                   End With  
                   Set iFoundRng = iSheet.Cells.FindNext(iFoundRng) 'продолжаем поиск на том же листе  
               Loop While iFoundRng.Address <> FirstAddress  
           End If  
       End If  
   Next iSheet  
   Application.ScreenUpdating = True 'включаем обновление экрана  
   MsgBox "Поиск завершён!", 64, "Поиск"  
End Sub  
 
Sub Finder()  
Dim iRng As Range, TextForFind As String, FirstAddress As String, n As Integer, iLastRow As Long  
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row  
Range(Cells(5, 1), Cells(iLastRow + 1, 2)).Clear  
iLastRow = 4  
   TextForFind = InputBox("Введите искомое слово (значение)", " Запрос для поиска")  
   If TextForFind = "" Then  
       MsgBox "Вы ничего не указали", 48, "Вы чё, в натуре?"  
       Exit Sub  
   End If  
 
   For n = 2 To Sheets.Count  
       With Sheets(n).UsedRange  
           Set iRng = .Find(What:=TextForFind, LookIn:=xlFormulas, LookAt:=xlPart)  
           If Not iRng Is Nothing Then  
               FirstAddress = iRng.Address  
               Do  
                   Cells(iLastRow + 1, 1) = Sheets(n).Name  
                   Cells(iLastRow + 1, 2) = iRng.Address(0, 0)  
                   iLastRow = iLastRow + 1  
                   Set iRng = .FindNext(iRng)  
               Loop While iRng.Address <> FirstAddress  
           Else  
               MsgBox "Значение " & TextForFind & " не найдено!", 48, "Ошибка"  
           End If  
       End With  
   Next  
End Sub  
 
по вашим словам я могу оставить только последнюю часть данного кода?

спасибо большое! =) я немного подправил ваш макрос под свой шаблон, чтобы вместо адреса ячейки выводилось содержимое самой ячейки =)

Какой смысл выводить значение, если Вы ИМЕННОГО его задали в поиске? :-) Впрочем, Вам виднее...

конечно открывал =) мне понравился.    
Я имел в виду, что у вас текст найдено располагается в столбце А, а текст ячейка в столбце В. Вот я и говорю что результат поиска выводится в двух ячейках. А как сделать так, чтобы он был только в одной ячейке? Например в ячейке G?

ВАМ БЫ ЛИШЬ ЗАБАНИТЬ =) у меня просто уже голова от этих макросов едет. Извините, не внимательно смотрел. Сейчас увидел. Спасибо вам огромное за помощь! =)  
 
Скажите пожалуйста с чего лучше начать изучать создание макросов?

{quote}{login=Юрий М}{date=25.07.2011 11:02}{thema=}{post}Вариант.{/post}{/quote}  
Добрый день  
результат можно сделать в виде ссылок на ячейки?  
 
Интересует вывод всех совпадающих значений на листе

А да выводятся все  
 
Можно сделать чтобы выводились например полностью значения (а не ссылки на ячейки)  
 
Например надо найти цифру 5  
Результат с ссылками (например)  
5  
51  
156  
567

Прикрепил файл

Спасибо так.  
 
А можно без вывода промежуточных результатов (окошек) Найдено  столько -то штук на листе 1 и т.д.

Спасибо  
то что искал

в другом формате

Формула для остатка (массивная, вводить Ctrl+Shift+Enter)  
=E11-СУММ(ЕСЛИ((C11=$C$11:C11);ЕСЛИ((B11=$B$11:B11);$D$11:D11)))