Macros/Calc/ba002/nl
Appearance
TDF LibreOffice Document Liberation Project Blogs gemeenschap Weblate Nextcloud Redmine Ask LibreOffice Doneren
Beschrijving
Kopieer gegevens van een rij van het werkblad naar een ander werkblad. Kopieer gegevens in de volgende vrije cel.
Basic code
Sub Main()
SHEET_SOURCE = "Source"
RANGE_SOURCE = "A2:E2"
SHEET_TARGET = "Target"
CELL_TARGET = "A1"
doc = ThisComponent
source = doc.Sheets.getByName(SHEET_SOURCE)
target = doc.Sheets.getByName(SHEET_TARGET)
range = source.getCellRangeByName(RANGE_SOURCE)
cell = target.getCellRangeByName(CELL_TARGET)
next_free_cell = get_next_free_cell(cell)
source.copyRange(next_free_cell.CellAddress, range.RangeAddress)
'Als u de bron opschoont, dan 31 alleen gegevens opschonen, niet het format
range.clearContents(31)
End Sub
Function get_next_free_cell(cell)
cursor = cell.SpreadSheet.createCursorByRange(cell)
cursor.gotoEnd()
col = cell.CellAddress.Column
row = cursor.RangeAddress.EndRow + 1
get_next_free_cell = cell.SpreadSheet.getCellByPosition(col, row)
End Function