Zavrieť

Porady

Upraviť

Hlavné

Ďalšie rubriky

Zoradenie v Exceli

Č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!!!
Pravidlá a tipy
  • Každý móže napísať len 1 odpoveď. Neskor mozete svoju odpoveď vylepšiť.
  • Odpoveď má priniesť riešenie na otázku, vyvarujte sa hodnotenia otázky.
  • Odpoveď má byť viac o faktoch ako o názoroch.
Dalšie pravidla a tipy
Neregistrovaný
    Ak potrebujete v otázke niečo upresniť, najskôr sa spýtajte na podrobnosti.
    Koncept slúži na uloženie rozpracovanej odpovede, koncept sa zobrazuje len Vám, až kým ho nezverejníte.
    Ak máte podobnú otázku, založte Novú otázku alebo Súvisiacu otázku.
    ❤ Buďte priateľskí ❤
    Sme súčasťou jednej komunity, ktorá si chce vzájomne pomáhať, rozdieľnosť je vítaná ak neubližuje!
    Usporiadať podľa času

    saqe je offline (nepripojený) saqe

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

    saqe je offline (nepripojený) saqe

    saqe
    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
    0

    sandi70 je offline (nepripojený) sandi70

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

    moss.palicka je offline (nepripojený) moss.palicka

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

    marjankaj je offline (nepripojený) marjankaj

    I am a man marjankaj
    sandi70 Pozri príspevok
    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.
    0

    Zoradenie v Exceli

    Vieš, kto pozná odpoveď?
    Zdieľaj, možno sa nájde odborník Pozvi odborníka, firmu, inštitúciu atď.

    Porady, ktoré by vás mohli zaujímať

    Prihláste sa a sledujte len tie Porady, ktoré Vás zaujímajú.

    Pridať pochvalu

    Ďakujem Dobre píšes Super rada
    Vtipné Si cool Milé
    Poznámočka