Translations:Macros/Calc/ba001/6/en

From The Document Foundation Wiki
Jump to: navigation, search

doc = ThisComponent

   sheet = doc.CurrentController.ActiveSheet
   cell = sheet.getCellRangeByName(CELL_NAME_SOURCE)

   If cell_source.Type = 1 Then
       cell.Value = cell_source.Value
   ElseIf cell_source.Type = 2 Then
       cell.String = cell_source.String
   Else
       cell.Formula = cell_source.Formula
   End If

End Sub