Botón o Hiperenlace para volver a última celda consultada

[Prunus_avium]

Hola,

Me gustaría saber si se puede crear algún botón/hiperenlace o hay alguna manera de poder ir a la última celda consultada en Calc.

Saludos y gracias

[fornelasa]

No sé entiende, bueno, yo no entendí.
Saludos.

[mauricio]

¿a que llamas: la última celda consultada?

[Prunus_avium]

Hola,
Me refiero a la última celda que se ha visto, la última celda que tenía seleccionada. No sé si se entiende ahora.
Saludos

[fornelasa]

No se entiende, si el indicador de celda (cursor) esta en la celda A1 ¿Cuál es la ultima celda seleccionada? pues la A1
¿Te refieres a la penúltima celda seleccionada?
Saludos, Federico.

[Prunus_avium]

Sí, la penúltima celda, la anterior en la que ha estado el cursor.
Por ejemplo: estoy en la A1 y la anterior en la que he estado es la G5. Pues me refiero que si hay algun modo de crear algun recurso para ir a esa "G5"

[fornelasa]

Se ve un tema facil pero parece que no.
Ojala que lo siguiente sirva de guia para darnos una idea de (tal vez) como hacerlo:

Código: Seleccionar todo

Sub Registros()
On error Resume Next
 		doc = ThisComponent
	   hoja = doc.Sheets.GetByName("Historial")
         ad = doc.GetCurrentSelection.AbsoluteName
      For i = 1 To 18
 		hoja.GetCellByPosition(8, i - 1).String = hoja.GetCellByPosition(8, i).String
	  Next i
		hoja.GetCellByPosition(8, 18).String = ad
End Sub

sub Zir
   dim args1(0) as new com.sun.star.beans.PropertyValue
  			doc = ThisComponent
	   	   hoja = doc.Sheets.GetByName("Historial")
       	   Dato = hoja.GetCellRangeByName("I15").String
  args1(0).Name = "ToPoint"
 args1(0).Value = Dato
       document = ThisComponent.CurrentController.Frame
     dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
end sub

Se lleva un registro de las celdas que cambian en la hoja "Historial" (oculta) y despues de ahi se toma la celda previa.
Este ejemplo funciona en AOO version 4.1.3
Saludos, Federico.