Muchas gracias Luis:
Private Sub Worksheet_Change(ByVal Target As Range)
'Hora de Inicio y fin de la limpieza
If Not Intersect(Target, Range("G20:G87")) Is Nothing And Target.Value = "I" Then
Target.Offset(0, 7).Value = Time
ElseIf Not Intersect(Target, Range("G20:G87")) Is Nothing And Target.Value = "F" Then
Target.Offset(0, 8).Value = Time
End If
If Not Intersect(Target, Range("G20:G87")) Is Nothing And Target.Value = "i" Then
Target.Offset(0, 7).Value = Time
ElseIf Not Intersect(Target, Range("G20:G87")) Is Nothing And Target.Value = "f" Then
Target.Offset(0, 8).Value = Time
End If
'Hora de Inicio y fin de los telex
If Not Intersect(Target, Range("V20:V87")) Is Nothing And Target.Value = "I" Then
Target.Offset(0, 1).Value = Time
ElseIf Not Intersect(Target, Range("X20:X87")) Is Nothing And Target.Value = "F" Then
Target.Offset(0, 1).Value = Time
End If
If Not Intersect(Target, Range("V20:V87")) Is Nothing And Target.Value = "i" Then
Target.Offset(0, 1).Value = Time
ElseIf Not Intersect(Target, Range("X20:X87")) Is Nothing And Target.Value = "f" Then
Target.Offset(0, 1).Value = Time
End If
'Fijar fecha del servicio
If Not Intersect(Target, Range("A2:A2")) Is Nothing And Target.Value = "I" Then
Target.Offset(1, 1).Value = Date
End If
'Hora de Inicio del servicio de basura
If Not Intersect(Target, Range("P20:P87")) Is Nothing And Target.Value > 0 Then
Target.Offset(0, 1).Value = Time
End If
'Hora de Inicio y fin del aspirador
If Not Intersect(Target, Range("R20:R87")) Is Nothing And Target.Value > 0 Then
Target.Offset(0, 1).Value = Time
End If
If Not Intersect(Target, Range("T20:T87")) Is Nothing And Target.Value = "f" Then
Target.Offset(0, 1).Value = Time
End If
If Not Intersect(Target, Range("T20:T87")) Is Nothing And Target.Value = "F" Then
Target.Offset(0, 1).Value = Time
End If
'Ordena al cambiar valor hora calzos
If Not Intersect(Target, Range("D20:D87")) Is Nothing Then
Range("A20:AD87").Sort key1:=Range("D20"), order1:=xlAscending, Header:=xlNo, ordercustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
End Sub
Asi es como tengo la hoja de momento gracias a ti. Necesitaría saber como puedo añadir otro criterio de ordenación en la orden:
If Not Intersect(Target, Range("D20:D87")) Is Nothing Then
Range("A20:AD87").Sort key1:=Range("D20"), order1:=xlAscending, Header:=xlNo, ordercustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
para que ordene primero por la columna D y después por la columna B.
Como no se limitar el cambio de celdas veras que he doblado algunas de tus ordenes para que acepte tanto la mayúscula como la minúscula.
Me quedan pendientes un par de preguntas que con tu permiso te realizare mas adelante.
otra vez, muchas gracias
Un saludo.