Do ThisWorkbook dej toto makro:
Option Compare Text
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If Sh.Name = "Input Data" Then Call seradit
End Sub
Do Modulu tuto subrutinu:
Sub seradit()
Dim seradime As Range
Dim zalozka As Worksheet
Set zalozka = Sheets("Input data")
Set seradime = zalozka.Range("A1:B31")
seradime.Sort Key1:=zalozka.Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
Jakmile klikneš do jiné záložky, data v záložce >>Input data<< se seřadí.
PS: Nekroutil jsem hlavou ani jednou. Nemám to zapotřebí. Ten umí to, ten zas tohle ...
Makro v Excelu - opusteni Listu Vyřešeno
- mike007
- Master Level 7.5
- Příspěvky: 5860
- Registrován: srpen 07
- Bydliště: Pardubice
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: Makro v Excelu - opusteni Listu
- Přílohy
-
- test.xls
- (64.5 KiB) Staženo 10 x
Nejlepší hra je Excel!
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
-
- Level 4
- Příspěvky: 1142
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Re: Makro v Excelu - opusteni Listu
to stana:
Pro inspiraci k budoucimu ukolu jsem trochu upravil prilozeny sesit, snad postaci informace na listu Input Data a komentare v modulech VBA.
Pzn.: Po otevreni sesitu je zobrazen formular nad listem Input Data, pro pristup k editoru VBA je nutno vyberem libovolne bunky zrusit fokus nebo vybrat jiny list.
Pro inspiraci k budoucimu ukolu jsem trochu upravil prilozeny sesit, snad postaci informace na listu Input Data a komentare v modulech VBA.
Pzn.: Po otevreni sesitu je zobrazen formular nad listem Input Data, pro pristup k editoru VBA je nutno vyberem libovolne bunky zrusit fokus nebo vybrat jiny list.
- Přílohy
-
- PodleJmen_puvodni_1.xls
- (79.5 KiB) Staženo 16 x
Re: Makro v Excelu - opusteni Listu
To Mike007, ten sprdunk v mem dalsim dotazu nebyl nutny. Tohle forum pouzivam poprve a mela jsem stranku se svym dotazem otevrenou a jen jsem ji refreshovala, vubec jsem si nevsimla, ze odpovedi pokracuji na strane 2. Cely vecer (jediny cas, kdy muzu u PC sedet, neb mam male dite) jsem cekala na odpoved, abych mohla pokracovat a jen jsem refreshovala a mezitim zkousela vyresit jiny problem. Jsem hodne vdecna za pomoc, ktera se mi tu naskytla, coz jsem myslim v kazdem svem prispevku zduraznovala. Uznavam, ze byla moje chyba,ze jsem se nepodivala na pokracovani odpovedi, ale tvuj ton a zpusob jakym jsi me sjel je na ponekud prehnany !!!
Navstevnikovi i tobe Miku ze srdce dekuju za pomoc pri vyreseni tohoto problemu. Nemohu to ted sice vyzkouset, protoze se k pocitaci dostanu nejspis zase az v noci. A to uz budu asi unavena a zase bych se dopoustela nejakych neodpoustejicich se hnusaren, ze!
Kazdopadne, jeste jednou dekuju za radu, mineno vazne.
Navstevnikovi i tobe Miku ze srdce dekuju za pomoc pri vyreseni tohoto problemu. Nemohu to ted sice vyzkouset, protoze se k pocitaci dostanu nejspis zase az v noci. A to uz budu asi unavena a zase bych se dopoustela nejakych neodpoustejicich se hnusaren, ze!
Kazdopadne, jeste jednou dekuju za radu, mineno vazne.
Re: Makro v Excelu - opusteni Listu
Miku, co jsme si to jsem si vsechno dobry jo?
Ten SORT funguje UUUUUZASNE!!!! Dekuju.
Navstevniku, smekam! Diky za tip. To uzamykani radek bude v uplne jine tabulce, bude tam vic sloupcu ....pokusim se to udelat podle tveho vzoru....ale popravde....VB je pro me spanelska vesnice!!! Ale zkusim to. Dekuju.
Ten SORT funguje UUUUUZASNE!!!! Dekuju.
Navstevniku, smekam! Diky za tip. To uzamykani radek bude v uplne jine tabulce, bude tam vic sloupcu ....pokusim se to udelat podle tveho vzoru....ale popravde....VB je pro me spanelska vesnice!!! Ale zkusim to. Dekuju.
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
Excel - automatický export listů xls do pdf včetně pojmenování Příloha(y)
od kalosek » 28 čer 2023 20:31 » v Kancelářské balíky - 2
- 2128
-
od kalosek
Zobrazit poslední příspěvek
29 čer 2023 19:39
-
-
- 18
- 3667
-
od luko02420
Zobrazit poslední příspěvek
16 kvě 2023 11:27
-
- 9
- 1186
-
od mmmartin
Zobrazit poslední příspěvek
29 srp 2023 16:47
-
- 0
- 900
-
od Jsimi
Zobrazit poslední příspěvek
06 úno 2024 22:43
-
- 2
- 1348
-
od X
Zobrazit poslední příspěvek
02 čer 2023 18:06
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 32 hostů