Copiar e Colar dados sem o cursor ir ao local,,,,

[schiavinatto]

Tenho este comando…

' OBTER DADOS (VISIVEIS)
	oPlan1$ = "Planilha2"
	oArea$  = "A2:C2"
	Dim oData As Variant
	oData = ThisComponent.getSheets.getByName( oPlan1 ).getCellRangeByName( oArea ).getDataArray()
'	OS VALORES SÃO ASSIM : oData(0)(0) , SENDO LINHA X COLUNA DA AREA

que copia todos os dados da área informada, para acessa-los é de forma oData(0)(0), um a um.

A PERGUNTA, uma maneira de colar todos, em único comando, quando área de cópia e área de colagem forem idênticos.

---

Seria idêntico ao comando COPY e PASTE, mas com a vantagem da tela não ficar pulando entre planilhas.

[schiavinatto]

Encontrei algo parecido, mas quando tem formula, é copiada, e não os valores visíveis das células.

https://wiki.documentfoundation.org/Macros/Calc/ba002

[WBastos]

Segue sugestão:

Sub CopySheetValues
	Dim SourceRange As Object
	Dim TargetRange As Object
	Dim wSheet 		As Object 

	
	wSheet = ThisComponent.getSheets().getByName("Source")
	oCursor = wSheet.createCursor()
	oCursor.GotoEndOfUsedArea(True)
	nLinha = oCursor.RangeAddress.EndRow + 1
	
	SourceRange = wSheet.getCellRangeByName("A2:C" & nLinha).getDataArray()
	TargetSheet = ThisComponent.getSheets().getByName("Target").getCellRangeByName("A2:C" & nLinha)


	TargetSheet.setDataArray(SourceRange)
	MsgBox "Concluido com sucesso!" & " - "  , 64 , "Informe"
	
End Sub