• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

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

Zaslat odpověď >

---

Strana:  « předchozí  1 2

€Ł мσşqμΐτσ(18.7.2014 11:05)#020578

Private Sub CommandButton1_Click()
Dim i As Integer, x 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
x = ws.Range(sRange).Columns.Count ' počet sloupců
ws.Range(sRange).Copy
ws.Range("A56").PasteSpecial xlPasteAll, xlPasteSpecialOperationNone, False, True
Application.CutCopyMode = False

ws.Range("A56:B" & 56 + x).Sort ws.Range("B56"), xlDescending ' + počet sloupců

'Clear the worksheet object
Set ws = Nothing
End Subcitovat

Plavacek(18.7.2014 12:23)#020579

Super díky!citovat

Strana:  « předchozí  1 2

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse