Reakce na odpověď

Ak sa chceš po kliknutí na položku v Liste2 hneď aj prepnúť na List1, tak je to jednoduché (makro treba umiestniť do Listu2):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Worksheets("List1").Activate
    ActiveCell.Value = Target.Value
End Sub

Ak chceš zostať na Liste2, tak je to trochu zložitejšie:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = False
    Worksheets("List1").Activate
    ActiveCell.Value = Target.Value
    Target.Worksheet.Activate
    Application.ScreenUpdating = True
End Sub

Excel / VBA