Data sorting with a twist

[Patrick Simonds]

Not sure how to ask this, but will do my best. I have the code below, which
places the contents of ListBox1 into the active cell (I use this to fill in
and edit an annual vacation calendar for a department of about 60 people).
Each day there can be up to 5 people off, so each day is made up of 5 rows.
When entering or removing names (and this is do through out the year) I
click on the first empty cell (or the cell containing the name I want to
delete), What I need is some code that will some how select all 5 rows and
sort the names.




Private Sub OK_Click()

Application.ScreenUpdating = False
On Error GoTo EndMacro
Selection = ListBox1.Value
EndMacro:
Me.Hide
Unload EmployeeList
ListBox1.ListIndex = -1
Application.ScreenUpdating = True

End Sub

 

[Tom Ogilvy]

If you want to delete the current row and 4 below it

Selection.Resize(4).EntireRow.Delete

 

[Patrick Simonds]

Not sure that reply was for my question, I am looking to sort the rows.

 

[Simon Lloyd]

Patrick,

I know this sounds like a get out but you could just record the macro.

Simon

 

[Tom Ogilvy]

I click on the first empty cell (or the cell containing the name I want
to
**delete**)

ActiveCell.Resize(5).Sort Key1:=ActiveCell Order:=xlAscending

 

[Tom Ogilvy]

oops

ActiveCell.Resize(5).EntireRow _
.Sort Key1:=ActiveCell Order:=xlAscending