Macro elimina fechas antiguas
Publicado por Omar (1 intervención) el 20/12/2019 13:58:22
Acudo a su gentil atención para pedirles que me ayuden con este problema que me surge al tratar de adaptar una macro que encontre en excel pero necesito que funcione en Calc de la siguiente manera:
1. Que me pida una fecha en un inputbox
2. Que borre todas la información (filas completas) menores a la fecha introducida desde la fila 5 hasta la ultima fila con datos
3. Despues del borrado, que recorran las filas sin dejar espacios blancos de las filas borradas
4. Que vuelva siempre a la primera fila (fila5)
Les adjunto el archivo con el ejemplo y con la macro que no puedo hacer correr.
Gracias por su apoyo.
1. Que me pida una fecha en un inputbox
2. Que borre todas la información (filas completas) menores a la fecha introducida desde la fila 5 hasta la ultima fila con datos
3. Despues del borrado, que recorran las filas sin dejar espacios blancos de las filas borradas
4. Que vuelva siempre a la primera fila (fila5)
Les adjunto el archivo con el ejemplo y con la macro que no puedo hacer correr.
Gracias por su apoyo.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub BorrarPorFechas()
Dim fecha As Date
Dim menor As Date
With Application.ThisWorkbook.Worksheets("Base")
menor = DateValue(InputBox("dd/mm/aa"))
Range("A5").Select
Do While Not IsEmpty(ActiveCell)
fecha = DateValue(ActiveCell.Value)
If (fecha < menor) Then
Selection.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End With
End Sub
- BORRA-ANTIGUOS.rar(20,8 KB)
Valora esta pregunta
0