Macro para eliminar filas según un horario
Hola desearía que me pudieran ayudar con una macro of2007 la cual encuentre los horarios menores a las 06:00. Ya que en una columna en la cual tengo:
02:30:00 a.m.
02:30:00 a.m.
02:35:00 a.m.
04:00:00 a.m.
04:30:00 a.m.
05:30:00 a.m.
06:00:00 a.m.
07:00:00 a.m.
07:30:00 a.m........................
08:20::00 a.m. Y asi hasta las 23:50:00 p.m.
y deseo eliminar las filas que tengan un horario menos al de las 06:00. En este caso desde las 02:30:00 a.m. hasta 4:30:00 a.m.
Gracias de antemano y saludos!!!
1 Respuesta
Respuesta de Luis Mondelo
1
Esta sería la solución. Posiciónate en la primera celda de esa columna (en este caso encima de 2:30 am) y ejecuta esta macro:
Sub borrarfilas()
Do While ActiveCell.Value <> ""
If ActiveCell.Value < TimeValue("06:00:00") Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub
