Anonymní profil Anonymní uživatel – Programujte.com

To Kamil Šléška :

V editoru VBA v sekci Project vyber list Seznam, dvakrát klikni a do pole kód (pravá strana) vlož tento kód.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

  Dim rad$, sl$, adr$

  sl = Mid(Target.Address, 1, 2) 'výběr sloupce

  rad = Mid(Target.Address, 3)   'výběr řádku

  adr = Target.Address           'výběr adresy pro nastavení ve vybraném listě

  On Error Resume Next           'popřípadě vytvořit návěští chyba: a chybu popsat

  Sheets(Target.Value).Select    'výběr požadovaného listu

  ActiveSheet.Range(adr).Select  'výběr buňky v otevřeném listě

End Sub

To CZechB0Y :