Ultima Linha utilizada no Calc

[Crafteribanez]

Boa Tarde:

Estou começando a desenvolver macros no Calc, venho do Excel.
No Excel para encontrar a última linha utilizada de uma planilha utilizo o seguinte código:

Dim UltimaLinha as Long

UltimaLinha = Worksheets(“Plan1”).Cells(Rows.Count, “A”).End(xlUp).Row, ’ isto me retorna na variável UltimaLinha o número da última linha utilizada na colula A da planilha plan1.

Gostaria de fazer o mesmo procedimento no Calc, qual a função utilizar do LibreOffice ?

Estou desenvolvendo uma planilha de Price e SAC, para apagar os registros anteriores, preciso saber qual a última linha utilizada para selecionar da linha inicial dos meses até a UltimaLinha ou seja o último mês calculado da tabela.

Grato.

[schiavinatto]

Se a primeira linha é conhecida: Estando em uma celula desta linha, e tenha certeza que não exista celula vazia nesta coluna, segue um exemplo de Macro…

sub Teste
dim document   as object
dim dispatcher as object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "By"
args1(0).Value = 1
dispatcher.executeDispatch(document, ".uno:GoDownToEndOfDataSel", "", 0, args1())
dispatcher.executeDispatch(document, ".uno:DeleteRows", "", 0, Array())
end sub

---

Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha a esquerda da resposta, para finalizar a pergunta.

[WBastos]

Vou deixar o código que utilizo para futuras consultas:

Option Explicit 
'---------------------------
    Private nLinha As Long
    Private fServico
    Private oPlan As Object
'---------------------------
    Sub UltimaLinha
    	oPlan = ThisComponent.Sheets.getbyName("NomeDaPlanilha")
    	fServico = CreateUnoService("com.sun.star.sheet.FunctionAccess")
    	nLinha = fServico.CallFunction("COUNTA" , array(oPlan.getCellRangeByName("A:A"))) + 1
    End Sub