[Risolto] Copiare solo numeri o solo testo da macro

[il Luca]

Volendo copiare solo il valore delle celle C3:C12, non la formula, come dovrei modificare la macro?
Se invece le celle A3:B12 contenessero testo, e parimenti volessi copiare solo il testo risultante di C3:C12?

Sub Main

Dim CellRangeAddress As New com.sun.star.table.CellRangeAddress
Dim CellAddress As New com.sun.star.table.CellAddress

Doc = ThisComponent
Sheet = Doc.Sheets(0)

CellRangeAddress.Sheet = 0
CellRangeAddress.StartColumn = 2
CellRangeAddress.StartRow = 2
CellRangeAddress.EndColumn = 2
CellRangeAddress.EndRow = 11

CellAddress.Sheet = 0
CellAddress.Column = 3
CellAddress.Row = 2

Sheet.copyRange(CellAddress, CellRangeAddress)

End Sub

[il Luca]

Scusate, ho allegato il file sbagliato. Qui c'è quello giusto.

[patel]

Codice: Seleziona tutto

Sub CopyValues1 
Sheet = ThisComponent.Sheets(0)
Sheet.getCellRangeByName("D3:D12").setDataArray(Sheet.getCellRangeByName("C3:C12").getDataArray
End Sub

[il Luca]

Fantastico! Grazie mille!