Cara, seus vídeos são excelentes! Se você, assim como eu, está buscando APRENDER a fazer códigos e entender a lógica em vez de só copiar, veio ao canal certo! Gratidão!
Edivam Cabral Excel VBA inscrito!! Eu preciso preencher outros campos no listbox. Ex, quando busco o nome, irá preencher também na coluna 2 outra variável e na 3 outra variável conforme tabela. Vc tem algum vídeo referente?
Nossa muito bom vc manja muito e explica muito bem 👏👏👏 Eu n sabia q dava para fazer o loop assim eu usava Do while ou Do Until esse método e novo para mim me de uma dica q linguagem de programação eu devo aprender para melhorar no vba C, C#, C++, python, javascript, HTML? Dês de já agradeço
Olá *Edivan Cabral!* *Sensacional esta aula em...?* Ao meu ver: a melhor aula até o momento deste novo canal! Esta faço questão de refazer o passo a passo para assimilar o conteúdo ministrado. *Parabéns!* Aula com partilhada via *twitter* e *G+* Grato, *Marcelo Adriano*
Bom dia!!! Edivam Cabral aqui blz, seguinte eu acabei perdendo todos os arquivos no meu PC se não eu te enviava por email, mais enfim, se inscreva em meu novo canal, pois estou postando novos conteúdos só nele OK.... Abraços... Visite meu site tambem: edivamcabral.com.br
Olá excelente video!! Sou novo nesse meio de VBA e estou com dificuldade em um código: Eu preciso que minha que uma célula especifica da minha planilha fique selecionada após uma busca. Abaixo as tentativas que eu fiz: Quando estou utilizando uma variável com valor fixo 'opção 2 (vHora2 = "@") ele encontra a hora perfeitamente e a célula fica selecionada, porem eu preciso que isso aconteça através de uma soma dentro de uma variável, onde eu pego o valor de c2 e faço uma soma com uma constaste (vHora1 = ("=c2+0.041666667")) no caso a 'opção 1, porem o VBA não encontra a célula com o valor (não acontece nada). Voce poderia me ajudar nesse caso? Sub Variação() 'Opção 1 Dim vHora1 vHora1 = ("=c2+0.041666667") Cells.Find(vHora1)
'Opção 2 Dim vHora2 vHora2 = "@" Cells.Find(vHora2).Select End Sub
Olá, alguém pode me ajudar? Tenho um cadastro que é realizado pelo CPF e armazena CPF, Nome, RG, data nascimento e serviço. Dependendo do serviço, o cliente pode ser cadastrado mais de uma vez no banco de dados, por exemplo: CPF 012.345.678.99 cliente José serviço 01 CPF 012.345.678.99 cliente José serviço 02 CPF 012.345.678.99 cliente José serviço 04 Ocorre que quando vou fazer a pesquisa e digito o cpf de José, só aparece o primeiro serviço e quando clico de novo no botão “pesquisar” ela não faz a busca pelos outros serviços de Jose Como faço para quando eu clicar no botão “pesquisar” novamente, ir aparecendo os outros serviços de jose? Ou seja, como faço para quando eu apertar o botão “pesquisar” apareça a informação de outra linha que tenha o número do CPF de josé? Private Sub cmdPequisar_Click() 'Verificar se foi digitado um nome na primeira caixa de texto If txtCPF.Text = "" Then MsgBox "Digite o CPF de um cliente" txtCPF.SetFocus GoTo Linha1 End If With Worksheets("Dados Clientes").Range("A:A") Set c = .Find(txtCPF.Value, LookIn:=xlValues, lookat:=xlPart) If Not c Is Nothing Then c.Activate TxtRg.Value = c.Offset(0, 1).Value txtNome.Value = c.Offset(0, 2).Value txtNascimento.Value = c.Offset(0, 3).Value txtServiço.Value = c.Offset(0, 5).Value 'Carregando o botão de opção If c.Offset(0, 4) = "Masculino" Then OptionButton1.Value = True Else OptionButton2.Value = True End If Else MsgBox "Cliente não encontrado!" End If End With Linha1: End Sub
A melhor explicação que assisti no RUclips. Melhor do que isso, só isso mesmo.
Cara, seus vídeos são excelentes! Se você, assim como eu, está buscando APRENDER a fazer códigos e entender a lógica em vez de só copiar, veio ao canal certo! Gratidão!
Gostei da simplicidade na explicação
Muito boa está aula. Pode me ajudar? Não consegui baixar a planilha. Obrigado
acho superlegal tuas aulas, torna o VBA muito facil. Parabens!
Ótima aula Edivan. Porém estou com problema pra baixar a planilha. Pode me ajudar? Obrigado
Bem explicado fera. Anos depois ainda ajudando
Perfeito, melhor explicação e solução. parabens
Já me inscrevi no novo canal.
boa tarde Edivan
não consigo baixar a planilha
Aula nota 1000. Vlw.
Muito massa mano esse conteúdo.
Aula Deezzzzzzzz!!!!
Bom dia. Adorei a explicação mas não consigo baixar a planilha. Tem como enviar?
Carlos D Rubio
Excelente, otima apresentação, com luxo de detalhes,, Parabens...
Mas que baita aula guri!!! Top! Parabéns, muito obrigado! Você não tem ideia de como me ajudou!!!
Maravilha, se inscreva em meu novo canal ruclips.net/user/edivamcabral
Edivam Cabral Excel VBA inscrito!! Eu preciso preencher outros campos no listbox. Ex, quando busco o nome, irá preencher também na coluna 2 outra variável e na 3 outra variável conforme tabela. Vc tem algum vídeo referente?
@@leocauz Ainda não mais em novo canal estarei postando semanalmente novos videos... Quem sabe um dia nao posto algo parecido rsrs
Edivam Cabral Excel VBA Tranquilo! Vou acomodar!! Abs!
Vou fazer nas minhas consultas de front a end!!!!
excelente aula
Antonio Filho obrigado...
Olá Edivan Cabral!
Parabéns !!!
Nossa muito bom vc manja muito e explica muito bem 👏👏👏
Eu n sabia q dava para fazer o loop assim eu usava
Do while ou Do Until esse método e novo para mim me de uma dica q linguagem de programação eu devo aprender para melhorar no vba C, C#, C++, python, javascript, HTML?
Dês de já agradeço
Parabéns... bom vídeo.
Obrigado....
Muito obrigado pelas excelente videos aula.
LEARTH RETROSPECTIVA eu quem agradeço.... Abraços...
Olá *Edivan Cabral!*
*Sensacional esta aula em...?* Ao meu ver: a melhor aula até o momento deste novo canal!
Esta faço questão de refazer o passo a passo para assimilar o conteúdo ministrado.
*Parabéns!*
Aula com partilhada via *twitter* e *G+*
Grato,
*Marcelo Adriano*
Marcelo Adriano obrigado e vem muito mais por ai... Abraços...
Parabéns pela explicação, muito bom vídeo.
Obrigado...
Conteúdo e explicação excelentes. Infelizmente a planilha modelo não está disponível.
Bom dia!!! Edivam Cabral aqui blz, seguinte eu acabei perdendo todos os arquivos no meu PC se não eu te enviava por email, mais enfim, se inscreva em meu novo canal, pois estou postando novos conteúdos só nele OK.... Abraços... Visite meu site tambem: edivamcabral.com.br
Olá excelente video!!
Sou novo nesse meio de VBA e estou com dificuldade em um código:
Eu preciso que minha que uma célula especifica da minha planilha fique selecionada após uma busca.
Abaixo as tentativas que eu fiz: Quando estou utilizando uma variável com valor fixo 'opção 2 (vHora2 = "@") ele encontra a hora perfeitamente e a célula fica selecionada, porem eu preciso que isso aconteça através de uma soma dentro de uma variável, onde eu pego o valor de c2 e faço uma soma com uma constaste (vHora1 = ("=c2+0.041666667")) no caso a 'opção 1, porem o VBA não encontra a célula com o valor (não acontece nada).
Voce poderia me ajudar nesse caso?
Sub Variação()
'Opção 1
Dim vHora1
vHora1 = ("=c2+0.041666667")
Cells.Find(vHora1)
'Opção 2
Dim vHora2
vHora2 = "@"
Cells.Find(vHora2).Select
End Sub
Olá, alguém pode me ajudar?
Tenho um cadastro que é realizado pelo CPF e armazena CPF, Nome, RG, data nascimento e serviço.
Dependendo do serviço, o cliente pode ser cadastrado mais de uma vez no banco de dados, por exemplo:
CPF 012.345.678.99 cliente José serviço 01
CPF 012.345.678.99 cliente José serviço 02
CPF 012.345.678.99 cliente José serviço 04
Ocorre que quando vou fazer a pesquisa e digito o cpf de José, só aparece o primeiro serviço e quando clico de novo no botão “pesquisar” ela não faz a busca pelos outros serviços de Jose
Como faço para quando eu clicar no botão “pesquisar” novamente, ir aparecendo os outros serviços de jose? Ou seja, como faço para quando eu apertar o botão “pesquisar” apareça a informação de outra linha que tenha o número do CPF de josé?
Private Sub cmdPequisar_Click()
'Verificar se foi digitado um nome na primeira caixa de texto
If txtCPF.Text = "" Then
MsgBox "Digite o CPF de um cliente"
txtCPF.SetFocus
GoTo Linha1
End If
With Worksheets("Dados Clientes").Range("A:A")
Set c = .Find(txtCPF.Value, LookIn:=xlValues, lookat:=xlPart)
If Not c Is Nothing Then
c.Activate
TxtRg.Value = c.Offset(0, 1).Value
txtNome.Value = c.Offset(0, 2).Value
txtNascimento.Value = c.Offset(0, 3).Value
txtServiço.Value = c.Offset(0, 5).Value
'Carregando o botão de opção
If c.Offset(0, 4) = "Masculino" Then
OptionButton1.Value = True
Else
OptionButton2.Value = True
End If
Else
MsgBox "Cliente não encontrado!"
End If
End With
Linha1:
End Sub