Как передать адрес активной строки в другую таблицу

[parsn]

Есть два листа с таблицами: "Заказы" и "Заказ".
Нужно, чтобы при открытии листа "Заказ" в ячейку A5 таблицы этого листа передавался номер активной строки таблицы листа "Заказы". В случае если в таблице листа "Заказы" ни одна строка не активна, то пусть значение ячейки будет равно 5. Как это сделать?

[Teslenko_EA]

Здравствуйте parsn.
поместите подобный кол в модуль листа "Заказы"

Dim i&
Private Sub Worksheet_Activate()
    i = ActiveCell.Row
End Sub
Private Sub Worksheet_Deactivate()
    Worksheets("Заказ").[a5] = i
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    i = ActiveCell.Row
End Sub

Евгений.

[parsn]

Спасибо! Работает.