переход с листа на лист по одинаковому значению

[kuklp]

Никак. Во время редактирования ячейки макросы не выполняются.

[vfv]

Подскажите как из приведённого выше макроса в этой теме
Код:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim X As Range, r As Range, fA$

If Target.Text <> "" Then

Set X = Sheets(2).UsedRange.Find(Target.Tex t)

If Not X Is Nothing Then

Set r = X

fA = X.Address

Do

Set X = Sheets(2).UsedRange.FindNext(X)

Set r = Application.Union(r, X)

Loop While Not X Is Nothing And X.Address <> fA

Sheets(2).Activate

r.Select

Cancel = True

End If: End If

End Sub

сделать макрос в основном модуле,а не в модуле листа, и поиск чтобы был путём выделения ячейки и нажатия на кнопку

[kuklp]

А чем не нравится по двойному клику? Меньше телодвижений.
В общий модуль:

Sub AnyName()
    Dim X As Range, r As Range, fA$
    If activecell.Text <> "" Then
        Set X = Sheets(2).UsedRange.Find(activecell.Text)
        If Not X Is Nothing Then
            Set r = X
            fA = X.Address
            Do
                Set X = Sheets(2).UsedRange.FindNext(X)
                Set r = Application.Union(r, X)
            Loop While Not X Is Nothing And X.Address <> fA
            Sheets(2).Activate
            r.Select
        End If: End If
End Sub

Ну и назначайте макрос кнопке. Если надо поиск на любом листе -
замените в тексте Sheets(2) на activesheet.

[vfv]

Объясняю зачем мне это нужно?
Код в модуле листа это хорошо и удобно.Но у меня есть много книг xls в одной папке и нужно во все эти книги вставить в листы этот код листа.Экспортировать код листа кудато у меня получается.Но вот потом импортировать в те книги,которые мне нужны, нет. Почему то при импорте модули листа превращаются в Class модули,а если импортировать основные модули,то всё получается.

[vfv]

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

[Uralmaster]

Можно ли как-то сделать поиск если искомые данные формируются за счет формул типа =Исх!D6 - поиск видимо воспринимает только формулы а не значения формируемые этими формулами

[kuklp]

Можно.

Public Sub Searsh()
' Макрос записан 30.01.2011 (Sergey)
    Cells.Find(What:=[C4], After:=ActiveCell, LookIn:=xlValues, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
End Sub

Но Вы бы и сами могли почитать справку по Find.

[Uralmaster]

вопрос еще один как сделать так чтоб искал значение только в одном столбце например в столбце "С" ?

[kuklp]

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

вопрос еще один как сделать так чтоб искал значение только в одном столбце например в столбце "С" ?

Public Sub Searsh()
' Макрос записан 30.01.2011 (Sergey)
Columns("C:C").Find(What:=[C4], After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
End Sub

[kuklp]

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

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

Хватит уже вам. Сколько можно жевать эту тему.