Odpověděl jste si sám,pouzijte záznamník maker a nahrané přiřaďte k tlačítkucitovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Seřazení a vypsání hodnot
MS Excel
Téma: Seřazení a vypsání hodnot 
Zaslal/a Plavacek 16.7.2014 14:33
Zdravím, chtěl bych se zeptat, jakým způsobem by bylo nejlepší seřadit hodnoty od největší po nejmenší s tím, že by se vypsaly do sloupců A59 a dolů(Nadpisy) a B59 a dolů(Hodnoty). Momentálně jsou ta data A4:M4 (nadpisy) A5:M5 (hodnoty). Chtěl bych to ideálně nahrát záznamníkem do VBA a hodit to na tlačítko. Díky
(16.7.2014 15:08)#020545
Ano, ale jak to seřadit, aby se to vypsalo do těch 2 sloupců? Mám několik listů kde bych tohle rád aplikovalcitovat
co tohle viz přílohu
Příloha: 
20547_serad.zip (12kB, staženo 23x)
citovat20547_serad.zip (12kB, staženo 23x)
Ještě mně něco napadlo. Dalo by se to udělat tak, že že by se ty hodnoty rozsahu braly někde přímo z buňek? Tak aby se např. na každým listu do určitých buňek vepsala např:
A53 - zde by byl uveden rozsah tabulky nadpisů a dat (např A4:M5)
A54 - zde by byla uvedena buňka od které se má odstartovat to vypisování (Teď je to A56 a B56)
dík.citovat
A53 - zde by byl uveden rozsah tabulky nadpisů a dat (např A4:M5)
A54 - zde by byla uvedena buňka od které se má odstartovat to vypisování (Teď je to A56 a B56)
dík.citovat
Asi takhle nějak?
Příloha: 20552_serad.zip (16kB, staženo 22x)
citovat20552_serad.zip (16kB, staženo 22x)Narazil jsem na menší problém. Hodil jsem tam svůj kód aby to bylo nastavené pro activesheet. Řadí se to nějak divně. Prvních 13 hodnot se seřadí a vypíše správně, následující 3 ale špatně (seřadí se na konec, i když nejsou nejmenší).
Připojuju soubor a kód:
Private Sub CommandButton1_Click()
Dim i As Integer
Dim sRange As String
Dim ws As Worksheet
Application.ScreenUpdating = False
'Set the Worksheet object to the Active Sheet
Set ws = ActiveSheet
'Get the range from the Range Cell
sRange = Range("A53").Value
ws.Range(sRange).Copy
ws.Range("A56").PasteSpecial xlPasteAll, xlPasteSpecialOperationNone, False, True
Application.CutCopyMode = False
ws.Range("A56:B68").Sort ws.Range("B56"), xlDescending
'Clear the worksheet object
Set ws = Nothing
End Sub
Připojuju soubor a kód:
Private Sub CommandButton1_Click()
Dim i As Integer
Dim sRange As String
Dim ws As Worksheet
Application.ScreenUpdating = False
'Set the Worksheet object to the Active Sheet
Set ws = ActiveSheet
'Get the range from the Range Cell
sRange = Range("A53").Value
ws.Range(sRange).Copy
ws.Range("A56").PasteSpecial xlPasteAll, xlPasteSpecialOperationNone, False, True
Application.CutCopyMode = False
ws.Range("A56:B68").Sort ws.Range("B56"), xlDescending
'Clear the worksheet object
Set ws = Nothing
End Sub
Příloha: 20574_prehled.rar (14kB, staženo 21x)
citovat20574_prehled.rar (14kB, staženo 21x)Aha, a dalo by se to nějak udělat aby se to automaticky přepočítalo podle té tabulky, která má definici v buňce A53? (Je to ta horizontální). Že by byl rozsah řádků podle toho, kolik je položek v tabulce, která je definována v A53citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články