Pokud se má něco přepisovat, tak to určutě nebude hypertextový odkaz.
zkusil bych něco jako
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 6 Then
List2.Cells(Target.Row, Target.Column) = Cells(Target.Row, 2)
List2.Activate
List2.Cells(Target.Row, Target.Column).Activate
End If
End SubM@citovat
zkusil bych něco jako
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 6 Then
List2.Cells(Target.Row, Target.Column) = Cells(Target.Row, 2)
List2.Activate
List2.Cells(Target.Row, Target.Column).Activate
End If
End SubM@citovat