Tecnología

Inicio

Cómo eliminar filas de Excel basado en la fecha

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 llenarlos de información, puede haber momentos en los que la información que ha introducido 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 anteriores es la creación de una macro en Excel.

Instrucciones

1 Abra su libro en Excel. Si está utilizando Excel 2007, es necesario para mostrar la ficha "desarrolladores" si aún no lo está mostrando. 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 una nueva 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 haga clic en "Crear". Aparece el editor de Visual Basic.

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

Dim x As Long
Para x = 1 Para Cells.SpecialCells (xlCellTypeLastCell) .Row

Debug.Print Cells(x, "B").Value
If CDate(Cells(x, "B")) < CDate("12/29/2010") Then
Cells(i, "B").EntireRow.delete
End If
Next i

En la línea donde dice: "Si CDate (Cells (x," B ")) <CDate (" 12/29/2010 ") Entonces", cambiar la fecha hasta la fecha lo que es un día más alta que la fecha que desee borrar. Por ejemplo, si desea eliminar todas las filas que son anteriores a 01 de enero de 2009 a continuación, que va a cambiar la línea a:

Si CDate (Cells (x, "B")) <CDate ( "01/01/09") A continuación,

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