Professor Gladeson, eu tenho uma inquetação sobre a listbox: 1-Tenho uma base de dados; 2-Quero localizar nomes na listbox que iniciam com uma determinada letra,poe exemplo,letra Y; 3-Quero localizar, por exemplo a data que foi cadastrado o tal nome; TEM ALGUMA AULA QUE ME RECOMENDA? Agradecia
Ola Yoni neste video q vc esta comentando é ensinado, talvez ñ tenho tudo q vc precisa, mas com conhecimento de outros videos q vc assistiu nossos vc consegue montar essa estrutura a qual vc necessita, um outro exemplo é este video: ruclips.net/video/ZSyScx-Kmyc/видео.html Att, Gledson Programador Excel VBA
Professor, bom dia, Tenho uma coluna com Números de IDS e outra coluna com Nomes de Clientes Quero que a minha listbox inicie apenas com os clientes que tem o ID N° 1 Tem alguma aula que me ajude nesse sentido que poderia me indicar? Preciso de uma luz. Obg
Olá, tudo bem? Fiz tudo direitinho como diz aqui mas tenho duas dificuldades: ele buscana planilha q está ativa e tenho várias planilhas q mexo. E só me deixa colocar 10 colunas... Se puder me ajudar?
Como faço para o foco voltar para textbox? por exemplo, depois q dou enter o foco vai para listbox, mas eu queria que continuasse a textbox para o usuário fazer uma nova pesquisa...
Tentei mudar de Plan1 para Plan2 a planilha de pesquisa mas não obtive sucesso. Mudei "With Plan1" para "With Plan2" e continuou pesquisando na Plan1. Só deu certo quando mencionei em linha por linha do procedimento a Plan2. Detalhe, a estrutura da Plan2 é a mesma só os dados são diferentes.
Amigo, fiz igual a você. Só que quando mudo de Aba a listbox não carrega os dados, ela só carrega se eu estiver na aba de origem dos dados. Como posso arrumar isso ?
Professor, da estouro de linha, onde é que está errado? Private Sub TextBox1_AfterUpdate() Dim Xcel As String, Coluna As Integer, LinhaListbox As Long, Linha As Integer Linha = 2 LinhaListbox = 0 With Planilha2 With Me.ListBox1 .Clear While Cells(Linha, 1) Empty For Coluna = 1 To 2 Xcel = Cells(Linha, Coluna) If InStr(1, UCase(Xcel), UCase(Me.TextBox1.Text)) > 0 Then .AddItem .List(LinhaListbox, 0) = Cells(Linha, 1) .List(LinhaListbox, 1) = Cells(Linha, 2) LinhaListbox = LinhaListbox + 1 GoTo proxima_linha End If Next Coluna proxima_linha: Linha = Linha + 1 Wend Me.Label2.Object = .ListCount & " Registro(s) encontrado(s)!" End With End With End Sub
Olá amigos, alguém pode me ajudar, o meu esta dando erro no .clear, já fiz de tudo e não funciona, a lista continua visível e o vba trava nesse .clear.
@@Nick-ng5sp Sim consegui. Para o ListBox coloquei o endereço completo e funcionou, ficou assim: Planilha1.ListBCadastroClientes.Clear E para o TextBox assim With Planilha1 .Activate .TextBox1 = Clear ai vc adapta os nomes conforme seu projeto.
Melhor aula, tirou as duvidas e erros que eu estava tendo, obrigado
Apesar de 3 anos após a postagem, este vídeo me ajudou a resolver um problemão em outro formulário. Obrigado!!!
Ola Regis fico feliz :)
Não conhecia esse tipo de pesquisa, sensacional, parabens
GOSTEI! SEU MATERIAL É EXCELENTE!!!! OBRIGADO!!!!!!!
Show de aula, parabéns
Lla Zeca obgdo :)
Maravilhosa a sua explicação, foi perfeita para o que eu pretendia implementar no meu formulário, já mandei aquele like!
Ótimo professor. Eficiente, parabéns.
Consegui resolver. Antes de .clear é só colocar .List = Range("A1:AZ100").Value
Parabéns professor 👏👏
Ótimo Gledson, parabéns!!
Bacana Gledson parabéns!!! #EuQueoAprender
Muito bom Gledson
Professor Gladeson, eu tenho uma inquetação sobre a listbox:
1-Tenho uma base de dados;
2-Quero localizar nomes na listbox que iniciam com uma determinada letra,poe exemplo,letra Y;
3-Quero localizar, por exemplo a data que foi cadastrado o tal nome;
TEM ALGUMA AULA QUE ME RECOMENDA?
Agradecia
Ola Yoni neste video q vc esta comentando é ensinado, talvez ñ tenho tudo q vc precisa, mas com conhecimento de outros videos q vc assistiu nossos vc consegue montar essa estrutura a qual vc necessita, um outro exemplo é este video: ruclips.net/video/ZSyScx-Kmyc/видео.html
Att, Gledson Programador Excel VBA
vc conseguiu? to a 3 dias tentando fazer isso e nao consigo
Gostei.
amigo como faço para pesquisa esta planhilha acessando de outa planilha
Minha dúvida também
Boa noite,
Tem como fazer um video mostrando como PESQUISAR Por PARTE do NOME em QUALQUER COLUNA do LISTBOX no active X? Ficaria muita grata!
Professor, bom dia,
Tenho uma coluna com Números de IDS e outra coluna com Nomes de Clientes
Quero que a minha listbox inicie apenas com os clientes que tem o ID N° 1
Tem alguma aula que me ajude nesse sentido que poderia me indicar?
Preciso de uma luz.
Obg
usefull best
Show
Olá, tudo bem? Fiz tudo direitinho como diz aqui mas tenho duas dificuldades: ele buscana planilha q está ativa e tenho várias planilhas q mexo. E só me deixa colocar 10 colunas... Se puder me ajudar?
Tentei fazer o q colocam nos comentários mas não funciona😞
Como faço para o foco voltar para textbox? por exemplo, depois q dou enter o foco vai para listbox, mas eu queria que continuasse a textbox para o usuário fazer uma nova pesquisa...
tenta
Textbox.Activate
Tentei mudar de Plan1 para Plan2 a planilha de pesquisa mas não obtive sucesso. Mudei "With Plan1" para "With Plan2" e continuou pesquisando na Plan1. Só deu certo quando mencionei em linha por linha do procedimento a Plan2. Detalhe, a estrutura da Plan2 é a mesma só os dados são diferentes.
Boa noite. Gostaria de agradecer pela ajuda. Então, quando eu digito .list(LinhaListbox, 10) = cells (Linha,11) está dando erro. Pode me ajudar?
Tenho um listbox que carrega 12 colunas este código consegue pesquisar?
Professor. Boa noite
Quando a primeira linha está vazio ele não funciona o resto do código como posso resolver
Legal
Amigo, fiz igual a você. Só que quando mudo de Aba a listbox não carrega os dados, ela só carrega se eu estiver na aba de origem dos dados. Como posso arrumar isso ?
Olá. Você descobriu como resolver isso? Estou com a mesma dúvida.
Comigo esta parecido, mas a listbox não aparece os dados em momento nenhum.
nao deu certo, ele trava no .Clear
testei apagando esse .Cler e depois travou no .AddItem e por aí vai
Professor, da estouro de linha, onde é que está errado?
Private Sub TextBox1_AfterUpdate()
Dim Xcel As String, Coluna As Integer, LinhaListbox As Long, Linha As Integer
Linha = 2
LinhaListbox = 0
With Planilha2
With Me.ListBox1
.Clear
While Cells(Linha, 1) Empty
For Coluna = 1 To 2
Xcel = Cells(Linha, Coluna)
If InStr(1, UCase(Xcel), UCase(Me.TextBox1.Text)) > 0 Then
.AddItem
.List(LinhaListbox, 0) = Cells(Linha, 1)
.List(LinhaListbox, 1) = Cells(Linha, 2)
LinhaListbox = LinhaListbox + 1
GoTo proxima_linha
End If
Next Coluna
proxima_linha:
Linha = Linha + 1
Wend
Me.Label2.Object = .ListCount & " Registro(s) encontrado(s)!"
End With
End With
End Sub
o meu so retornou 1 linha sendo que existe varias linhas com o mesmo codigo rsrs
Olá amigos, alguém pode me ajudar, o meu esta dando erro no .clear, já fiz de tudo e não funciona, a lista continua visível e o vba trava nesse .clear.
conseguiu resolver? o mesmo está ocorrendo cmg
@@Nick-ng5sp Sim consegui.
Para o ListBox coloquei o endereço completo e funcionou, ficou assim:
Planilha1.ListBCadastroClientes.Clear
E para o TextBox assim
With Planilha1
.Activate
.TextBox1 = Clear
ai vc adapta os nomes conforme seu projeto.
@@dknalex desculpa mas n entendi o pq seu formulário está vinculado a uma página da planilha
@@dknalex me manda o código inteiro pra mim interpretar pfv
@@Nick-ng5sp Acredito q se vc colocar .Activate abaixo de With Planilha1, funcione.
Assim:
With Planilha1
.Activate
.ListBCadastroClientes.Clear
Show