Célula perdendo a Formatação

Boa Tarde

Tenho uma Planilha onde tenho formatação nas células

Preciso atraves de Macro passar um valor desta Variáveis para a Célula

  oPlan.getCellRangeByName("G12").String =  Variaveis_Globais.eValorA  

porém a célula fica sem a formatação de MOEDA … Como fazer para manter a formatação

Obg

A célula que recebe já esta formatada ?

ou

Usar Copiar e Colar ?

Gilberto boa noite

Obrigado

Esses Valores vem atraves de Macro

Eu passo o valor de uma célula para uma variavel de uma Planilha

e depois jogo essa variavel para a célula correspondente de outra planilha

'Pegar o valor do campo de uma célula de uma planilha

Variaveis_Globais.eValorA = oPlan.getCellRangeByName(“G12”).String

’ Agora ja estou com outra Planilha Ativa e uero recuperar este Valor

  ' Atribui  o valor da variavel para a Célula de outra planilha ATIVA
oPlan.getCellRangeByName("G12").String =  RetornarNumero(Variaveis_Globais.eValorA)

Mas perde a formtação e ate a definicao dos DADOS

obg

Quando menciona de uma planilha para outra, esta falando de arquivos diferentes, é isso ?

Sim … Eu abro e copio . Os Valores das Variáveis estão vindo certo

obg

EDITADOO***************

Um Simples Macro escrito assim ja perde a formatação

sub teste
  dim oPlan AS Object
   oPlan = ThisComponent.Sheets.getByName("Custo")  
  oPlan.getCellRangeByName("G15").String = 5.00
end sub

Tem outra forma de atribuição que não seja

 oPlan.getCellRangeByName("G15").String

Obg

Se a informação é fixa do ArquivoUm.G15 e vai levar para o Arquivo2.D10 (por exemplo),

então, da segunda em D10, faça a referencia diretamente na célula,

='file:///C:/Users/GILBERTO/Desktop/ArquivoUm.ods'#$Plan1.G15

Assim toda vez que abrir o arquivo, ele pergunta se quer atualizar.

Isso mesmo com Value deu certo

Obg

Acho que o problema é que vc está escrevendo uma string não um número.
Tente assim:

sub teste
  dim oPlan AS Object
   oPlan = ThisComponent.Sheets.getByName("Custo")  
  oPlan.getCellRangeByName("G15").Value = 5.00
end sub