Zoradiť údaje v tabuľke

"Rady nielen z Porady" - Tipy a triky, "how-to ...", nápady a riešenia k aplikáciam MS Office
pre všetky verzie až po MS Office 2010

Zoradiť údaje v tabuľke

Poslaťod Dušan » 03.02.2015, 12:35

Mám úplné jednoduchú konečnú tabuľku. Do nej sa pomocou vzorca sťahujú údaje z iných zdrojov napr. iných tabuliek, ktoré sa priebežne dopĺňajú. Dá sa nastaviť v Excely automatické zoraďovanie konečnej tabuľky podľa niektorého stĺpca napr. od najmenšieho ...tak aby som to nemusel robiť mechanický (vybrať tabuľku/údaje/zoradiť/zoradiť podľa stĺpca C/od najmenšieho po najväčšie) za každým keď sa údaje v tabuľke zmenia? Teda po každej zmene údajov by sa tabuľka zoradila podľa istých nastavených kritérií.

Dušan
Dušan
 
Príspevky: 12
Registrovaný: 12.12.2014, 10:50
Udelené poďakovania: 5 krát
Prijaté poďakovania: 0 krát

Re: Zoradiť údaje v tabuľke

Poslaťod Palo-admin » 05.02.2015, 12:11

Bez použitia makra nie.
S makrom áno, pri použití typu makra, ktoré stráži akúkoľvek zmenu v bunkách aktívneho listu (Worksheet_Change).

Kód: Vybrať všetko
Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo xErr:
    If Not Intersect(Target, Range("C:C")) Is Nothing Then
        Application.EnableEvents = False
            Call Sort_podla_C               ' volaj sortovanie pri zmene v C
        Application.EnableEvents = True
    End If
   
    Exit Sub
   
xErr:
     Application.EnableEvents = True
End Sub



Kód: Vybrať všetko
Sub Sort_podla_C()
    Range("C1").Select
    Range("A:C").Sort Key1:=Range("C1"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortTextAsNumbers
End Sub


!!! Môže to byť však kontraproduktívne, pri veľkom počte údajov.
To by som asi už radšej volal makro Sort_podla_C cez nejaké tlačidlo.

Palo
Nemáte oprávnenie prezerať súbory priložené v tomto príspevku.

Za tento príspevok autor Palo-admin dostal poďakovanie :
Dušan
Palo-admin
Administrátor stránky
 
Príspevky: 473
Registrovaný: 18.07.2008, 16:43
Udelené poďakovania: 6 krát
Prijaté poďakovania: 63 krát

Re: Zoradiť údaje v tabuľke

Poslaťod marian73 » 04.02.2017, 11:52

Ahoj potreboval by som poradiť s tabuľkou na zoradenie údajov.
Skúsil som použiť makro v tomto príspevku, ale mi to nefunguje.
Prikladám aj tabuľku.
Ďakujem za pomoc ak sa podarí.
Nemáte oprávnenie prezerať súbory priložené v tomto príspevku.
marian73
 
Príspevky: 10
Registrovaný: 09.02.2014, 23:07
Udelené poďakovania: 2 krát
Prijaté poďakovania: 0 krát

Re: Zoradiť údaje v tabuľke

Poslaťod Palo-admin » 04.02.2017, 12:52

marian73 píše:Ahoj potreboval by som poradiť s tabuľkou na zoradenie údajov.
Skúsil som použiť makro v tomto príspevku, ale mi to nefunguje.
Prikladám aj tabuľku.
Ďakujem za pomoc ak sa podarí.


Ahoj Marian

S jednou drobnou úpravou (voľný riadok medzi dátum a hlavičku) som urobil makro so sortovaním nad zapnutým auto filtrom
( v hlavičke totiž používaš zlúčené bunky).

Kód: Vybrať všetko
Sub MySort_Asc()
    Call MySort_AscDesc("Vzostupne")
End Sub

Sub MySort_Desc()
    Call MySort_AscDesc("Zostupne")
End Sub

Sub MySort_AscDesc(xSmer As String)
    Dim xLastRow As Integer, xSortType
   
    xLastRow = Range("M60000").End(xlUp).Row

    If xSmer = "Vzostupne" Then
        xSortType = xlAscending
    Else
        xSortType = xlDescending
    End If
   
    Range("M5").Select
    If ActiveSheet.AutoFilterMode = False Then
        Selection.AutoFilter
    End If

    ActiveSheet.AutoFilter.Sort.SortFields.Clear
    ActiveSheet.AutoFilter.Sort.SortFields.Add Key:=Range _
        ("M5:M" & xLastRow), SortOn:=xlSortOnValues, Order:=xSortType, DataOption:= _
        xlSortTextAsNumbers
       
    With ActiveSheet.AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

P.
Nemáte oprávnenie prezerať súbory priložené v tomto príspevku.

Za tento príspevok autor Palo-admin dostal poďakovanie :
marian73
Palo-admin
Administrátor stránky
 
Príspevky: 473
Registrovaný: 18.07.2008, 16:43
Udelené poďakovania: 6 krát
Prijaté poďakovania: 63 krát

Re: Zoradiť údaje v tabuľke

Poslaťod marian73 » 04.02.2017, 19:04

Ďakujem za pomoc
marian73
 
Príspevky: 10
Registrovaný: 09.02.2014, 23:07
Udelené poďakovania: 2 krát
Prijaté poďakovania: 0 krát


Späť na Word, Excel, PowerPoint, Outlook, Access

Kto je on-line

Užívatelia prezerajúci fórum: Žiadny registrovaný užívateľ nie je prítomný a 3 hostia

cron