OpenOffice - Macro elimina fechas antiguas

 
Vista:
sin imagen de perfil
Val: 2
Ha mantenido su posición en OpenOffice (en relación al último mes)
Gráfica de OpenOffice

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
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder