Macro eliminar filas por contenido de celda
Buenas tardes, necesito con urgencia hacer una macro con las siguientes características:
Tengo una base con listado de facturas. Uno de los campos es la fecha de vencimiento de la factura. Necesito que si la fecha de vencimiento es igual a la "fecha de hoy" (este dato esta ubicado en otra celda) entonces me elimine la fila completa de esa factura.
Espero haber sido claro... Muchas gracias
Tengo una base con listado de facturas. Uno de los campos es la fecha de vencimiento de la factura. Necesito que si la fecha de vencimiento es igual a la "fecha de hoy" (este dato esta ubicado en otra celda) entonces me elimine la fila completa de esa factura.
Espero haber sido claro... Muchas gracias
1 respuesta
Respuesta de snaki Fco
1
lo que preguntas en sensillo de hacer y es asi ;
Suponiendo que la fecha de vencimiento esta en la Celda B1
Sub elimina()
Range("B1").Select
Do While Not IsEmpty(ActiveCell)
If ActiveCell = Date Then ActiveCell.EntireRow.Delete shift = xlUp Else ActiveCell.Offset(1, 0).Select
Loop
End Sub
Esto se realizara hasta encontrar una celda en blanco.
Suponiendo que la fecha de vencimiento esta en la Celda B1
Sub elimina()
Range("B1").Select
Do While Not IsEmpty(ActiveCell)
If ActiveCell = Date Then ActiveCell.EntireRow.Delete shift = xlUp Else ActiveCell.Offset(1, 0).Select
Loop
End Sub
Esto se realizara hasta encontrar una celda en blanco.
