Гипперсылка

[Ser Artur]

Хочу поделиться кодом Гипперсылки

Код: Выделить всё

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
Range("C4").Select
ElseIf Target.Address = "$A$2" Then
Range("C5").Select
End If
End Sub


[alibek]

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

[Ser Artur]

Конём ходи или сдавайся