Notifications
Clear all

VBA 3 casas decimais

8 Posts
3 Usuários
0 Reactions
1,594 Visualizações
(@neri-s)
Posts: 0
New Member
Topic starter
 

Bom dia
Sei que já utilizei o comando porém não me lembro mais como fazer.
Tenho uma VBA que envia dados para a planilha pelo Formulário, mas preciso que seja alterado e envie 3 casas decimais. A fórmula atual é:
.Cells(indice, colCouro).Value = Format(txtcouro.Value, "#,##0.00")

também já utilizei a formula CCUR
.Cells(indice, colCouro).Value = ccur(txtcouro.Value)

ambas enviam 2 casas decimais.

Preciso que sejam 3 casas decimais pois é um preço por exemplo: 15,134 que será utilizado para outros cálculos.

 
Postado : 21/04/2017 6:06 am
(@osvaldomp)
Posts: 857
Prominent Member
 
  "#,##0.000"
 
Postado : 21/04/2017 6:17 am
(@neri-s)
Posts: 0
New Member
Topic starter
 

Amigo
foi isto que eu fiz...mas aí ele envia para a planilha 15.134,000

 
Postado : 21/04/2017 6:37 am
(@osvaldomp)
Posts: 857
Prominent Member
 

Amigo, você poderia disponibilizar uma amostra do seu arquivo?

 
Postado : 21/04/2017 6:44 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Experimente utilizar Cdbl
.Cells(indice, colCouro).Value = Cdbl(txtcouro.Value)

 
Postado : 21/04/2017 6:52 am
(@neri-s)
Posts: 0
New Member
Topic starter
 

Era o CDBL mesmo....este funciona.
Obrigado amigos

 
Postado : 21/04/2017 6:57 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

NERI S

Você já tem quase um ano de fórum e nunca utilizou a ferramenta (mãozinha que fica do lado do Citar) para agradecer aos colaboradores do fórum, pois o teu contador de agradecimentos está zerado.

acesse o link abaixo, para ver como proceder para agradecer e para marcar o tópico como Resolvido:

viewtopic.php?f=7&t=16757

[]s

Patropi - Moderador

 
Postado : 21/04/2017 1:23 pm
(@neri-s)
Posts: 0
New Member
Topic starter
 

Patropi
Desculpe, realmente estava desatento a este caso. Poxa, já agradeci as pessoas nas postagens e isto me passou.
Obrigado por me avisar.

Abraço

 
Postado : 25/04/2017 3:50 am