Sub Ugras_a_kovetkezo_munkalap_ugyanazon_cellatartomanyara

oDoc = ThisComponent
oView = oDoc.getCurrentController()
oSheet= oView.getActiveSheet()
oSel = oDoc.getCurrentSelection()
oAddr = oSel.getRangeAddress()

FromSheet = oAddr.Sheet

nSCol = oAddr.StartColumn
nSRow = oAddr.StartRow
nECol = oAddr.EndColumn
nERow = oAddr.EndRow

ToSheet = FromSheet + 1

Ugras(ToSheet+1)
'Figyelni kell a 0-tól számoló "oAddr.Sheet" függvény, meg az 1-től számoló "Jump" számozására...

oNewView = oDoc.getCurrentController()
oNewSheet = oNewView.getActiveSheet()
oNewView.select(oNewSheet.getCellRangeByPosition(nScol, nSRow, nECol, nERow))

end sub


Sub Ugras_az_elozo_munkalap_ugyanazon_cellatartomanyara

oDoc = ThisComponent
oView = oDoc.getCurrentController()
oSheet= oView.getActiveSheet()
oSel = oDoc.getCurrentSelection()
oAddr = oSel.getRangeAddress()

FromSheet = oAddr.Sheet

nSCol = oAddr.StartColumn
nSRow = oAddr.StartRow
nECol = oAddr.EndColumn
nERow = oAddr.EndRow

ToSheet = FromSheet - 1

Ugras(ToSheet+1)
'Figyelni kell a 0-tól számoló "oAddr.Sheet" függvény, meg az 1-től számoló "Jump" számozására...

oNewView = oDoc.getCurrentController()
oNewSheet = oNewView.getActiveSheet()
oNewView.select(oNewSheet.getCellRangeByPosition(nScol, nSRow, nECol, nERow))

end sub

sub Ugras(Munkalapszam as integer)
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Nr"
args1(0).Value = Munkalapszam

dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args1())
end sub