Macro para ordenar una tabla según niveles

[phoboslu]

Macro para ordenar una tabla por grupo y subgrupo

Buenos días a todos, este es el primer tema que publico. la cuestión es que tengo una tabla con los nombres de los compañeros que va desde [b7:O110]. he creado una macro para ordenarlas por turno de trabajo, el cual esta en la columna [D], pero me gustaría que a la vez me lo ordenara por Categoría [columna C] y por grupo [Columna E].

Me he atascado y no puedo seguir. Os dejo la macro que he hecho para que me sugiráis cambios o añadidos.

Sub ORDENAR()

'

' ORDENAR por Turno

uf = Sheets("Empleados").Range("B" & Cells.Rows.Count).End(xlUp).Row

Range("B5:I" & uf).Select

ActiveWorkbook.Worksheets("Empleados").Sort.SortFields.Clear

ActiveWorkbook.Worksheets("Empleados").Sort.SortFields.Add Key:=Range("D5"), _

SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

With ActiveWorkbook.Worksheets("Empleados").Sort

.SetRange Range("B5:O110")

.Header = xlNo

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

End Sub

Gracias de antemano.

Libro1.rar

[phoboslu]

Lo siento, el archivo no subió bien, ya esta solucionado

[phoboslu]

Ya esta solucionado.

Tema Cerrado