Boa noite, tudo bom?

1 - Experimente o seguinte código para realizar o preenchimento:

cells(1,3) = conversion.cdbl(VBA.Format(txt_Valor.text, "#,##0.00"))

2 - Na aba, já deixe formatadas como "Contábil" as células que receberão os dados.

Avise se der certo.

Abs

https://br.linkedin.com/in/consultorgabrielsoares

Creio ser o mesmo que em viewtopic.php?f=10&t=23471

Implementei o sugerido pelo GabrSoares, funciona, mas queria que não utiliza-se a linha 1 coluna 3, ou seja, que roda-se de uma forma direta.
É sobre o mesmo assunto sim, mas fiz as adaptações sugeridas, só que não roda como moeda para a tabela. Obrigado.
Att.,
RM

Boa tarde!

Fico feliz por minha planilha estar sendo útil para vocês!

Bom... fiz as alterações no "txt_Valor".

Aproveitei e mudei a mensagem que obriga o preenchimento do "Ano" (que antes estava Empresa)

Abraços e bom proveito!

Rui, tudo bom?

Inclui um exemplo preenchendo a célula C1 (cells(1,3)) para simplificar o entendimento.

De qualquer forma, é possível flexibilizar no código qual célula receberá o valor. Por exemplo:

Dim intLinha as Integer
Dim intCol as Integer

intLinha = 1
intCol =3

cells(intLinha,intCol) = conversion.cdbl(VBA.Format(txt_Valor.text, "#,##0.00"))