Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
TexoBox salvar na c...
 
Notifications
Clear all

TexoBox salvar na célula como valor

 
2024 - VBA & Macros
14 Posts
2 Usuários
0 Reactions
2,191 Visualizações
RSS
 Edmaxy
(@edmaxy)
Posts: 54
Trusted Member
Topic starter
 

Bom dia

Amigos estou com um probleminha e venho pedir ajuda a quem possa me ajudar :D

Estou com uma planilha e na qual uso uns Textbox para fazer uma multiplicação e depois como um comando eu salvo o resultado na planilha.
O problema é que ele sempre salva como "personalizado" e quando pesso para a firmula (soma na caso) de varios resultados a formula não funciona.

gostaria que salvasse como moeda pois quando isso acontece (e só acontece so o valor for inteiro, EX: 400,00) a formula funcina normalmente.

segue o código que estou usando nas textbox:

Private Sub TextBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox6.Text = Format(TextBox6.Text, "")
End Sub

Private Sub TextBox7_Change()
Dim a, b, c As Double

a = Me.TextBox6.Value
b = Me.TextBox7.Value
If Me.TextBox7.Value <> Empty Then
c = b * a
Me.TextBox8 = Format(c, "")

Else
Me.TextBox8.Text = Format("")
End If
End Sub

Private Sub TextBox7_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.TextBox7.Text = Format(Me.TextBox7.Text, "#,##0.00")
End Sub

desde já agradeço.

Edmaxy

 
Postado : 14/02/2013 8:27 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Eu não entendi muito bem...

Private Sub CommandButton1_Click()
[A1] = Format(Me.TextBox8.Text, "R$#,##0.00")
End Sub

Caso contrário poste sue arquivo compactado!!

Att

 
Postado : 14/02/2013 8:40 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Voce não informou o principal, como é "gravado" o valor na celula.
Porem tenha em mente que um controle Text, sempre "passará" seu valor como Texto. Então voce deve utilizar (ao passar o valor para a planilha) uma das "funções" de conversão;
Por exemplo suacelula = Cdec(seu text) ou suacelula = Cdbl(seu text), ou ainda multiplicar por 1 : suacelula = seu Text * 1

 
Postado : 14/02/2013 9:02 am
 Edmaxy
(@edmaxy)
Posts: 54
Trusted Member
Topic starter
 

Olá Amigos...
Obrigado pela atenção...

Testei as duas formas sugeridas, perém devido ao meu pouco conhecimento não obtive sucesso :(

Estou enviando um modelo da planilha.

lembrabdo que essas planilha é uma adaptação feito de outras encontradas nos Fóruns.

Abraços

 
Postado : 14/02/2013 11:54 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Qual dos Forms???????????

Att

 
Postado : 14/02/2013 11:58 am
 Edmaxy
(@edmaxy)
Posts: 54
Trusted Member
Topic starter
 

Boa tarde,

O form Buscar itens.

Att

 
Postado : 14/02/2013 12:14 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Faça os teste.

 
Postado : 14/02/2013 12:27 pm
 Edmaxy
(@edmaxy)
Posts: 54
Trusted Member
Topic starter
 

Olá Alexandre,

Não sei se verificou mais lá na celula J34 tem uma soma normal do conteúdo da caluna "valor tatal" e como percebe a formula não faz a soma dos valores como deveria.

PS: existe algum código que possa fazer essas somas ou qualquer outra operação matemática sem precisas usar formulas??

Att.

 
Postado : 14/02/2013 12:49 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não traz porque os valores "salvos" anteriormente estão como texto. como são poucos, selecione cada um e de um f2 + enter e veja que sua soma vai sair

 
Postado : 14/02/2013 12:51 pm
 Edmaxy
(@edmaxy)
Posts: 54
Trusted Member
Topic starter
 

Olá Reinaldo,

Entendi e fiz o que sugerio e funcionou,

A dúvida é...
Só consego resolver o probleminha dessa forma?
Se existir uma maneira automática ficaria mais prático ...

Att.

 
Postado : 14/02/2013 1:06 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Agora com a alteração que o Alexandre passou, todos os valores que forem "salvos" já devem ser reconhecidos como texto.
Experimente criar um novo (utilizando as modificações do Alexandre) e veja se funciona corretamente.

 
Postado : 14/02/2013 1:16 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Em Tempo;
Se por acaso não estiver somando altere as linhasdo codigo conforme abaixo.
De

   
ActiveCell.Offset(0, 7).Value = Format(CDbl(TextBox7.Value), "R$  #,##0.00")
 ActiveCell.Offset(0, 8).Value = Format(CDbl(TextBox8.Value), "R$  #,##0.00") 'Format(Me.TextBox8.Text, "#,##0.00")

Para:

    
ActiveCell.Offset(0, 7).Value = CDbl(TextBox7.Value)
ActiveCell.Offset(0, 8).Value = CDbl(TextBox8.Value) 'Format(Me.TextBox8.Text, "#,##0.00")
 
Postado : 14/02/2013 1:23 pm
 Edmaxy
(@edmaxy)
Posts: 54
Trusted Member
Topic starter
 

Bom dia

Reinaldo deu certo sim as alterações que o Alexandre fez, só tive que acrescentar o (*1) no final da linha.

Desde já agradeço a ajuda de vocês, foram de muita importancia.

Abraços.

 
Postado : 15/02/2013 8:01 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Lembre se de clicar na maõzinha!! ;)

att

 
Postado : 15/02/2013 8:07 am
Forum Jump:
  Tópico Anterior
Próximo Tópico