Macro Elimina Filas con fechas antiguas

[oolivares]

Hola expertos:

nuevamente 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.

[oolivares]

Amigos:

por favor su ayuda para poder hacer que funcione esta macro en Calc.

gracias.......

[FJCC-ES]

Código: Seleccionar todo

Sub BorrarPorFechas()
 
oBase = ThisComponent.Sheets.getByName("Base")
oCurs = oBase.createCursor()
oCurs.gotoEndOfUsedArea(FALSE)
UltRow = oCurs.RangeAddress.EndRow
oFilas = oBase.getRows()
 
menor = DateValue(InputBox("dd/mm/aa"))
 
for i = UltRow to 4 step -1
  oCelda = oBase.getCellByPosition(3, i)
  If (oCelda.Value < menor) Then
	oFilas.removeByIndex(i, 1) 
  End If
next i
oCeldaA5 = oBase.getCellbyPosition(0,4)
ThisComponent.CurrentController.select(oCeldaA5)
End Sub

[oolivares]

Muchas gracias por la respuesta FJCC-es:

Ahora la macro funciona correctamente y puedo concluir esta tarea pendiente.

Gracias nuevamente.