Sort all columns based on one colum

  • Thread starter Thread starter Greg
  • Start date Start date
G

Greg

I have column N that has data validation of only "Yes" . i would like to move
the rows with the "Yes" value in column N to the bottom of the sort.
i have a sort button with this code below. What would i need to insert to do
this?
Sub SortSunday()
'
'Sort's Sundays Qualifying'
'

ActiveSheet.Unprotect Password:=""
With ActiveSheet
With .Range("B8", .Range("N8").End(xlDown))
.Sort Key1:=.Columns(12), Order1:=xlAscending, _
Key2:=.Columns(11), Order2:=xlDescending, _
Header:=xlYes
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=""

End With
End With
End Sub

Many Thanks in Advance!
Greg
 
Thanks Bernie,
i was wondering if anyone understood what i was asking.
the column will be either blank or yes. i used data validation from list
with only yes as an option.

Thanks
Greg
 
Greg,

I have assumed that column O (the one next to N) is available for use to help with sorting.

HTH,
Bernie
MS Excel MVP

Sub SortSunday()
'
'Sort's Sundays Qualifying'
'

ActiveSheet.Unprotect Password:=""
With ActiveSheet
With .Range("B8", .Range("M8").End(xlDown).Offset(0, 2))
.Columns(.Columns.Count).Cells.FormulaR1C1 = "=IF(RC[-1]=""Yes"",1,0)"
.Sort Key1:=.Columns(14), Order1:=xlAscending, _
Key2:=.Columns(12), Order2:=xlDescending, _
Key3:=.Columns(11), Order3:=xlDescending, _
Header:=xlYes
.Columns(.Columns.Count).Cells.Clear
ActiveSheet.Protect DrawingObjects:=True, _
Contents:=True, Scenarios:=True, Password:=""
End With
End With
End Sub
 
Back
Top