Jump to content

Macros/Calc/ba002/nl

From The Document Foundation Wiki
This page is a translated version of the page Macros/Calc/ba002 and the translation is 100% complete.



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