Makro v Excelu - opusteni Listu

[mike007]

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 ...

[navstevnik]

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.

[Stana]

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.

[Stana]

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.