Finding last used cell in a range
Posted: Fri Jun 30, 2017 10:36 am
How would I go about finding the last cell with data in a range and or a rangename?
My searches have been in vain.
Thanks
My searches have been in vain.
Thanks
User community support forum for Apache OpenOffice, LibreOffice and all the OpenOffice.org derivatives
https://forum.openoffice.org/en/forum/
Code: Select all
Function getUsedRange(oSheet)
Dim oRg
oRg = oSheet.createCursor()
oRg.gotoStartOfUsedArea(False)
oRg.gotoEndOfUsedArea(True)
getUsedRange = oRg
End Function
Function getCurrentRegion(oRange)
REM rectangle of adjacent non-empty cells
Dim oCursor
oCursor = oRange.getSpreadSheet.createCursorByRange(oRange)
oCursor.collapseToCurrentRegion
getCurrentRegion = oCursor
End Function
Function getMergedRegion(oRange):
REM Get merged range around given range.
Dim oCursor
oCursor = oRange.getSpreadsheet().createCursorByRange(oRange)
oCursor.collapseToMergedArea()
getMergedRegion = oCursor
End Function
Function getCurrentArray(oCell)
REM area of current array formula
Dim oCursor
oCursor = oCell.getSpreadSheet.createCursorByRange(oCell)
oCursor.collapseToCurrentArray
getCurrentArray = oCursor
End Function
Then you should know what a function does.Fraz627 wrote:Whie I'm new to Open office, been programing for years in VBA.