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