Primeiramente, Parabéns pela video aula e a explicação. Gente boa, Poderia incluir mais uma TEXTBOX e uma formula nesse mesmo projeto por favor. Pegar o " Custo Total " e Dividir por um número qualquer que estará dessa nova TEXBOX (parcela). Como ficaria essa formula, adicionada ao que já foi feito. EX: Custo Total / Parcela Se possível muito Agradecido
Edilton, tudo bem!! Isso mesmo, você irá criar um novo textbox que terá como saída a divisão do Custo Total pelo número de parcelas. Exemplo: 'Dividir Total por parcelas Private Sub TextBoxNParcelas_Change() TextBoxParcelas.Value = CDbl(TextBox6) / CDbl(TextBoxNParcelas) End Sub 'Exibir valor em formato moeda Private Sub TextBoxParcelas_Change() TextBoxParcelas.Value = Format(TextBoxParcelas.Text, "Currency") End Sub Abraço e obrigado pela inscrição, comentário e like.
Muito bom sua explicação, porem um dúvida!!! Quando escrevemos os valores e por um determinado momento decidimos apagar tal valor, apresenta um erro 13. Tem como acabar com isso? Se deletarmos o valor eu preciso que apenas diminua a soma.
Galera, estou querendo melhorar minhas apresentações, então caso alguém que entenda mais de Sony Vega, Camtasia Studio, ou outro programa para criação de videos, deixe seu endereço aqui que vou entrar em contato. Obrigado.
Olá, tudo bem? Primeiramente, gostaria de agradecer pelo vídeo! Me ajudou demais!! Porém, estou com um problema. No caso da minha planilha, são 3 textbox que deveriam ser somadas e aparecer na quarta. Eu consegui criar o código todo, porém, o formato na última textbox não está em formato currency. E não consegui fazer nada para conseguir transformá-la. Já conferi o código com a sua planilha e não consegui identificar o erro. O formato fica em número, porém gostaria que saísse em formato moeda. Os 3 primeiros textbox saem no formato moeda, o problema é só o formato do que soma os demais...
Bruno, tudo bem? Vou dar uma olhada e logo te retorno, eu tenho um código que poderá te ajudar, pois uso em um formulário este mesmo tipo de processo. Logo te passo o que tenho.
Bruno, olha os códigos que estou usando: Private Sub TextBox4Visita_AfterUpdate() TextBox4Visita.Value = Format(TextBox4Visita, "Currency") TextBox7Total.Value = CCur(TextBox1Frete) + CCur(TextBox2Pecas) + CCur(TextBox3MO) + CCur(TextBox4Visita) End Sub Eu formato o textbox como Currency, mas o demais eu deixe para soma, usando CCur. Teste aí, e veja se funciona.
Sensacional estava procurando para meus projetos . Abraços!
Que notícia ótima João, fico feliz em saber que o conteúdo foi útil.
Abraço e volte sempre.
Muito bom. Você me quebrou um galhão. Nota 1000. obrigado.
Que notícia boa Waldir!!!
Primeiramente, Parabéns pela video aula e a explicação.
Gente boa, Poderia incluir mais uma TEXTBOX e uma formula nesse mesmo projeto por favor.
Pegar o " Custo Total " e Dividir por um número qualquer que estará dessa nova TEXBOX (parcela).
Como ficaria essa formula, adicionada ao que já foi feito.
EX: Custo Total / Parcela
Se possível muito Agradecido
Edilton, tudo bem!!
Isso mesmo, você irá criar um novo textbox que terá como saída a divisão do Custo Total pelo número de parcelas.
Exemplo:
'Dividir Total por parcelas
Private Sub TextBoxNParcelas_Change()
TextBoxParcelas.Value = CDbl(TextBox6) / CDbl(TextBoxNParcelas)
End Sub
'Exibir valor em formato moeda
Private Sub TextBoxParcelas_Change()
TextBoxParcelas.Value = Format(TextBoxParcelas.Text, "Currency")
End Sub
Abraço e obrigado pela inscrição, comentário e like.
Parabéns meu amigo, muito esclarecedor seu vídeo!
Muito obrigado!!!
E desculpe pelo gap tão grande de retorno.
Tava quebrando minha cabeça com isso, e o seu canal foi o único que encontrei. Deixo meu like. Abraço.
Parabéns pelo vídeo cara! Estava com esse problema há uns dias e tu me ajudou demais... VALEU!
Show de bola, esse é o espírito do canal!!!
Abraço.
Muito bom sua explicação, porem um dúvida!!! Quando escrevemos os valores e por um determinado momento decidimos apagar tal valor, apresenta um erro 13. Tem como acabar com isso? Se deletarmos o valor eu preciso que apenas diminua a soma.
Alexandre, boa tarde.
Acabo de testar aqui, e não encontrei este erro, fiz vários testes. Se quiser, me envie um print da tela com a exibição do erro.
@@valdereiantunes Positivo! Qual o e-mail?
@@valdereiantunes print enviado para seu email
Galera, estou querendo melhorar minhas apresentações, então caso alguém que entenda mais de Sony Vega, Camtasia Studio, ou outro programa para criação de videos, deixe seu endereço aqui que vou entrar em contato.
Obrigado.
Olá, tudo bem? Primeiramente, gostaria de agradecer pelo vídeo! Me ajudou demais!!
Porém, estou com um problema. No caso da minha planilha, são 3 textbox que deveriam ser somadas e aparecer na quarta.
Eu consegui criar o código todo, porém, o formato na última textbox não está em formato currency. E não consegui fazer nada para conseguir transformá-la. Já conferi o código com a sua planilha e não consegui identificar o erro. O formato fica em número, porém gostaria que saísse em formato moeda. Os 3 primeiros textbox saem no formato moeda, o problema é só o formato do que soma os demais...
Bruno, tudo bem?
Vou dar uma olhada e logo te retorno, eu tenho um código que poderá te ajudar, pois uso em um formulário este mesmo tipo de processo.
Logo te passo o que tenho.
Bruno, olha os códigos que estou usando:
Private Sub TextBox4Visita_AfterUpdate()
TextBox4Visita.Value = Format(TextBox4Visita, "Currency")
TextBox7Total.Value = CCur(TextBox1Frete) + CCur(TextBox2Pecas) + CCur(TextBox3MO) + CCur(TextBox4Visita)
End Sub
Eu formato o textbox como Currency, mas o demais eu deixe para soma, usando CCur.
Teste aí, e veja se funciona.
Vou testar agora e digo se deu certo! Muito grato
VC FALA MUIIIITO ANTES DE EFETIVAMENTE MOSTRAR O TUTO ME CANSEI NEM ESPEREI PROCUREI OUTRO TUTO
Esse é um grande problema meu....sorry.