< návrat zpět

MS Excel


Téma: Seřazení a vypsání hodnot rss

Zaslal/a 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

Zaslat odpověď >

Strana:  1 2   další »
#020545
avatar
Odpověděl jste si sám,pouzijte záznamník maker a nahrané přiřaďte k tlačítkucitovat
#020546
avatar
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
#020547
€Ł мσşqμΐτσ
co tohle viz přílohu
Příloha: zip20547_serad.zip (12kB, staženo 23x)
citovat
#020548
avatar

mosquito791 napsal/a:

co tohle viz přílohuPříloha: 20547_serad.zip


Jo tak to je luxus, díky 1 1citovat
#020550
avatar
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
#020552
€Ł мσşqμΐτσ
Asi takhle nějak?
Příloha: zip20552_serad.zip (16kB, staženo 22x)
citovat
#020554
avatar
díky :)citovat
#020574
avatar
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říloha: rar20574_prehled.rar (14kB, staženo 21x)
citovat
#020575
Opičák
ws.Range("A56:B68").Sort ws.Range("B56"), xlDescending

oblast je nastavena na 13 řádkůcitovat
#020576
avatar
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

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09