Autor Zpráva
Michales
Profil
Ahoj všem.

Děláme s dcerou úkol do školy a zasekly jsme se na automatickém řazení tabulky při zápisu do ní.

Veškeré zápisy jsme vyřešili a zdá se že fungují, nyní bychom potřebovali aby se po zápisu do tabulky sama seřadila podle počtu bodů.
Můžete nám zde někdo pomoci?

Díky předem.

Tabulka: drive.google.com/file/d/0B0P0rFdHdMc_akpGdzhuYk1xMjA/view?usp=sharing
Mistr
Profil
Michales:
Je možné použít makra?
Michales
Profil
Mistr:
Ano lze
Mistr
Profil
Michales:
Pomůže toťto?
Michales
Profil
Mistr:
Použil jsem toto makro:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not (Application.Intersect(Worksheets(1).Range("C13:G40"), Target) Is Nothing) Then
        DoSort
    End If
    If Not (Application.Intersect(Worksheets(1).Range("O13:S40"), Target) Is Nothing) Then
        DoSorts
    End If
End Sub


Private Sub DoSort()
    Worksheets(1).Range("A2:K9").Sort Key1:=Worksheets(1).Range("K2"), Order1:=xlDescending, _
        Key2:=Worksheets(1).Range("J2"), Order2:=xlDescending, Header:=xlYes
End Sub

Private Sub DoSorts()
    Worksheets(1).Range("M2:W9").Sort Key1:=Worksheets(1).Range("W2"), Order1:=xlDescending, _
        Key2:=Worksheets(1).Range("V2"), Order2:=xlDescending, Header:=xlYes
End Sub
Funguje jak má, díky.
Mistr
Profil
Michales:
Gratuluji.

Vaše odpověď

Mohlo by se hodit

Zvažte, zda se neobrátit na specializované fórum, toto se zabývá především webovou problematikou.

Prosím používejte diakritiku a interpunkci.

Ochrana proti spamu. Napište prosím číslo dvě-sta čtyřicet-sedm: