Poradna - odkaz na list a konkrétní buňku
hlavní kategorie | zpět | + odpovědět na toto témaodkaz 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. Zkus do kódu pro jednotlivá tlačítka doplnit toto: Application.Goto ActiveCell, Scroll:=True Odpověď Nebo takto pro Tlačítko Prosinec:Application.Goto Worksheets("Poznámky").Range("AC115"), Scroll:=True Odpověď Nebo varianta s použitím codename listu: Application.Goto List3.Range("AC115"), Scroll:=True Odpověď 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ěď |