Macro para mantener base de datos en excel solo con 2000 filas
Tengo una base de datos que se va alimentando por hora, se acumulan por día más de 100 filas nuevas, quiero crear una macro en vba para que se borren los antriores a los 2000 registros automáticamente
1 Respuesta
Respuesta de Abraham Valencia
1
Gracias por responder, me refiero a borrar los más antiguos, por ejemplo cuando la base de datos llegue a 2001, borrar el registro 1 para que siempre sean 2000
Suponiendo que en la fila 1 tienes encabezados, que los registros comienzan en la fila 2 y que apenas llegues a 2000 registros quieres siempre borrar el primero (o sea la fila 2), entonces, usando el evento "Change" podría serte útil algo así:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rango As Range
Dim nFilas As Integer
Set Rango = Range("A1").CurrentRegion
Let nFilas = Rango.Rows.Count
If nFilas >= 16 Then
Range("A2").EntireRow.Delete
End If
End SubAdáptalo a tus necesidades
Abraham Valencia
