< návrat zpět

MS Excel

Téma: automatické řazení dat rss

Zaslal/a hard 16.4.2023 9:50

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.

Příloha: xlsx54798_54798_razeni_klik2.xlsx (60kB, staženo 8x)
Zaslat odpověď >
r13(16.4.2023 11:19)#054799
avatar
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
avatar
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
avatar
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
avatar
ř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
avatar
Tak jsem si to vyřešil přes klikání na bezbarvý obrazec, taky to jde. Není to sice profi, ale funguje.citovat

Uživatelské menu

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

Menu

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.

On-line nástroje