Excel - Sortowanie za pomocą przycisku opcji z karty Dewelopera - porada  

Witam, Strasznie rozbudowałeś prosty problem. Niestety pokazany przez Ciebie sposób jest bardzo nieefektywny i czasochłonny. Podobną funkcjonalność wykonałem w 2 minuty rejestrując 2 makra i przypisując je do klawiszy. Moje makra działają w ciągu sekundy na arkuszu z 250 000 wierszy, a Twoje formuły działały dobrze na 20 wierszach. Jak próbowałem je przekopiować na 250 000 wierszy to niestety excel nie dawał rady i się wieszał. Pokazałeś fajne formuły, ale sposób rozwiązania tego konkretnego problemu skomplikowałeś jak tylko można. Dzięki za filmik. Pozdrawiam kod moich makr - sama rejestracja, nic nie edytowane. Sub SortDate() ' ' SortDate Makro ' ' Range("B5").Select ActiveWorkbook.Worksheets("Oakland").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Oakland").Sort.SortFields.Add Key:=Range("B5"), _ SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Oakland").Sort .SetRange Range("A6:D250550") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub Sub SortSales() ' ' SortSales Makro ' ' Range("C5").Select ActiveWorkbook.Worksheets("Oakland").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Oakland").Sort.SortFields.Add Key:=Range("C5"), _ SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Oakland").Sort .SetRange Range("A6:D250550") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub