Fóruns
Microsoft Excel - 2...
Formulários
Formatar dados tran...
 
Notifications
Clear all

Formatar dados transferidos de um userform

 
Formulários
Post Recente por srobles 9 anos atrás
8 Posts
2 Usuários
0 Reactions
1,450 Visualizações
RSS
 ROMERITO
(@romerito)
Posts: 0
New Member
Topic starter
 

Boa noite.

Estou com esse formulário e necessito que os campos dinheiro, cartão e saida quando jogar os dados na planilha os mesmos já sejam formatados para numero com isso minha planilha irá somar os valores já recebidos da userform.

Este comando anexa os dados da userform nos campos certos, porém os valores numericos caem como texto e necessito que caiam como numero, qual uso?

    Private Sub INSERIR_Click()

    Range("D1000").Select
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Select

    Dim data As Date
    data = TextBox1
    ActiveCell = data
    ActiveCell.Offset(0, 1).Select

    ActiveCell = TextBox2
    ActiveCell.Offset(0, 1).Select

    ActiveCell = TextBox3
    ActiveCell.Offset(0, 1).Select

    Dim dinheiro, cartao, saida
    dinheiro = TextBox4
    ActiveCell = dinheiro
    ActiveCell.Offset(0, 1).Select

    cartao = TextBox5
    ActiveCell = cartao
    ActiveCell.Offset(0, 1).Select

    saida = TextBox6
    ActiveCell = saida
    ActiveCell.Offset(0, 1).Select[/list:u:3fcm33ot]

     
Postado : 21/06/2015 5:08 pm
 srobles
(@srobles)
Posts: 0
New Member
 

ROMERITO, boa noite!

Já experimentou converter o formato dos textbox para currency (valores monetários)?
Ficaria assim :

dim dinheiro, cartão, saida as currency

ou

dinheiro = CCur(TextBox4)
cartão = CCur(TextBox5)
saida = CCur(TextBox6)

Aí basta prosseguir com seu código que insere na planilha normalmente.

Experimente aí e qualquer coisa nos retorne.

[]s

 
Postado : 21/06/2015 8:33 pm
 ROMERITO
(@romerito)
Posts: 0
New Member
Topic starter
 

Bom dia, fiz o teste com o comando e deu erro.
segue o arquivo caso possa me ajudar.

 
Postado : 22/06/2015 8:07 am
 srobles
(@srobles)
Posts: 0
New Member
 

ROMERITO, boa tarde!

Baixei seu modelo e fiz os testes aqui, onde tudo correu perfeitamente bem.

Acabei utilizando a conversão para Currency nos TextBox's mesmo.

Teste aí, e qualquer coisa estamos á disposição.

PS: Favor lembre-se de compactar (zipar) os arquivos quando for disponibilizá-los aqui no fórum.

Regras: http://planilhando.com.br/forum/viewtopic.php?f=7&t=203
Como postar arquivos : http://planilhando.com.br/forum/viewtopic.php?f=7&t=3841

[]s

 
Postado : 22/06/2015 9:52 am
 ROMERITO
(@romerito)
Posts: 0
New Member
Topic starter
 

Obrigado pela resposta, porém quando eu adiciono valor somente na textbox4 dá erro na seguinte.

exemplo:
por lançamento deverá preencher sempre os campos; data, caixa, histórico e colocar o tipo de entrada ou saida.
então cada lançamento terá apenas 4 textbox preenchidas, sendo que em cada lançamento que estiver preenchido o campo dinheiro os campos cartao e saida ficara vazio.
e quando preenchido o campo cartao, ficará os campos dinheiro e saida vazio e assim por diante.

anexo print da tela quando dá erro.

 
Postado : 22/06/2015 11:36 am
 srobles
(@srobles)
Posts: 0
New Member
 

ROMERITO, boa tarde!

Este erro ocorre porquê não se converte nulo em valores monetários (currency).
Uma alternativa, seria vc carregar o formulário com valor 0 (zero) nos campos, o que não influencia nas fórmulas, e a medida que o usuário for digitando no formulário ele altera os valores quando necessário.

Segue em anexo, seu modelo com essas modificações.

[]s

 
Postado : 22/06/2015 12:14 pm
 ROMERITO
(@romerito)
Posts: 0
New Member
Topic starter
 

Saulo, boa tarde.

Obrigado pela ajuda.

 
Postado : 22/06/2015 2:44 pm
 srobles
(@srobles)
Posts: 0
New Member
 

ROMERITO, boa noite!

Opa, bom saber que funcionou.

Qualquer coisa, estamos aí. ;)

[]s

 
Postado : 22/06/2015 3:08 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico