Zoradenie v Exceli [Archív]

sandi70

20.03.11,10:06

Čaute!

Menší problem v zoradení skupín.
Mám 8 skupín a každú skupinu mi zoradí ako má okrem tej siedmej skupiny. Pritom kódy sú rovnaké neviem najsť chybu. Tu sú tie kódy:

Private Sub Worksheet_Activate()
ActiveSheet.Unprotect
Sheets("Hárok14").Select
Range("B5:G8").Select
Selection.Sort Key1:=Range("G5"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets("Hárok14").Select
Range("B11:G14").Select
Selection.Sort Key1:=Range("G11"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets("Hárok14").Select
Range("B17:G20").Select
Selection.Sort Key1:=Range("G17"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets("Hárok14").Select
Range("B23:G26").Select
Selection.Sort Key1:=Range("G23"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets("Hárok14").Select
Range("J5:O8").Select
Selection.Sort Key1:=Range("O5"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets("Hárok14").Select
Range("J11:O14").Select
Selection.Sort Key1:=Range("O11"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets("Hárok14").Select
Range("J17:O20").Select
Selection.Sort Key1:=Range("O17"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets("Hárok14").Select
Range("J23:O26").Select
Selection.Sort Key1:=Range("O23"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

End Sub

Ten červený kód mi nefunguje ale v skutočnosti je všetko to isté. Vie mi to niekto zistiť, aký je vtom problem? Ďakujem!!!

saqe

20.03.11,14:26

skúsil som, funguje to bez problémov, skontroluj, či nemáš niektorú bunku zamknutú práve v tej oblasti, alebo zlúčené bunky

saqe

20.03.11,14:30

a dá sa to zjednodušiť, definícia listu je tak iba jedenkrát, kód:

Private Sub Worksheet_Activate()
With ActiveSheet
.Unprotect
.Range("B5:G8").Sort Key1:=Range("G5"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
.Range("B11:G14").Sort Key1:=Range("G11"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
.Range("B17:G20").Sort Key1:=Range("G17"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
.Range("B23:G26").Sort Key1:=Range("G23"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
.Range("J5:O8").Sort Key1:=Range("O5"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
.Range("J11:O14").Sort Key1:=Range("O11"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
.Range("J17:O20").Sort Key1:=Range("O17"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
.Range("J23:O26").Sort Key1:=Range("O23"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
End Sub

sandi70

20.03.11,19:46

Dík, ale všetko som už skúsil a nejde mi to. Tá predposledná skupina nefunguje. Pri prepnutí stránky mi cez to prebehne to označenie, ale nezoradí. Je to zaujimavé, ale ostatné skupiny zoradí bez problémov. Uzamknuté bunky nemám. Skúsil som aj Tvoje kódy, ale tie mi už nezoradia ani jednu skupinu. Čo to už môže byť neviem si dať rady.

moss.palicka

21.03.11,10:40

saqe pise, ze jemu to funguje bez problemov, mam taku, mozno hlupu otazku, skusal si to v novovytvorenej tabulke?

marjankaj

21.03.11,10:58

Dík, ale všetko som už skúsil a nejde mi to. Tá predposledná skupina nefunguje. Pri prepnutí stránky mi cez to prebehne to označenie, ale nezoradí. Je to zaujimavé, ale ostatné skupiny zoradí bez problémov. Uzamknuté bunky nemám. Skúsil som aj Tvoje kódy, ale tie mi už nezoradia ani jednu skupinu. Čo to už môže byť neviem si dať rady.

Veď prilož ten súbor a uvidíme prečo to nefunguje.