Aula 15 - Como Fazer Formulário no Excel - Buscar por Nome, Cabeçalho Fixo e Ordenar Tabulação

แชร์
ฝัง
  • เผยแพร่เมื่อ 25 ธ.ค. 2024

ความคิดเห็น • 81

  • @vanilsonsantos5796
    @vanilsonsantos5796 วันที่ผ่านมา

    Renato, curso ótimo. Aproveitei muito.

  • @silviogabrielli4808
    @silviogabrielli4808 29 วันที่ผ่านมา

    Parabens Professor.
    Assisti todas as suas 15 aulas em dois dias !
    Aprendi muito.
    Parabens. Otimas explucacoes , claras e bem detalhadas.
    Obrigado por compartilhar seu cinhecimento.
    Continue produzindo esses bons conteudos.
    Grande abraca

  • @stenio8233
    @stenio8233 2 ปีที่แล้ว +2

    Muito bem! Poucos eu encontrei com uma didática tão clara e de fácil compreensão. Parabéns!

    • @ricardofalcao2177
      @ricardofalcao2177 ปีที่แล้ว

      Exato e as aulas não cançaram nem um pouco e eu consegui fazer a planilha toda só vendo aqui

  • @miltonbecare2604
    @miltonbecare2604 6 หลายเดือนก่อน

    Obrigado, professor Reynaldo por transmitir conhecimento

  • @falafácil007
    @falafácil007 2 ปีที่แล้ว +2

    Parabéns pelo teu canal... es uma das pessoas que tem um canal no TH-cam e que de facto não enrola. muito obrigado pelo ensinamento que tens compartilhado com todos.

  • @mauriciocoelho6550
    @mauriciocoelho6550 ปีที่แล้ว

    Parabéns pela aula, estou começando no VBA e aprendi muito

  • @magoms3299
    @magoms3299 2 ปีที่แล้ว +2

    Obrigado Professor, ótimo conteúdo.

  • @FlavioMartins-wy7em
    @FlavioMartins-wy7em ปีที่แล้ว

    Obrigado amigo por compartilhar esses conhecimentos, que me ajudaram muito.

  • @ricardofalcao2177
    @ricardofalcao2177 ปีที่แล้ว

    Amei assisti da primeira a última aula, gostei muito e fiz para minha mãe controlar os clientes dela de psicologia .... ai depois vou ver sua aula da agenda para acrescentar na planilha.

  • @joaomartins1622
    @joaomartins1622 2 ปีที่แล้ว +2

    Bom dia Professor!!! Sensacional suas aulas (super fácil de entender), parabéns por compartilhar seus conhecimentos de forma gratuito. Obs.: Estou na aula três e já estou conseguindo montar meu formulário na qual não falhou nenhuma linha de comando. Obrigaduuu (Caçapava SP).

  • @MarcoClementeinforbarbosac
    @MarcoClementeinforbarbosac ปีที่แล้ว +1

    Ola muito obrigado Reyno conseguir acompanhar ate a aula 15º, deu tudo certinho ate aqui, vcs vão fazer mas video para nos? ( CONTROLE DE CLIENTES ). E muito facil quando o professor tem essa paciencia para explicar . Desde ja meu agradecimentos. Marco Clemnente

  • @gabrielbitt
    @gabrielbitt 3 หลายเดือนก่อน

    Parabéns pelos videos
    Assisti toda a playlist de criação de Formulário, curti bastante.
    Gostaria de uma ajuda com o erro com a barra de pesquisa.

  • @deliobarbosa8998
    @deliobarbosa8998 10 หลายเดือนก่อน

    Realmente, show !!!

  • @lucianoferreira9587
    @lucianoferreira9587 3 หลายเดือนก่อน

    Simplesmente sensacional as aulas, tenho apenas uma pergunta e se puder ajudar!!!! criei mais de uma texbox com valor....como faço para soma-las????????
    desde ja agradeço

  • @JoaquimRibas-rh8kz
    @JoaquimRibas-rh8kz 4 หลายเดือนก่อน

    Muito boa a suas aulas.
    Tenho uma dúvida: Eu consigo preencher esse cadastro e quando eu salvar, e ou buscar, e ou pesquisar as informações exportando e importando todas essas informações em outra planilha?

  • @camaraservicos155
    @camaraservicos155 ปีที่แล้ว

    Professor Reynaldo, sugestão um sistema de vendas em VBA

  • @pr.wilsontome3045
    @pr.wilsontome3045 ปีที่แล้ว +1

    Parabéns pelas aulas! Você é um professor nato. Assisti a todas e consegui fazer axatamente como eu gostaria. Agora, eu vi que você ensina a fazer uma tela de login. Tem como coloca-la neste formulário?

  • @camaraservicos155
    @camaraservicos155 ปีที่แล้ว

    Bom dia todos, Professor Reynaldo sua didática pra ensino é excelente está de parabéns. Professor nesse último bloco da aula 15 escrito e conferido todos os códigos relacionados abusca por nome, mas não da resultado, há algum recurso que resolva isso? e obrigado

  • @centroqualifica6018
    @centroqualifica6018 5 หลายเดือนก่อน

    Este procedimento não podia ser feito com uma combo box, compilando os campos necessários e uma só caixa para pesquisa?
    Gosto das suas aulas.
    Obrigado pela atenção

  • @canaltvgame9972
    @canaltvgame9972 2 หลายเดือนก่อน

    13:37 este código serve tanto pra buscar quanto pra carregar? Tenho uma planilha que utilizo dois códigos um pra busca e outro pra carregar e isso sobrecarrega a planilha. Já que tenho muitos formulários. Poderia dar uma olhada na minha planilha re dar umas dicas? Onde posso corrigir ou fazer melhorias. É só pra da umas docas mesmo. Claro se puder.

  • @edicordeiro1
    @edicordeiro1 ปีที่แล้ว

    Parabéns Reyno, trabalho excelente!!
    Meu caro, tem como você nos ensinar como setar uma planilha no momento de salvarmos os dados do formulário ? Pois notei que neste mine curso que você nos presenteou, no momento em que vamos salvar os dados, se a planilha estiver mais de uma aba, tem que a aba base esta prioritária se não salva em outra aba.

  • @morenorolim2348
    @morenorolim2348 ปีที่แล้ว

    Professor Renato, boa tarde, as suas aulas são de uma metodologia muito boa, aprendi muito. Professor tive um problema na busca por nome como vários amigos tiveram. depois de várias tentativas consegui solucionar o problema. Copiei o Código enviado e após executar nada aparece
    para funcionar inibi o ON ERROR RESUME NEXT E DECLAREI A VARIAVEL DADOS aí funcionou corretamente, gostaria de receber seu comentário se esta foi a melhor solução. muito obrigado professor Renato.

    • @kaiocesar221
      @kaiocesar221 ปีที่แล้ว

      Não estou conseguindo por nada kkkk

  • @corretornsr
    @corretornsr ปีที่แล้ว +2

    Boa tarde professor!
    Estou tentando fazer uma soma automática, sem botão, tenho 4 textbox vamos dizer V1, v2, v3, v4 e preciso que seja ((V1+v2) * (v3+v4)) /4
    Não estou conseguindo que esse resultado apareça na textboxterreno que seria o resultado ou minha quinta textbox

  • @AntonioBeckel
    @AntonioBeckel 7 หลายเดือนก่อน

    Boa Noite Professor. ate agora tudo bem consegui fazer tudo. mas a minha pergunta e quanto a casa dos valores, de onde vai sair os valores a ser lançado na minha planilha, digo valor da divida. de onde vão sair.

  • @imperador41
    @imperador41 หลายเดือนก่อน

    Boa noite, acompanhei do 1º a 15ª aula, deu tudo certo. Apenas uma pergunta, no meu sistema eu fiz cadastro de nota fiscal, eu pesquiso por NUMERO DA NOTA FISCAL, e posso ter o mesmo NUMERO, mas com o CNPJ diferente, só que quando pesquiso por exemplo nota fiscal numero 123, se tiver duas numerações quando faço a pesquisa ele não APARECE NA LISTA, já se tiver apenas um numeração por exemplo 321, ele filtra. Pergunta tem como aparecer os dois numeros 123 e filtrar os dois na lista e eu escolher qual dos dois clicar para aparecer no formulário?

  • @eudeciosilvaOficial
    @eudeciosilvaOficial ปีที่แล้ว

    Olá. Parabéns pelo belo curso. Como faço para adquirir esta planilha?

  • @zacariasfernandesferreira5699
    @zacariasfernandesferreira5699 ปีที่แล้ว +1

    Olá Professor! Boa tarde!
    Parabéns pela didática, não tinha nenhuma noção de vba, porem, acompanhando suas aulas pude fazer um cadastro de funcionários para utilizar no meu trabalho. Porém notei que depois de implantar a busca por nome, ao clicar na lista os dados sobem para as textbox, mas fica travada na primeira que cliquei não muda mais, a não ser que eu limpe o formulário. Alguma dica?

  • @carlitos2012able
    @carlitos2012able 2 ปีที่แล้ว

    Boa Noite, muito boa a sua explicação, parabéns pelo projeto, gostei bastante. Quando sai a próxima aula? Será continuação deste formulário?

  • @miltonbecare2604
    @miltonbecare2604 6 หลายเดือนก่อน

    Meus parabéns pela didática de suas aulas que são muito boas. Fiz um formulário de cadastro de clientes, mas tenho nomes que se repetem em vários registros e quando faço a busca pelo nome ele esta me retornando o seguinte erro: erro em tempo de execução "381". não foi possível definir a propriedade list. Índice de matriz de propriedade não válido.
    Peço a sua ajuda para resolver esse problema. agradeço a sua atenção

  • @edsonlucianopofratarcangel1630
    @edsonlucianopofratarcangel1630 ปีที่แล้ว

    Bom dia !
    Fiz as duas configurações conforme o video e nas duas buscas não retornaram os valores de busca.
    o código esta identico, conferi as colunas e linhas e etc.
    O que posso tentar alterar, pois a planilha depois daquela dica para buscar mais de 10 linhas, não tiveram mais empecilhos alem do desta aula.
    Desde já agradeço vossa atenção.

  • @diegovasconcelos6832
    @diegovasconcelos6832 3 หลายเดือนก่อน

    Bom dia, seus vídeos são muti bons, consegui aprender muita coisa, segui todos os passos e o meu mini sistema ficou quase 100 %... Preciso de ajuda para a pesquisa por nome, minha pesquisa não retorna nenhum resultado, eu segui seu código a risca, mesmo assim não deu certo aqui

  • @xjtinha6750
    @xjtinha6750 ปีที่แล้ว +1

    Teria como fazer um Cabeçalho Fixo sem ser com Label?
    Minha ListBox conta com 24 colunas.

  • @nicolauramos3151
    @nicolauramos3151 ปีที่แล้ว

    Parabéns pelo conteúdo meu amigo, como gerar um documento em Word com essas informações ?

  • @admportoseguro-pastorgilli9398
    @admportoseguro-pastorgilli9398 2 ปีที่แล้ว

    Professor não tenho curso mais tudo que sei é aprendendo vendo aulas no TH-cam e tenho um pouco de noção.

  • @josecarlosmathias2841
    @josecarlosmathias2841 ปีที่แล้ว

    Boa tarde!
    Você tem uma didatica excelente, parabens...
    Sobre a busca pelo nome, como fazer uma busca para ele apresentar nomes repetidos, ou seja, quando digitar Carlos, me trás todos o nomes que contem Carlos (JOSÉ CARLOS ALMEIDA, CARLOS JOSE ASSIS...)
    desde já agradeço.

    • @gabrielsalles1465
      @gabrielsalles1465 10 หลายเดือนก่อน

      Olá boa tarde!
      Conseguiu arrumar uma solução para este problema?

    • @imperador41
      @imperador41 หลายเดือนก่อน

      Conseguiu arrumar uma solução para este problema?

  • @joaomartins1622
    @joaomartins1622 2 ปีที่แล้ว

    Olá professor, boa tarde! Você tem alguma aula específica na qual você tira dúvidas dos seus inscritos e outra que explica sobre as Funções/Comandos do VBA Ecxel?

  • @alexandrerubiale
    @alexandrerubiale 2 ปีที่แล้ว +2

    Bom dia, fiz as 2 formas de busca mas nao funcionou, quando dou enter simplemente limpa a lista e nao mostra nenhuma informação. Qual o problema?

  • @joelmasoares2430
    @joelmasoares2430 3 หลายเดือนก่อน

    Estou com um probleminha, pode me ajudar? Minha planilha base tem uma fórmula de pesquisa automática do CEP, porém qdo eu digito o CEP no formulário apaga a fórmula na planilha.

  • @franciscononato9684
    @franciscononato9684 2 ปีที่แล้ว

    Professor bom dia, suas aulas me fizeram ter uma outra visão sobre o VBA. gostaria de saber como colocamos uma relaçao de produtos na coluna A, quantidade na coluna B, Valor unitário na C , subtotal na D e o valor total em qualquer célula abaixo de maneira que quando imprimir ou gerar o PDF, va direto pra a Planilha 3. no caso seria para enviar um orçamento ao cliente.

  • @jaimealves1731
    @jaimealves1731 2 ปีที่แล้ว +3

    Ola professor a minha busca por nome nao funcionou ele limpa a listbox mas nao tras resultado ficando vazio e o userform nao mostra q tem erro

    • @kaiocesar221
      @kaiocesar221 ปีที่แล้ว

      Estou na mesma situação. Conseguiu soliconar o problema?

    • @jaimealves1731
      @jaimealves1731 ปีที่แล้ว

      @@kaiocesar221 o meu estava certo é q eu confundi os eventos o meu ficou o update daí só aparece o nome quando da um enter , depois vc clica no nome q aparece ele desce para o formulário ele vc consegue alterar blz

  • @adenilsonlopessoares2079
    @adenilsonlopessoares2079 ปีที่แล้ว +1

    O meu comando de busca não funciona, mesmo o codigo estando correto

  • @osmarsantos33
    @osmarsantos33 ปีที่แล้ว +1

    Olá bom diaaa
    Montei meu cadastro com as minhas necessidades e tudo foi maravilhosamente funcionando bem, porem o botão buscar não consigo fazer funcionar corretamente. Quando digito algo para buscar simplesmente deixa a lista vazia.

  • @zecamizva8431
    @zecamizva8431 ปีที่แล้ว

    Bom dia professor.
    Preciso muito de um botão talvez tipo formulário/listbox, para que cada vez que eu digitar e dar enter o valor entre em uma coluna na tabela e vá sendo adicionado um a baixo do outro, não encontrei nada que seja parecido com isso, acredito que deve ser criado com simples códigos vba. Obrigado !!!

  • @maltez1234
    @maltez1234 ปีที่แล้ว

    ola boa noite professor
    Sobre o cabeçalho tenho 42 colunas na planilha
    Montei meu cadastro com as minhas necessidades e tudo foi ficou a funcionar bem, porem o botão buscar não consigo fazer funcionar corretamente. Quando digito algo para buscar simplesmente deixa a lista vazia. e o userform nao mostra q tem erro

    • @kaiocesar221
      @kaiocesar221 ปีที่แล้ว

      Estou na mesma situação. Conseguiu resolver?

  • @AdrianaSouza-fy2iy
    @AdrianaSouza-fy2iy 2 ปีที่แล้ว

    Olá, professor! Boa noite. Por favor, não estou conseguindo fazer a busca por nome. apaguei e refiz novamente e não deu certo. Será muito útil para a realização do meu projeto. E claro, vc tbm é parte dele!!! Agradecida.

  • @dtn11
    @dtn11 2 ปีที่แล้ว

    Bom dia,
    Poderia adicionar o evento duplo click na linha selecionada, chamar um segundo formulário listando apenas os dados do item selecionado limitando os 100ultimos registros para fazermos uma nova análise. O usuário ficaria com a opção de usar a textbox e o duplo click é o mesmo código, mais dentro de uma novo formulário e dentro do duplo click.

  • @bruna40594
    @bruna40594 ปีที่แล้ว

    Bom dia, professor!
    Eu seguir todas suas aulas e fiz o meu formulário ficou perfeito S2. mas estou com uma dificuldade, na hora que eu busco o meu cabeçalho não aparece e eu tenho 30 colunas, você deu o exemplo de colocar em cima da listbox, mas as minhas colunas são mais 12 kkkkkk.
    Eu queria saber se existe alguma forma que eu possa congelar o meu cabeçalho, que quando eu buscar um nome o cabeçalho ainda ficar fixo dentro da listbox.
    por favor help-me!

  • @wco8394
    @wco8394 2 ปีที่แล้ว +1

    Daria para fazer esse formulário com fotos ou imagens ?

    • @reynoconhecimentos
      @reynoconhecimentos  2 ปีที่แล้ว

      Inserimos fotos neste formulário. Dá uma conferida: th-cam.com/play/PLDe1-1k004jFWw4UuN0WUeOqkP2Y5twEP.html

  • @sergioisleyliebeldasilva925
    @sergioisleyliebeldasilva925 2 ปีที่แล้ว

    Bom dia,
    Estou na 9ª aula do curso Planilha de clientes.
    Cometi algum erro e estou com o cadastro aberto mas não consigo mais abrir o programa.
    Peço vossa ajuda,
    Grato

  • @isabellaandrade1982
    @isabellaandrade1982 ปีที่แล้ว

    Minha planilha tem 37 colunas ... como faço?? Com as Labels não vai resolver

  • @luanvillablanca5072
    @luanvillablanca5072 2 ปีที่แล้ว

    Sobre o cabeçalho tenho 27 colunas na planilha. Queria achar uma forma de incluir, conforme o cabeçalho da lista de busca.

  • @marlenemiranda6165
    @marlenemiranda6165 29 วันที่ผ่านมา

    Boa tarde, alguém consegue me ajudar, minha busca por cpf, por nome não devolve dados, assim como editar também não está retornando os dados para edição. Tudo estava funcionando perfeitamente e de repente parou de funcionar, mas não retorna nenhum erro!

  • @admportoseguro-pastorgilli9398
    @admportoseguro-pastorgilli9398 2 ปีที่แล้ว

    Amigo estou fazendo no Excel 2007 como eu salvo tudo que já fiz , não estou conseguindo e aí tenho que fazer tudo de novo a userform com todos os comandos ,

  • @canaltvgame9972
    @canaltvgame9972 2 หลายเดือนก่อน

    Tantas atualizações no Office. Poderiam dar uma atenção a mais no programa. Colocar colunas a mais, botões personalizados, uma galeria de ícones específicos para os usuários.

  • @manuelloureiro-s7v
    @manuelloureiro-s7v ปีที่แล้ว

    Boa tarde
    Adorei todas as aulas. Tenho um desafio quando vou pesquisar o nome e tenho nomes exatamente iguais a lista fica vazia. Como será possível pesquisar vários nomes iguais e mostrar na lista?
    Obrigada

    • @gabrielsalles1465
      @gabrielsalles1465 10 หลายเดือนก่อน

      Olá boa tarde!
      Conseguiu arrumar uma solução para este problema?

    • @imperador41
      @imperador41 หลายเดือนก่อน

      Conseguiu arrumar uma solução para este problema?

  • @abacaxiculturafda8540
    @abacaxiculturafda8540 2 ปีที่แล้ว +2

    Como usar um leitor de código de barras no Excel

  • @1956joaocs
    @1956joaocs 2 ปีที่แล้ว

    Boa Noite, Mestre... Fiz 2 vezes e não acertei. Optei pelo Updata e após digitar o nome dou enter e simplesmente limpa o campo dos nomes.

  • @RodrigoHahn-k4e
    @RodrigoHahn-k4e ปีที่แล้ว

    O meu não esta dando certo, Ja conferi 3 Vzs meus codigos, estão td certo, somente a pesquisa por nome que nao esta funcionando

  • @uniseg1000
    @uniseg1000 ปีที่แล้ว

    Boa noite. Estou com um problema no Listbox e na Busca pelo Nome. Enviei todos os detalhes para seu Email, estou no aguardo, Obrigado.

  • @falafácil007
    @falafácil007 2 ปีที่แล้ว +2

    Porque não colocar uma senha para criar nível de acesso para cada usuário neste projeto?
    Ele já esta espetacular e desta forma ficaria muito mais ainda impossibilitando que qualquer pessoa excluísse um dado, editasse, salvasse etc.
    1 - Grupo só consegue fazer pesquisa "Busca".
    2 - Grupo só pesquisa, cria novo e edita.
    3 - Grupo só pesquisa, cria novo, edita e apaga
    4 - Grupo é o que da acesso aos usuário e faz tudo o que os outros fazem com limitações.
    Obs.: Gostaria de muito de ver isso neste projecto.

    • @LindaRodrigues
      @LindaRodrigues 2 ปีที่แล้ว

      Mas já foi passado a aula pra proteger a planilha com senha.Acho que vc perdeu essa aula, pois eu só acesso a minha pra fazer qualquer alteração qdo digito a senha que eu mesma coloquei e o exemplo do Professor, a formula foi feita na célua Z1 da planilha, vola as aulas que vc vai ver.

  • @vamosbolar8860
    @vamosbolar8860 2 ปีที่แล้ว +2

    😀 Parabéns pelo canal. 🚫 Uma dica: Dizer "SE INSCREVA(E) no canal" é ERRO de colocação promominal por começar um período.... Na língua portuguesa isso NÃO é permitido! Por favor, use o presente do subjuntivo para formar o imperativo. Logo, diga "INSCREVA-SE no canal" ou "SIGA-ME no canal", ou algo similar. ☆ No TH-cam não existe botão "SE inscreva". O botão é "INSCREVER-SE".👍 Um forte abraço.

    • @reynoconhecimentos
      @reynoconhecimentos  2 ปีที่แล้ว +1

      Valeu por me alertar. É apenas vício de linguagem que deve ser corrigido. Mas e aí, você já se inscreveu? Abraço!

    • @marketplacegranfino
      @marketplacegranfino 2 ปีที่แล้ว

      @@reynoconhecimentos ...isso não é uma aula, é um pós graduação, por isso que é bom frequentar bons lugares, Obrigado a todos

  • @secretagent6309
    @secretagent6309 9 หลายเดือนก่อน

    Muito bom, bem esclarecedor, porém, um problema sério, a funcionalidade criar PDF por exemplo só funciona nos PCs onde foi criado, e se adaptado para outros PCs só funciona nos PCs onde foi instalado.
    Se colocar na nuvem para ser usado por mais usuários numa rede, dá erro no código copiado da macro e editado no - Private Sub BTPDF_CLICK() -, o código que dá erro é o seguinte:
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "C:\Users\pu2vf\OneDrive\Área de Trabalho\FICHA CLIENTES\" & nome & ".pdf", Quality _
    :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
    Como corrigir para que possa ser usado em qualquer máquina ou na nuvem?

  • @evandrosanto5246
    @evandrosanto5246 10 หลายเดือนก่อน

    Comando tá errado

  • @barbarasilva1654
    @barbarasilva1654 ปีที่แล้ว

    Boa noite professor, muito obrigada pela série, me ajudou muito iniciar esse aprendizado. Estou com uma dificuldade, quando executo o código de pesquisar por nome dá o erro 381 - não foi possível definir a propriedade Lis. Índice de matriz de propriedade inválido. Quando coloco o código pra tratamento de erro, a busca fica em branco. Esse é o meu código. Pode me ajudar? Desde já, muito obrigada.
    Private Sub TextBoxBuscaNome_AfterUpdate()

    On Error Resume Next

    dados = Planilha2.Range("E" & Rows.Count).End(xlUp).Row

    Lista = Clear
    Lista.RowSource = Clear

    Y = 0

    For fila = 6 To dados

    descrição = ActiveSheet.Cells(fila, 5).Value
    If UCase(descrição) Like "*" & UCase(Me.TextBoxBuscaNome.Value) & "*" Then

    Me.Lista.List = Range("C5:AZ5").Value
    Me.Lista.Clear

    Me.Lista.AddItem

    Me.Lista.List(Y, 0) = ActiveSheet.Cells(fila, 3).Value
    Me.Lista.List(Y, 1) = ActiveSheet.Cells(fila, 4).Value
    Me.Lista.List(Y, 2) = ActiveSheet.Cells(fila, 5).Value
    Me.Lista.List(Y, 3) = ActiveSheet.Cells(fila, 6).Value
    Me.Lista.List(Y, 4) = ActiveSheet.Cells(fila, 7).Value
    Me.Lista.List(Y, 5) = ActiveSheet.Cells(fila, 8).Value
    Me.Lista.List(Y, 6) = ActiveSheet.Cells(fila, 9).Value
    Me.Lista.List(Y, 7) = ActiveSheet.Cells(fila, 10).Value
    Me.Lista.List(Y, 8) = ActiveSheet.Cells(fila, 11).Value
    Me.Lista.List(Y, 9) = ActiveSheet.Cells(fila, 12).Value
    Me.Lista.List(Y, 10) = ActiveSheet.Cells(fila, 13).Value

    Y = Y + 1

    End If

    Next

    Lista.ListIndex = -1

    End Sub

  • @marcosviniciussoaresdasilv3021
    @marcosviniciussoaresdasilv3021 2 ปีที่แล้ว

    Professor olá,
    Estou tendo dificuldades na opção do botão busca como segue print abaixo:
    Private Sub BTBuscar_Click()

    Dados = Plan1.Range("B" & Rows.Count).End(xlUp).Row

    LISTA = Clear
    LISTA.RowSource = Clear

    y = 0

    For fila = 5 To Dados

    Descrição = ActiveSheet.Cells(fila, 3).Value

    If UCase(Descrição) Like "*" & UCase(Me.TextBoxBusca.Value) & "*" Then

    Me.LISTA.List = Range("A1:AZ4").Value
    Me.LISTA.Clear

    Me.LISTA.AddItem

    ** Me.LISTA.List(y, 0) = ActiveSheet.Cells(fila, 1).Value **
    Me.LISTA.List(y, 1) = ActiveSheet.Cells(fila, 2).Value
    Me.LISTA.List(y, 2) = ActiveSheet.Cells(fila, 3).Value
    Me.LISTA.List(y, 3) = ActiveSheet.Cells(fila, 4).Value
    Me.LISTA.List(y, 4) = ActiveSheet.Cells(fila, 5).Value
    Me.LISTA.List(y, 5) = ActiveSheet.Cells(fila, 6).Value
    Me.LISTA.List(y, 6) = ActiveSheet.Cells(fila, 7).Value
    Me.LISTA.List(y, 7) = ActiveSheet.Cells(fila, 8).Value
    Me.LISTA.List(y, 8) = ActiveSheet.Cells(fila, 9).Value
    Me.LISTA.List(y, 9) = ActiveSheet.Cells(fila, 10).Value
    Me.LISTA.List(y, 10) = ActiveSheet.Cells(fila, 11).Value
    Me.LISTA.List(y, 11) = ActiveSheet.Cells(fila, 12).Value
    Me.LISTA.List(y, 12) = ActiveSheet.Cells(fila, 13).Value
    Me.LISTA.List(y, 13) = ActiveSheet.Cells(fila, 14).Value

    y = y + 1
    End If
    Next
    Como chegar ao referido denominador de efetivação.
    Obrigado

    • @JOHNSONSAJA
      @JOHNSONSAJA ปีที่แล้ว

      Bo Tarde Amigo Voce Esqueceu de Colocar o Codigo
      "On Error Resume Next"
      Segue Abaixo o Codigo Correto
      Private Sub TextBoxBuscaNome_Change()
      On Error Resume Next

      Dados = Planilha1.Range("B" & Rows.Count).End(xlUp).Row

      Lista = Clear
      Lista.RowSource = Clear

      y = 0

      For fila = 4 To Dados

      descrição = ActiveSheet.Cells(fila, 2).Value
      If UCase(descrição) Like "*" & UCase(Me.TextBoxBuscaNome.Value) & "*" Then
      Me.Lista.List = Range("A3:AZ4").Value
      Me.Lista.Clear
      Me.Lista.AddItem
      Me.Lista.List(y, 0) = ActiveSheet.Cells(fila, 1).Value
      Me.Lista.List(y, 1) = ActiveSheet.Cells(fila, 2).Value
      Me.Lista.List(y, 2) = ActiveSheet.Cells(fila, 3).Value
      Me.Lista.List(y, 3) = ActiveSheet.Cells(fila, 4).Value
      Me.Lista.List(y, 4) = ActiveSheet.Cells(fila, 5).Value
      Me.Lista.List(y, 5) = ActiveSheet.Cells(fila, 6).Value
      Me.Lista.List(y, 6) = ActiveSheet.Cells(fila, 7).Value
      Me.Lista.List(y, 7) = ActiveSheet.Cells(fila, 8).Value
      Me.Lista.List(y, 8) = ActiveSheet.Cells(fila, 9).Value
      Me.Lista.List(y, 9) = ActiveSheet.Cells(fila, 10).Value
      Me.Lista.List(y, 10) = ActiveSheet.Cells(fila, 11).Value
      Me.Lista.List(y, 11) = ActiveSheet.Cells(fila, 12).Value
      Me.Lista.List(y, 12) = ActiveSheet.Cells(fila, 13).Value
      Me.Lista.List(y, 13) = ActiveSheet.Cells(fila, 14).Value

      y = y + 1
      End If
      Next


      End Sub

  • @alemaogamer_ofc
    @alemaogamer_ofc 2 ปีที่แล้ว

    Parabens pelo seu entendimento me basiei na sua criei meu sisteminha top de mais! @descubrapk follome