díky, pomohl bys mi trochu konkrétněji?
vidím to takto, ale mám špatně syntaxi
If List1.Range("A:A") Then
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheets("list1").Activate
ActiveCell.Value = Target.Value
End Sub
Else
díky, pomohl bys mi trochu konkrétněji?
vidím to takto, ale mám špatně syntaxi
If List1.Range("A:A") Then
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheets("list1").Activate
ActiveCell.Value = Target.Value
End Sub
Else