Ordenar datos alfabéticamente (varias columnas) en función de una
Tengo una albarán de trabajo, en el cual a partir de A23 introduzco el ID de operarios, entonces en B23 se pone automáticamente el nombre del operario. En columnas consecutivas se introducen las horas realizadas al día
Necesito ordenar los nombre alfabéticamente pero que se muevan el ID y las horas que realizan los operarios
1 respuesta
Respuesta de Adriel Ortiz Mangia
1
No me funciono no tengo un trabajo tan sencillo, pero gracias seguiré buscando
Muestra una imagen de tu hoja y el resultado deseado se entenderá mejor lo que solicitas
Te facilitaría ordenar fácilmente si organizas así a tus datos
Te paso la macro.
Lo pones en el evento change de tu hoja que vas a ordenar.
La macro ordenará automáticamente cuando ingresas el nombre
Private Sub Worksheet_Change(ByVal Target As Range)
'
'**Por.Adriel Ortiz
'
If Not Intersect(Target, Range("B:B")) Is Nothing Then
If Target.Row < 13 Then Exit Sub
Application.ScreenUpdating = False
u = Range("B" & Rows.Count).End(xlUp).Row
With ActiveSheet.Sort
.SortFields.Clear
.SortFields.Add Key:=Range("B13:B" & u), SortOn:=xlSortOnValues, Order:=xlAscending
.SetRange Range("A12:K" & u)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End If
End Sub
