Eliminar filas segun contenido
Publicado por mariela (5 intervenciones) el 04/01/2016 18:39:47
HOLA!!
es mi primera pregunta en este foro, espero me puedan ayudar.
Me gustaría realizar una macro para mi trabajo. La macro consiste en eliminar todas las FILAS desde cierto horario hacia atrás y cierto horario hacia adelante.
Ej: Necesito eliminar todas las FILAS que tengan un horario menor a las 7.00 AM del día de ayer y todas las FILAS que tengan un horario mayor a las 7.00 AM pero del día de hoy.
Dejare una imagen adjunta para que se entienda la idea.
Ademas adjunto planilla de excel.
Tengo un código que hace algo parecido pero con las celdas que contienen la frase "NCD1" que es un tipo de almacén que debo borrar todos los días.
Sub Borrarncd1()
With Application.ThisWorkbook.Worksheets("Notificaciones")
Range("D6").Select
Do While Not IsEmpty(ActiveCell)
If ActiveCell.Value = "NCD1" Then
Selection.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End With
End Sub
es mi primera pregunta en este foro, espero me puedan ayudar.
Me gustaría realizar una macro para mi trabajo. La macro consiste en eliminar todas las FILAS desde cierto horario hacia atrás y cierto horario hacia adelante.
Ej: Necesito eliminar todas las FILAS que tengan un horario menor a las 7.00 AM del día de ayer y todas las FILAS que tengan un horario mayor a las 7.00 AM pero del día de hoy.
Dejare una imagen adjunta para que se entienda la idea.
Ademas adjunto planilla de excel.
Tengo un código que hace algo parecido pero con las celdas que contienen la frase "NCD1" que es un tipo de almacén que debo borrar todos los días.
Sub Borrarncd1()
With Application.ThisWorkbook.Worksheets("Notificaciones")
Range("D6").Select
Do While Not IsEmpty(ActiveCell)
If ActiveCell.Value = "NCD1" Then
Selection.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End With
End Sub
- Act-Notificacionesliviano.rar(470,4 KB)
Valora esta pregunta
0