Поиск по всей книге с выводом названия листа

[Ppaa]

Здравствуйте!

Подскажите как можно искать значение из ячейки по всей книге и выводить лист, на котором оно было найдено или, если не найдено #н/д ?

[Aleksandr H.]

Sub ICantUseGoogle()
    Dim iSh As Integer
    Dim s As String, rRes As Range
    For iSh = 2 To ActiveWorkbook.Worksheets.Count
        With Worksheets(iSh)
            Set rRes = .Cells.Find(What:=Worksheets(1).Range("A1"), LookIn:=xlValues, lookat:=xlWhole, _
            SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
            If Not rRes Is Nothing Then
                s = s & Worksheets(iSh).Name & "." & rRes.AddressLocal & "; "
            End If
        End With
    Next
    MsgBox s
End Sub

ето если просто искать, если найтиВсе то читай http://www.cpearson.com/excel/findall.aspx

[Ppaa]

А формулами можно как-нибудь? Нужно искать столбец значений в книге.

[IgorGO]

короткий ответ: можно

[Ppaa]

А можно поподробнее? Дело в том, что искомые значения для поиска находятся в разных столбцах на разных листах. Примеры с впр которые есть в инете для этого не подходят.

[Aleksandr H.]

Сообщение от Ppaa

А можно поподробнее? Дело в том, что искомые значения для поиска находятся в разных столбцах на разных листах. Примеры с впр которые есть в инете для этого не подходят.

Интерес к вопросу без файла с Вашими данными чуть больше 0.

[IgorGO]

без файла, в котором ручками написано, что должно получиться, а где-то в комментариях, типа вот это значение нужно бы получить формулой, "подробнее" - бессмысленно

[Ppaa]

Приложил.
На листе1 пример значений, которые нужно искать на других листах и выводить названия листов, на которых оно встречается.

[Казанский]

Можно даже гиперссылки создать

Sub Pa()
Dim j&, k&, c As Range, d As Range
  Worksheets(1).Activate
  For Each c In Range("A2", Cells(Rows.Count, "A").End(xlUp))
    k = 0
    For j = 2 To Worksheets.Count
      Set d = Worksheets(j).Cells.Find(c.Formula, , xlFormulas, xlWhole)
      If Not d Is Nothing Then
        k = k + 1
        ActiveSheet.Hyperlinks.Add c.Offset(, k), "", d.Address(external:=True), , Worksheets(j).Name
      End If
    Next
  Next
End Sub

[IgorGO]

см. вложение
(если что не так, можете поправить немного формулы)