WWW pro školy
Jak na Office - tutoriály, video návody











Vytvoř si párové triko

Poradna - odkaz na list a konkrétní buňku

Vložení příspěvku
Předmět:
Vaše jméno: (povinný údaj) Váš e-mail:
Text:(Zbývá: 1000 znaků - povinný údaj)
Připojit ukázkový soubor:
(Maximální velikost souboru jsou 2MB.)
 Opište následující text (kvůli zneužití):  vsmSe   

hlavní kategorie | zpět | + odpovědět na toto téma
odkaz na list a konkrétní buňku - diskuze na toto téma
Dobrý den přeji, stav excelu: na prvním listě mám menu a tlačítkové odkazy dle měsíců na jiný list, kde je 12 graficky uspořádaných jakoby podlistů. Jsou formátovány na A4 tisk. Potřebuji následující: klik v menu na leden → zobrazí se list s grafikou - buňkami leden tak, že jeho levý horní roh (tedy A1) je přilepen k levému hornímu rohu pracovní plochy excelu. Toto automaticky funguje. U jiných odkatzů ne. Ale zároveň potřebuji, aby se takto levým horním rohem přilepili i jiné "podlisty", tedy buňky pro ostatní měsíce, což už mi nejde. V makro příkazech mám levé horní buňky definovány, ale bez úspěchu. Např. menu tlačítko červen → červen (AC39)se zobrazí tak nějak uprostřed monitoru . . .v závislosti na % nastavení zobrazení. Kde mám co nastavit - či jaký formát příkazu makro vytvořit? Excel ke stáhnutí na ulozto: https://ulozto.cz/file/GfsVqIHCDYPw/odkazy-roh-listu-rar#!ZGL0LGR1BQD5ZGyvAJDlLwHmZmWwq1OMEP05GxkxYy9uLzZl. Děkuji.

Lobo | 5.7.2021 23:00  
 
 
Zkus do kódu pro jednotlivá tlačítka doplnit toto: Application.Goto ActiveCell, Scroll:=True
Odpověď
Lobo | 5.7.2021 23:11  
 
 
Nebo takto pro Tlačítko Prosinec:Application.Goto Worksheets("Poznámky").Range("AC115"), Scroll:=True
Odpověď
Lobo | 5.7.2021 23:13  
 
 
Nebo varianta s použitím codename listu: Application.Goto List3.Range("AC115"), Scroll:=True
Odpověď
Luboš | 6.7.2021 11:57  
 
 
Velice děkuji "Lobo" za špičkovou radu. Jsi borec. Využil jsem hned první radu a spolehlivě to funguje. Původní zápis příkazu: Private Sub CommandButton18_Click() Worksheets("Poznámky").Activate ActiveSheet.Range("AC39").Select End Sub po editaci: Private Sub CommandButton18_Click() Worksheets("Poznámky").Activate ActiveSheet.Range("AC39").Select Application.Goto ActiveCell, Scroll:=True End Sub Prosím Tě Lobo, jestli můžeš, založil jsem nové téma: více přepínačů na listě. Děkuji. Přeji hezký den. ☺
Odpověď