gugadg

Já estava pegando o valor dessa maneira mesmo. Vou deixar o problema como resolvido, creio que dificilmente será usada 3 casas ou mais, só queria para caso precissase.

A fórmula funciona certa, o problema é queria uusar o valor que foi digitado pelo usuário não o formtado, mas na hora de usar função textbox.value ele puxa o valor formatado, sendo que ele é apenas para apresentação.

Vamos supor que a pessoa digita 55,3287, com as fórmulas ou ficaria R$55,33 ou R$55,329 depedendo de quantas casas decimais vai ter, o que eu gostaria é pode trabalhar com 55,3287 não com os valores arredondados.

Não há como eu fazer o vba pegar o valor que digitei e usar de maneira separada da formatação do TextBox?

Achei esse código. Mas fui digitar um valor com mais de 2 digitos após a virgula e ele arrendondou para 2 casas decimais. Private Sub textbox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox1 = Format(TextBox1, "R$ #,###0.00")End Sub

Olá tenho uma caixa de texto que é apenas inserida valores em reais, gostaria de saber como ao acabar de escrever os valores em reais, exemplo, a pessoa digita 55 e na caixa de texto já aparece R$55,00 sem que seja necessário usar um label para mostrar o R$55,00, a questão que me preocupa é que esse valor digitado pela pessoa possa ser mais tarde utilizado em outros processos do formulário como um numéro somável.

Muito obrigado pelas dicas. Deu tudo certo.

Entendi, muito obrigado, irei testar isso. No caso o código ira se deslocar uma coluna a direita? Gosto de tentar entender o que estou escrevendo. Testei o sistema e funcionou como eu gostaria. Antes de dar como resolvido gostaria de tirar outra dúvida. Como se faz para impedir que alguém escreva numa ComboBox e assim só escolha a opções desta?

Essa parte do código funciona, provavelmente porque a coluna em que está é A. A outra é B.

Olá tenho esse código. Estou com um problema, a partir do IF com Elétrica o código era para adicionar o que estava na TextBox1 na coluna respectiva a Elétrica, só que o código como consegui fazer só escreve na mesma célula subscrevendo cada vez que tentar usar ele. Na parte Interligação Frigorífica ele funciona como deveria. Gostaria de ajuda de como resolver isso. Private Sub CommandButton1_Click() If TextBox1.Value = "" Then Exit Sub End If If ComboBox1.Value = "" Then Exit Sub End If If ComboBox1.Value = "INTERLIGAÇÃO FRIGORÍFICA" Then Dim varA As Variant With Sheets("teste 1").Cells(Rows.Count, 1).End(xlUp) .Offset(1, 0).Value = TextBox1.Text End With varA = Sheets("teste 1").Range("L7").Value If varA <= 0 Then Label3.Caption = "Consumo dentro do orçado" ElseIf varA > 0 Then Label3.Caption = "Consumo além do orçado em " & Format(varA, "Currency") End If ComboBox1.ListIndex = -1 TextBox1.Text = "" End If If ComboBox1.Value = "ELÉTRICA" Then Dim varB As Variant With Sheets("teste 1").Cells(Rows.Count, 1).End(xlUp) .Offset(1, 1).Value = TextBox1.Text End With varB = Sheets("teste 1").Range("L8").Value If varB <= 0 Then Label3.Caption = "Consumo dentro do orçado" ElseIf varB > 0 Then Label3.Caption = "Consumo além do orçado em " & Format(varB, "Currency") End If ComboBox1.ListIndex = -1 TextBox1.Text = "" End If End Sub