Как организовать поиск значения ячейки по всем листам

[alec]

Хочу организовать что то вроде обычного поиска (CTRL+F), и когда находит нужную мне ячейку со значением он ее допустим закрашивает и цикл останавливается. Пишу примерно так:

Sub brash()
Dim wsh As Worksheet
Dim s As String, a As String
Dim i As Integer, j As Integer, n As Integer
iRow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
iClm = ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count - 1
s = "Искомое значение"
For n = 1 To ThisWorkbook.Worksheets.Count
ThisWorkbook.Worksheets(n).Activate
For i = ActiveSheet.UsedRange.Row To iRow
For j = ActiveSheet.UsedRange.Column To iClm
If ActiveSheet.Cells(i, j).Value = s Then
ActiveSheet.Cells(i, j).Interior.ColorIndex = 4
Exit For
End If
Next j
Next i
Next n
End Sub

Только проблема в том что цикл по листам после нахождения мной ячейки не прекращается и он соответственно активизирует последний лист. А мне нужен тот где найдена ячейка. В общем как обычный поиск по всей книге, нашел ячейку и сдвинул экран на нужный лист нужное место.

Будьте добры помочь. Может есть какая то функция которая всё это делает проще простого.

[IgorGO]

во-первых, внесите это

iRow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
iClm = ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count - 1

в цикл по N, чтобы определять границы поиска каждый раз для своего листа.
во-вторых, цикл по листам закрутите не с первого листа, а с текущего (или даже следующего) до конца и останавливайтесь, как только что-то нашлось

For n = activesheet.index To ThisWorkbook.Worksheets.Count

[alec]

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

во-первых, внесите это

iRow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
iClm = ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count - 1

в цикл по N, чтобы определять границы поиска каждый раз для своего листа.
во-вторых, цикл по листам закрутите не с первого листа, а с текущего (или даже следующего) до конца и останавливайтесь, как только что-то нашлось

For n = activesheet.index To ThisWorkbook.Worksheets.Count

Спасибо за ответ
Собственно вопрос в том и состоит как остановить цикл по N при нахождении нужного значения Подскажите пожалуйста

[IgorGO]

остановить цикл - Exit For, остановить выполнение процедуры - Exit Sub

[alec]

Если я использую эту конструкцию:
For n = activesheet.index To ThisWorkbook.Worksheets.Count

То допустим если я руками в самом excel'e активировал последний лист а искомое значение на предыдущем, то у меня ничего не выполняется. Как организовать поиск так чтобы сначала искал на текущем а если на текущем нет то начинал перебирать все остальные?

За предыдущие ответы и советы спасибо, они мне очень помогли.

[SAS888]

Если я правильно понял, то требуется организовать цикл по листам для поиска значений таким образом, что сначала ищем на активном листе, затем на следующем и т.д. до последнего, затем на первом и т.д. до активного. Так? Если так, то можно воспользоваться следующим примером:

Sub Main()
    Dim i As Integer, j As Integer, x As Range
    Application.ScreenUpdating = False: j = ActiveSheet.Index - 1
    For i = 1 To Sheets.Count
        j = j + 1: If j > Sheets.Count Then j = j - Sheets.Count
        Set x=Sheets(j).Cells.Find(...)
        If Not x Is Nothing Then Exit For
    Next
End Sub

В метод Find подставьте требуемые опции поиска. В случае обнаружения искомого значения, будет осуществлен немедленный выход из цикла и переменная x будет содержать объект Range найденной ячейки. Если же значение найдено не будет, то x = Nothing.

[alec]

да вы правильно поняли спасибо

[alec]

Мне нужно выделить найденную ячейку.
Если я пишу вот этот код:

Sub main()
Dim i As Integer, j As Integer, x As Range
Application.ScreenUpdating = False: j = ActiveSheet.Index - 1
For i = 1 To Sheets.Count
j = j + 1: If j > Sheets.Count Then j = j - Sheets.Count
Set x = Sheets(j).Cells.Find("Искомое значение")
Worksheets(j).Select
x.Select
If Not x Is Nothing Then Exit For
Next
End Sub


То проблема в том что он мне выделяет эту ячейку если в данный момент активен лист где находится эта ячейка с искомым значением. Как мне переписать чтобы с любого листа находил и выделял?