Script pro hledání v různých listech – Visual Basic – Fórum – Programujte.com

Caute lidi,
mam dotaz, v excelu mam nekolik listu, na prvnim je seznam zbozi s umistenim ve skladu (cislo A001 znamena bunka v rade A, B001 bunka v rade B atd.), dalsi listy jsou jednotlive rady ve skladu s vyznacenymi bunkami (rada A, bunky A001 az A999, rada B, bunky B001 az B999 atd.) a potrebuji script na to, ze kdyz kliknu v seznamu zbozi na umisteni treba A005, tak aby se mi ukazala prislusna bunka v prislusnem sesite...u se s tim trapim dlouho a nejak na to nemuzu prijit..sem v tomhle zacatecnik:(...diky za kazdou radu...

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