Выделение строк

[Aristarkch]

Спасибо за науку. Это первый мой форум.
А вот что я имею в виду.
Речь идет о ячейках в строках ниже 19-ой.
Что мне надо.
Я выделяю кнопкой или клавишей F2 какую-либо из единичных ячеек, например, K22. В ней перемножаются столбцы G, H, K. Единичное значение произведения обеспечивается единицами в ячейках G16, H16, K16 (строкой 16). Мне надо, чтобы выделилась строка 16.
Если таких единичных строк в перемножаемых столбцах окажется несколько, то они все должны выделится.
После снятия выделения с ячейки K22 очень желательно, чтобы снималось и выделение и строки 16.
Выделять можно или всю строку, или только номер строки.
Выделять допустимо по любому:
- серой заливкой, как выделяются строки или столбцы;
- заливкой цветом;
- выставлением цифры в соответствующей строке другого листа;
- как-то иначе, о чем я не догадываюсь (?).

[AlexM12]

Посмотрите что получилось. Код макроса в модуле листа

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim i As Long, sm As Long
    Range("B1:AN18").Interior.ColorIndex = 0
    If Not Intersect(Range("B20:AN37"), Target) Is Nothing Then
        sm = Cells(Target.Row, 1)
        For i = 1 To 18
            If Target.Column + sm - 1 < 1 Or Target.Column + sm < 1 Then Exit Sub
            If Cells(i, Target.Column + sm - 1) = 1 And Cells(i, Target.Column + sm) = 1 _
                And Cells(i, Target.Column) = 1 Then
                Cells(i, Target.Column + sm - 1).Interior.ColorIndex = 4
                Cells(i, Target.Column + sm).Interior.ColorIndex = 4
                Cells(i, Target.Column).Interior.ColorIndex = 4
            End If
        Next i
    End If
End Sub

[Aristarkch]

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