parei o video e fui na minha planilha, lá eu tinha formatado assim: ActiveCell.Offset(0, 4).Value = CCur(NUMERO), e meu resultado está sendo melhor que a encomenda.
Boa Tarde. Minha duvida é para que aplicação VB, na sua texte Box Mostra o conteudo de uma determinada Celula do Excel. Obrigado pela ajuda e muita Força ao seu canal.
Prezado, Tenho aprendido muito com seus vídeos. São muito inspiradores. Eu estou com uma dúvida. Eu fiz um scrit onde calculo a diferença entre duas células e salvo o resultado numa variável chamada saldo. Esta variável será apresentada numa msgbox. Eu não consegui formatar de modo a ter uma casa decimal apenas. Poderia me dar uma dica?
@@CanalSGP Meu caro amigo, eu agradeço muito a sua ajuda. Eu estava usando o código sem o prefixo VBA. Entretanto, mesmo fazendo as alterações que você me sugeriu não está dando certo. O saldo está saindo arredondado sem nenhuma cada decimal. Seria útl se eu enviasse o código???
@@CanalSGP Troquei a variável Saldo para integer e não houve alteração. Quando suprimo a linha de formatação o resultado vem com umas 12 casas decimais.
olá amigo, gosto muito dos seus vídeos e em especial esse, pois estou ainda com problemas, no meu código. Fiz tudo que vc orientou, porém, meu código não segue o seu desde o princípio, pois estou adaptando. na hora de inserir o valor, tudo sai como vc falou, porém no meu excel, ele ainda considera a célula com valor de texto, ai não consigo fazer qualquer operação matemática. essa sua última parte(ActiveCell.Offset(0, 74.Value = numero) devo fazer algo diferente. Desde já, agradeço a ajuda
@@CanalSGP bom dia, fiz isso na botão cadastrar; Dim numero As Double On Error Resume Next numero = txt_valor e na caixa de texto, coloquei isso: Private Sub txt_valor_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'código para o formato do valor 'txt_valor = Format(txt_valor, "R$ #,##.00") Dim valor1 As Double On Error Resume Next valor1 = txt_valor End Sub e conforme sua orientação, fiz a formatação na coluna, para receber apenas numero, com o separador de decimal, mas na planilha, ainda a celula fica no formato de texto. Amigo, me ajude.
BOA TARDE PROFESSOR, ESTOU COM UM DILEMA, ESTOU BUSCANDO UM RESULTADO NA CÉLULA PARA MOSTRAR NA TEXTBOX, POREM QUERO SEPARAR OS NÚMEROS POR UM PONTO(.) EX. MOSTRA O RESULTADO NA TEXTBOX ASSIM (25) E EU GOSTARIA DE SEPARAR COM PONTO ASSIM (2.5)
Boa noite eu gostaria de fazer uma soma porem quando preencho o valor que cai na minha planilha cai como (Numero armazenado em Texto) consegue ajudar ?
Fiz isso com CNPJ, no formulário digito só os números, ele aparece com a máscara direitinho, mas quando passa para a planilha não vai só os números, vai como texto com os pontos, barra e hífen. Já tentei tudo que é jeito mas dá erro se tento com Double... Tem outra forma de passar só os números para a planilha?
Gostaria que colocasse o código que converte o formato texto para número, aqui nos comentários!... Por favor!... Não estou conseguindo e estou precisando muito!
Boa noite, preciso de uma ajuda com uma planilha. Não consigo salvar as informações formatadas como número no formulario na base como número... salvam como texto. Já tentei de diversas formas e não vai. Consegue me ajudar? Grata
@@CanalSGP Bom dia! Te confesso que sou iniciante no VBA e tudo que estou conseguindo fazer, é através dos vídeos que vocês postam (alíás, PARABÉNS!!). Fiz a programação, conforme abaixo e consegui o resultado na primeira célula apenas... as demais não dão sequência... Isso deve ser um erro meu bem bobinho, mas com te falei, sou iniciante...rs Private Sub CommandButton_cadastrar_Click() Range("B4").Select If Range("B5").Value "" Then Selection.End(xlDown).Select End If ActiveCell.Offset(1, 0).Select Selection.Value = TextBox_dataemissao ActiveCell.Offset(0, 1).Select Selection.Value = TextBox_Entrada ActiveCell.Offset(0, 1).Select Selection.Value = TextBox_Mesentrada ActiveCell.Offset(0, 1).Select Selection.Value = TextBox_operacao ActiveCell.Offset(0, 1).Select Selection.Value = TextBox_pedido ActiveCell.Offset(0, 1).Select Selection.Value = TextBox_boleto ActiveCell.Offset(0, 1).Select Selection.Value = TextBox_fornecedor ActiveCell.Offset(0, 1).Select Selection.Value = ComboBox_produto ActiveCell.Offset(0, 2).Select Selection.Value = TextBox_quantidade ActiveCell.Offset(0, 2).Select Selection.Value = TextBox_valorunit ActiveCell.Offset(0, 10).Select Selection.Value = TextBox_comprador ActiveCell.Offset(0, 1).Select Selection.Value = TextBox_comissao ActiveCell.Offset(0, 1).Select Unload UserForm_cadastro ActiveWorkbook.RefreshAll End Sub Através disso tudo (rs), ele me salva os as informações como texto e não consigo sair dai... :(
Boa tarde, para salvar por exemplo a quantidade como número, via ficar da seguinte forma. Dim Qtd as Double Qtd = TextBox_quantidade.value ActiveCell.Offset(0, 2).Select Selection.Value = Qtd
Ola, por favor pode me ajudar? Quero fazer quantidade x valor unitário = valor total. Contudo quando a logico calcula o valor total não exibe como moeda, tentei usar o formato conforme ensina no video, no valor unitário aplicou corretamento mais no valor total não aplica. Abaixo vou colocar os códigos editados aqui. Private Sub TValorCompraUnitario_Change() 'O Còdigo a seguir é responsavel por calcular o valor total baseado na quantidade x valor unitario Dim QuantidadeEnt As Double If TQuantidadeEnt "" Then QuantidadeEnt = TQuantidadeEnt Else QuantidadeEnt = 1 End If Dim ValorUnitarioEnt As Double If TValorCompraUnitario "" Then ValorUnitarioEnt = TValorCompraUnitario Else ValorUnitarioEnt = 1 End If TValorCompraTotal = QuantidadeEnt * ValorUnitarioEnt End Sub Private Sub TValorCompraUnitario_Exit(ByVal Cancel As MSForms.ReturnBoolean) TValorCompraUnitario = Format(TValorCompraUnitario, "R$ #,##.00") End Sub Private Sub TValorCompraTotal_Exit(ByVal Cancel As MSForms.ReturnBoolean) TValorCompraTotal = Format(TValorCompraTotal, "R$ #,##.00") End Sub Obrigado
anem tudo q preencho de numeros pelo formulario do VBA vai como texto na planilha e n faz soma cansei n consigo isso mas n alguem abilita a terminar minha planilha eu pago n aguento mas n sei praticamente nada de excel e nem de vba axei q conseguia vendo videos mas me enganei alguem abilita a terminar ela pra mim e ver quanto fica manda o email ai o numero q mando a plan para vc ver
peguei um serviço pra fzr e vc tem me ajudado mto com seus vídeos. gratidão
Que bom.
2021 e ainda sendo salvo pelo SGP. Vivaaaaaaaaaaaa
Que bom.
Excelente amigo, obrigado me ajudou muito!
Obrigado
parei o video e fui na minha planilha, lá eu tinha formatado assim: ActiveCell.Offset(0, 4).Value = CCur(NUMERO), e meu resultado está sendo melhor que a encomenda.
Muito obrigado pela dica Assis!!
Olá , eu gostaria de saber como começar do zero em VBA e como saber os códigos em inglês , adoro seus vídeos , parabéns e sucesso!
Boa Tarde.
Minha duvida é para que aplicação VB, na sua texte Box Mostra o conteudo de uma determinada Celula do Excel.
Obrigado pela ajuda e muita Força ao seu canal.
Boa tarde, desculpe, mas não entendi sua dúvida.
Muito grata
De nada.
Prezado,
Tenho aprendido muito com seus vídeos. São muito inspiradores.
Eu estou com uma dúvida.
Eu fiz um scrit onde calculo a diferença entre duas células e salvo o resultado numa variável chamada saldo.
Esta variável será apresentada numa msgbox. Eu não consegui formatar de modo a ter uma casa decimal apenas. Poderia me dar uma dica?
Bom dia, obrigado, pode tentar da seguinte forma.
Saldo = vba.format(Saldo, "0.0")
@@CanalSGP Meu caro amigo, eu agradeço muito a sua ajuda. Eu estava usando o código sem o prefixo VBA. Entretanto, mesmo fazendo as alterações que você me sugeriu não está dando certo. O saldo está saindo arredondado sem nenhuma cada decimal. Seria útl se eu enviasse o código???
Boa tarde, outra possibilidade é estar usando a definição da variável como integer ao invés de double.
@@CanalSGP Troquei a variável Saldo para integer e não houve alteração. Quando suprimo a linha de formatação o resultado vem com umas 12 casas decimais.
Mude volta para Double porque integer é limitado a 32 mil.
olá amigo, gosto muito dos seus vídeos e em especial esse, pois estou ainda com problemas, no meu código. Fiz tudo que vc orientou, porém, meu código não segue o seu desde o princípio, pois estou adaptando. na hora de inserir o valor, tudo sai como vc falou, porém no meu excel, ele ainda considera a célula com valor de texto, ai não consigo fazer qualquer operação matemática. essa sua última parte(ActiveCell.Offset(0, 74.Value = numero) devo fazer algo diferente.
Desde já, agradeço a ajuda
Olá, obrigado, veja se atribui o valor do objeto a variável numero.
Experimente formatar a coluna da planilha também para número.
@@CanalSGP bom dia, fiz isso na botão cadastrar; Dim numero As Double
On Error Resume Next
numero = txt_valor
e na caixa de texto, coloquei isso:
Private Sub txt_valor_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'código para o formato do valor
'txt_valor = Format(txt_valor, "R$ #,##.00")
Dim valor1 As Double
On Error Resume Next
valor1 = txt_valor
End Sub
e conforme sua orientação, fiz a formatação na coluna, para receber apenas numero, com o separador de decimal, mas na planilha, ainda a celula fica no formato de texto. Amigo, me ajude.
BOA TARDE PROFESSOR, ESTOU COM UM DILEMA, ESTOU BUSCANDO UM RESULTADO NA CÉLULA PARA MOSTRAR NA TEXTBOX, POREM QUERO SEPARAR OS NÚMEROS POR UM PONTO(.) EX. MOSTRA O RESULTADO NA TEXTBOX ASSIM (25) E EU GOSTARIA DE SEPARAR COM PONTO ASSIM (2.5)
Bom dia, se o valor já está no formato correto na planilha pode carregar como texto. Exemplo:
TextBox16.Value = Planilha1.Cells(Linha, 16).text
Olá! Como posso aplicar o Private Sub Exit para mais de um campo para formatação de R$ quando digitar? Em um campo deu certo nos demais não.
Olá, precisa ser no evento Exit de cada textbox.
Boa noite eu gostaria de fazer uma soma porem quando preencho o valor que cai na minha planilha cai como (Numero armazenado em Texto) consegue ajudar ?
Bom dia, precisa definir no código que se trata de número. Ex:
Dim Valor as Double
Valor = valor da soma
Célula da planilha = Valor
Fiz isso com CNPJ, no formulário digito só os números, ele aparece com a máscara direitinho, mas quando passa para a planilha não vai só os números, vai como texto com os pontos, barra e hífen. Já tentei tudo que é jeito mas dá erro se tento com Double... Tem outra forma de passar só os números para a planilha?
Olá, vamos estudar sua dúvida, se encontrarmos algo viável gravamos vídeo explicativo.
Gostaria que colocasse o código que converte o formato texto para número, aqui nos comentários!... Por favor!... Não estou conseguindo e estou precisando muito!
Olá, baixe a planilha no link a seguir: mega.nz/#!lqg3zYaT!URvK4ebIvUS67J2FgmU4NNTk5_33OsWkMlY_kQi98yM
Boa noite, preciso de uma ajuda com uma planilha. Não consigo salvar as informações formatadas como número no formulario na base como número... salvam como texto. Já tentei de diversas formas e não vai. Consegue me ajudar? Grata
Bom dia, deve ser algum detalhe no momento da conversão, segue exemplo:
Dim Numero as Double
Numero = Textbox1.value
célula da planilha = Numero
@@CanalSGP Bom dia! Te confesso que sou iniciante no VBA e tudo que estou conseguindo fazer, é através dos vídeos que vocês postam (alíás, PARABÉNS!!). Fiz a programação, conforme abaixo e consegui o resultado na primeira célula apenas... as demais não dão sequência... Isso deve ser um erro meu bem bobinho, mas com te falei, sou iniciante...rs
Private Sub CommandButton_cadastrar_Click()
Range("B4").Select
If Range("B5").Value "" Then
Selection.End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
Selection.Value = TextBox_dataemissao
ActiveCell.Offset(0, 1).Select
Selection.Value = TextBox_Entrada
ActiveCell.Offset(0, 1).Select
Selection.Value = TextBox_Mesentrada
ActiveCell.Offset(0, 1).Select
Selection.Value = TextBox_operacao
ActiveCell.Offset(0, 1).Select
Selection.Value = TextBox_pedido
ActiveCell.Offset(0, 1).Select
Selection.Value = TextBox_boleto
ActiveCell.Offset(0, 1).Select
Selection.Value = TextBox_fornecedor
ActiveCell.Offset(0, 1).Select
Selection.Value = ComboBox_produto
ActiveCell.Offset(0, 2).Select
Selection.Value = TextBox_quantidade
ActiveCell.Offset(0, 2).Select
Selection.Value = TextBox_valorunit
ActiveCell.Offset(0, 10).Select
Selection.Value = TextBox_comprador
ActiveCell.Offset(0, 1).Select
Selection.Value = TextBox_comissao
ActiveCell.Offset(0, 1).Select
Unload UserForm_cadastro
ActiveWorkbook.RefreshAll
End Sub
Através disso tudo (rs), ele me salva os as informações como texto e não consigo sair dai... :(
Boa tarde, para salvar por exemplo a quantidade como número, via ficar da seguinte forma.
Dim Qtd as Double
Qtd = TextBox_quantidade.value
ActiveCell.Offset(0, 2).Select
Selection.Value = Qtd
@@CanalSGP Obrigadaaaaaaaaaaaaaaa!!!! Deu super certo!!! Sensacional!
Que bom que encontrou o erro.
Amigo consegui, estava escrevendo o código no lugar errado. obrigado
COMO FAÇO PRA QUE NA TXTBOX CONSIGA ISERIR O VALOR JA COM CENTAVOS, POR EXEMPLO R$ 150,25
Olá, é o mesmo código.
Ola, por favor pode me ajudar?
Quero fazer quantidade x valor unitário = valor total.
Contudo quando a logico calcula o valor total não exibe como moeda, tentei usar o formato conforme ensina no video, no valor unitário aplicou corretamento mais no valor total não aplica. Abaixo vou colocar os códigos editados aqui.
Private Sub TValorCompraUnitario_Change()
'O Còdigo a seguir é responsavel por calcular o valor total baseado na quantidade x valor unitario
Dim QuantidadeEnt As Double
If TQuantidadeEnt "" Then
QuantidadeEnt = TQuantidadeEnt
Else
QuantidadeEnt = 1
End If
Dim ValorUnitarioEnt As Double
If TValorCompraUnitario "" Then
ValorUnitarioEnt = TValorCompraUnitario
Else
ValorUnitarioEnt = 1
End If
TValorCompraTotal = QuantidadeEnt * ValorUnitarioEnt
End Sub
Private Sub TValorCompraUnitario_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TValorCompraUnitario = Format(TValorCompraUnitario, "R$ #,##.00")
End Sub
Private Sub TValorCompraTotal_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TValorCompraTotal = Format(TValorCompraTotal, "R$ #,##.00")
End Sub
Obrigado
@@CanalSGP Lhe enviei. Obrigado
Como faz inserir os numeros sem ter que digitar virgula ou ponto
Bom dia, não conheço procedimento viável capaz de realizar as duas tarefas.
maravilha teria como enviar o codigo
Planilha enviada.
nao consegui, o meu continua salvando como texto
Bom dia, que pena
Muito bom!!
Agradecemos.
TextBox16.Value = Format(Planilha1.Cells(Linha, 16).Value, "")
Bom dia, respondido no outro comentário.
PUTZZZ, O SR. NAO PODERIA SER MAIS LENDO, VC VAI MUITO RAPIDO
Bom dia, vou tentar ir com mais calma nos próximos.
anem tudo q preencho de numeros pelo formulario do VBA vai como texto na planilha e n faz soma cansei n consigo isso mas n alguem abilita a terminar minha planilha eu pago n aguento mas n sei praticamente nada de excel e nem de vba axei q conseguia vendo videos mas me enganei alguem abilita a terminar ela pra mim e ver quanto fica manda o email ai o numero q mando a plan para vc ver
Bom dia, tente no grupo no Facebook, tem um pessoal que faz planilhas sob demanda. facebook.com/groups/ExcelSolucoesVBA