Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sorting, one last time
Embrassed to ask again but I've tried everything. The code is finally working
as is the command button but it's not sorting Column "D" I need it to sort only Column's A,B,C,D Private Sub CommandButton1_Click() Me.CommandButton1.Caption = "Sort" Dim rng As Range, rng1 As Range With Worksheets("HList") Set rng = .Range(.Cells(3, "A"), .Cells(Rows.Count, "A").End(xlUp)) Set rng1 = .Cells(3, "A").End(xlToRight) Set rng = rng.Resize(, rng1.Column) rng.Sort _ Key1:=.Range("A3"), _ Order1:=xlAscending, _ Header:=xlNo End With Application.OnTime Now + TimeSerial(0, 0, 2), _ ThisWorkbook.Name & "!ResetCaption" CommandButton1.Caption = "Sorting..." End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Real-time sorting | Excel Discussion (Misc queries) | |||
Sorting time formats | Excel Discussion (Misc queries) | |||
Sorting time in Excel | Excel Discussion (Misc queries) | |||
sorting time format | Excel Discussion (Misc queries) | |||
sorting time in a column | Excel Programming |