Вопрос-макрос

[Сергей Ш.]

Подскажите пожалуйста,
Как сделать так, что бы при нажатие на ячейку с порядковым номером (К примеру № 5) на Листе1, открывался бы Лист2 с таким же порядковым номером и при этом бы выделялась вся строка (Как показано на примере, вложенного файла).

[NewStudent07]

Sub Macros_01()
Dim a As Long
Dim i As Long
Application.InputBox "Выберите ячейку в столбце А", , ActiveCell.Address, , , , , 8
a = ActiveCell.Value
Worksheets("Лист2").Activate
For i = 1 To 1048576
    If Cells(i, 1).Value = a Then
    Cells(i, 1).Columns("A:L").Select
    Exit For
    End If
Next i
End Sub

[Сергей Ш.]

Что то у меня не получается.
При запуске макроса выскакивает окошко "Выберите ячейку в столбце А" и открывается Литс2, но не нечего не происходит.

[Сергей Ш.]

Можно ли просто: нажать на порядковый номер и сразу выполнится макрос?
Т.е. откроется Лист2 и выделится строчка с этим номером. Без открытия дополнительного окна.

[VictorM]

Поместите в модуль Листа1 код:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    If Target.Column = 1 Then
        lRow = ActiveCell.Row
        Sheets("Лист2").Select
        Sheets("Лист2").Rows(lRow).Select
    End If
End Sub

Срабатывает при активации любой ячейки столбца "А"

[Сергей Ш.]

Уважаемый VictorM

Вы сможете сделать точно также только с этим файлом?
Там добавлен макрос для отметки ячеек и когда ваш код добавляю в модуль листа то выходит ошибка.
Заранее вам благодарен.

[VictorM]

Смотрите, так?

[NewStudent07]

Теперь сообщения не будет))
Просто нажмите кнопку "Перейти на лист 2"

[Сергей Ш.]

Спасибо вам большое! Помогли.