Textbox com Formato em moeda (R$ 12.000,00) e que retorne para planilha como moeda para poder somar

Question

Olá... como está aparecendo na planilha...? Para não ter problemas com a formatação você pode fazer um format.. ou seja... FormatNumber(Sua_variável,2)

2 quer dizer duas casas decimais... dessa forma ele já estará configurado para número e quando for lançado na planilha basta configurar a coluna para R$...

O problema de se configurar numa textbox o formato R$ é que o excel não vai aceitar esse valor como um número... isso pode gerar erro em somas ou ao tentar incorporar alguma variável...

justo isso, na textbox ja esta certo, o valor fica certinho em R$ mas quando mando para planilha vai . mas reconhece com texto e pede para converter em numero.

Nome Valor

evm R$ 33,40

evm R$ 33,40

evm R$ 33,40

evm R$ 33,40

ai não faz soma,

queria um jeito de acertar isso para não precisar corrigir manualmente, 

eu fiz assim:

Private Sub enviar_Click()

Enviando

'para fazer o txtbox retorna valor R$ para a célula'

'num = Len(Me.txtValor)

'txtValor.Value = CCur(Right(txtValor, num - 3))

End Sub

Private Sub txtValor_AfterUpdate()

txtValor = Format(txtValor.Text, "R$ #,###0.00")

End Sub

Private Sub UserForm_Click()

End Sub

e  para eviar para planilha assim:

Sub abrir()

Moeda.Show

End Sub

Sub Enviando()

linha = 2

Do Until Sheets("clientes").Cells(linha, 1) = ""

linha = linha + 1

Loop

Sheets("clientes").Cells(linha, 1) = Moeda.txtnome.Text

Sheets("clientes").Cells(linha, 2) = Moeda.txtValor.Text

End Sub

Answer 1

Olá, EdivaldoMecenas! Tudo bem?

Para obter maiores esclarecimentos sobre o seu questionamento, peço a gentileza de acessar o link abaixo que vai direcioná-lo ao MSDN e TECHNET que são fóruns especialmente destinados para desenvolvedores e profissionais em TI.

:: MSDN ::

:: TECHNET ::

Agradeço a compreensão!

Até mais,