Cómo eliminar filas de Excel basado en la fecha

Para obtener el máximo rendimiento de Microsoft Excel , usted tiene que aprender a utilizar las macros y programación VBA. A medida que crea hojas de cálculo y llenar con información , puede haber momentos en que usted tiene la información de entrada ya no es válido . Esto es especialmente cierto para las filas de información que son de fechas anteriores . Una forma rápida y fácil de eliminar las filas de datos en base a fechas pasadas es la creación de una macro en Excel. Cosas que necesitará
Microsoft Excel
Basic Excel Experiencia
Ver Más instrucciones
1

abrir su libro en Excel . Si utiliza Excel 2007 , debe mostrar la ficha " Developer ", si aún no lo está demostrando. Para ello, haga clic en el botón "Office" y luego " Opciones de Excel ". Haga clic en " Mostrar ficha Programador " y haga clic en " Aceptar".
2

Crear un nuevo macro. En Excel 2007, haga clic en la ficha Programador y luego "Macro ". En versiones anteriores, haga clic en "Herramientas" en la barra de herramientas y luego en " Macro ". Nombre de la macro, " DeleteRowbyDate " y luego haga clic en " . ; Crear " aparece el editor de Visual Basic
3

Copia y pega el siguiente código en el editor de Visual Basic entre las líneas , Sub DeleteRowbyDate () y End Sub :
.

x As Longfor x = 1 Para Cells.SpecialCells ( xlCellTypeLastCell ) . RowDebug.Print Cells ( x , "B ") . ValueIf CDate ( Cells (x , "B ")) < CDate ( " 12/29/2010 ") ThenCells ( i ," B ") . EntireRow.deleteEnd IfNext I Love

En la línea donde dice :" Si CDate ( Cells ( x , "B ")) < CDate ( " 12/29/2010 ") Then " , cambiar la fecha de la fecha de vencimiento es un día mayor que la fecha que desea eliminar . Por ejemplo, si desea eliminar todas las filas anteriores a 1 de enero 2009 , entonces cambie la línea a:

Si CDate ( Cells ( x , "B ")) < CDate ( " 01/01/09 ") Luego
4

Cierre el editor de Visual Basic . Se guarda automáticamente en la macro. Si desea ejecutar la macro y eliminar las filas , volver a " Macros " , seleccione la macro " DeleteRowsbyDate " y haga clic en " Ejecutar".