Zavrieť

Porady

Vie to niekto vyriešiť?

Dobrý deň
Potrebujem zoradiť osem skupín v jednom hárku.
Použil som tento kód pre jednu skupinu:

Private Sub Worksheet_Activate()
ActiveSheet.Unprotect
Sheets("Hárok2").Select
Range("m3:n7").Select
Selection.Sort Key1:=Range("n4"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Pre prvú skupinu mi to zoraďuje správne, ale už pre druhú skupinu mi to zoraďovať nechce. Treba niečo zmeniť? Ďakujem.


A ešte jeden problém. Môže mi niekto poradiť, ako sa dá cez Forms.TextBox prenášať do jednotlivých buniek?
Napr... Keď napíšem nejaké slovo do Forms.TextBox, chcel by som aby mi to preplo keď stlačím Forms.CommandButton do A1, A2, A3 atď...pričom bi mi to slovo zmizlo z Forms.TextBox. Je na to nejaký kód? Ak áno vopred Ď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
    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

    PaloPa je offline (nepripojený) PaloPa

    PaloPa
    Neviem, či ide o triedenie podľa iného stĺpca v rámci skupiny
    alebo inú skupinu v tom istom liste (to ide - viď prílohu).

    Ak to nie je ono, pripni sem ako prílohu tvoj problematický zošit.

    Ak však pri druhom triedení vyhodí chybu ako je v obrázku,
    môže to súvisieť tým, že treba prehodiť prvé dva riadky, t.j.
    najskôr Select sheet, potom Unprotect.

    P.
    Naposledy upravil PaloPa : 04.12.10 at 13:46
    MySortError.png  

    Vie to niekto vyriešiť?

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

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