To půjde zřejmě jedině makrem, přes událost listu...
P.citovat
P.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Rozevírací seznam s odkazem na jiný list
MS Excel
Téma: Rozevírací seznam s odkazem na jiný list 
Zaslal/a Kneiflpe 9.4.2015 16:05
Potřebuji udělat rozevírací seznam, kde když si vyberu položku aby mne přesměrovala na jiný list. Děkuji
Napr takto pri štandardnom Zozname. Ak bude počet a názvy listov variabilné, treba dorobiť makro, ktoré pri urobí vždy aktuálny zoznam listov.
Příloha: 
24461_prepnilist.rar (17kB, staženo 38x)
citovat24461_prepnilist.rar (17kB, staženo 38x)
@elninoslov
Nevím, jestli bych šel touhle cestou, ale když už (funguje to a to je hlavní ;)) ).
Koukněte se na Váš kód a teď na tento a najděte rozdílPrivate Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
On Error Resume Next
Sheets(Range("A1").Value).Activate
On Error GoTo 0
End If
End SubJe to vlastně to samé, jen jsem vynechal některé zbytečnosti. Až se na to budete koukat za x let, nebudete se alespoň ptát - co to tu mám, proč to tu mám? Přesněji řečeno budete se ptát, ale bude Vám to trvat kratší dobu ;)))citovat
Nevím, jestli bych šel touhle cestou, ale když už (funguje to a to je hlavní ;)) ).
Koukněte se na Váš kód a teď na tento a najděte rozdílPrivate Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
On Error Resume Next
Sheets(Range("A1").Value).Activate
On Error GoTo 0
End If
End SubJe to vlastně to samé, jen jsem vynechal některé zbytečnosti. Až se na to budete koukat za x let, nebudete se alespoň ptát - co to tu mám, proč to tu mám? Přesněji řečeno budete se ptát, ale bude Vám to trvat kratší dobu ;)))citovat
To elninoslov: přesně tohle potřebuji. Jak to aplikovat v mém excelu?citovat
2 eLCHa : Áno kontroly "" a Nothing odchytí OnError. V Intersect je to zámerne, keby došlo k zmene viacerých buniek naraz (makrom, či kopírovaním).
2 Kneiflpe : No to netuším. Nedali ste prílohu, ani nevieme, či bude počet listov stále rovnaký, kde bude zoznam názvov listov uložený ... treba upresniť a dorobíme (keď bude čas).citovat
2 Kneiflpe : No to netuším. Nedali ste prílohu, ani nevieme, či bude počet listov stále rovnaký, kde bude zoznam názvov listov uložený ... treba upresniť a dorobíme (keď bude čas).citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články