MS Excel

Dobrý den, mám tabulku, kterou bych rád řadil skrz VBa na dvojklik hlavičky tabulky. Přiložený kód mi nefunguje, na kliknutí stále jen edituji buňku. Děkuji za radu, něco dělám špatně a nevím co.
Povolená makra mám.
Edit: jedná se mi u jakékoliv automatické řazení dle hlavičky (rank) při jakékoliv změně na listu. Díky moc.

Zaslat odpověď >

r13(16.4.2023 11:19)#054799

Za prvé, žiadny kód priložený nie je. Ono pokiaľ súbor má obsahovať kód VBA, musí byť uložený s príponou xlsm.
Za druhé, pokiaľ má kód fungovať na udalosť hárka, musí byť kód zadaný v module tohto hárka.
Za tretie, stojí to za riešenie cez VBA, keď kód nemá vykonávať nič iné, než ušetrenie dvoch klikov?citovat

hard(16.4.2023 11:34)#054800

Omlouvám se, kod přiložen (příloha znovu uploadována).
Za druhé by my stačilo udělat automatický sort dle hlavičky RANK. Ideálně kdyby např při změně buňky AL1 došlo ke srovnání dat dle hlavičky RANK.
Na kliknutí být nemusí, ale líbilo by se mi to řazení dle hlavičky sloupce. Viz toto video:
https://www.youtube.com/watch?v=CgxhIT42qz8&t=384scitovat

hard(16.4.2023 13:47)#054802

Private Sub Worksheet_Change(ByVal Target As Range)

Dim lastrow As Long
lastrow = Cells(Rows.Count, 2).End(xlUp).Row

If Not Intersect(Target, Range("B:B")) Is Nothing Then
Range("B3:AE" & lastrow).Sort key1:=Range("B3:AE" & lastrow), _
order1:=xlAscending, Header:=xlNo

End If
End Subcitovat

hard(16.4.2023 14:11)#054804

řadím přes tlačítko, ale není to ono...

Sub Serad_uloz()
'
' serad_uloz Makro
'
ActiveWindow.SmallScroll Down:=27
ActiveWorkbook.Worksheets("CELKEM").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("CELKEM").Sort.SortFields.Add Key:=Range("B3:B41") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("CELKEM").Sort
.SetRange Range("B3:AE41")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.Save
ActiveSheet.Range("$A$2:$AE$42").AutoFilter Field:=3, Criteria1:="<>"
End Subcitovat

hard(16.4.2023 20:20)#054805

Tak jsem si to vyřešil přes klikání na bezbarvý obrazec, taky to jde. Není to sice profi, ale funguje.citovat

Téma: automatické řazení dat

Uživatelské menu

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Aktivní diskuse

Vynásobit hodnoty kurzem - Power Query

Relativní cesta - zdroje Power Query

Vynásobit hodnoty kurzem - Power Query

Vynásobit hodnoty kurzem - Power Query

Relativní cesta - zdroje Power Query

Relativní cesta - zdroje Power Query

Relativní cesta - zdroje Power Query