Carregar Listbox com MAIS de DEZ COLUNAS e Filtrar com Excel VBA

[@ricardogoncalves7043]

Pensa em uma aula de alto valor... é essa !!!

[@CanalSGP]

Obrigado.

[@MiguelOliveira-vb9qz]

Parabéns pelo conteúdo !! Único vídeo que encontrei sobre este tema, era justamente o que eu precisava !! Aula ótima, muito obrigado

[@CanalSGP]

Obrigado

[@americopinto7740]

Sensacional!!! Funcional demais porque a alteração do número de colunas na planilha é automática

[@CanalSGP]

Bom dia, obrigado, sucesso em seus estudos.

[@americopinto7740]

@@CanalSGP Professor estou usando essa funcionalidade de inserir mais de 10 colunas no meu projeto de controle de estoque. A listbox e está carregando perfeitamente tanto no evento inicialize, quanto no botão filtrar, mas quando seleciono as opções de filtro e aplico filtrar nada acontece. A diferença entre essa aula e o que fiz foi que usei combobox no lugar das textbox isso mudaria alguma coisa?

[@americopinto7740]

Obrigado, já resolvi.

[@josueazevedo7870]

Fenomenal! Essa aula foi muito massa! Parabéns ao canal, com vossos ensinamentos, o dia a dia de muitos fica mais fácil...

[@CanalSGP]

Olá, obrigado, bons estudos.

[@Jane-kn7rj]

Aula Excelente como sempre ! Parabéns!!!

[@CanalSGP]

Obrigado.

[@marciomartins7827]

Bom Dia! Agradeço a todas as explicações fornecidas, sempre me ajudou quando obtive dificuldades. Valeu... sugestão: - para inserir cabeçalho fixo em ListBox com mais de 10 colunas, no exemplo abaixo tem 41 colunas. exemplo: Function ListaNovidades_Horas_Janeiro() Dim ListarNovidades_Horas_Janeiro As Range dim Ultima_Linha_Horas as long ' de forma dinâmica Ultima_Linha_Horas = Planilha22.Range("b25").CurrentRegion.Rows.Count Set ListarNovidades_Horas_Janeiro = Planilha22.Range(Planilha22.Cells(25, 2), Planilha22.Cells(Ultima_Linha_Horas, 41)) ListaNovidades_Horas_Janeiro = ListarNovidades_Horas_Janeiro.Address(, , , True) End Function '===================================================================================================== ' no modo initialize ou change, insere este código para carregar as informações Private Sub UserForm_Initialize() Me.ListBoxHorasJaneiro.RowSource = ListaNovidades_Horas_Janeiro() ' para exibir somente as colunas desejadas Me.ListBoxHorasJaneiro.ColumnWidths = "65pt;50pt;40pt;0pt;42pt;0pt;42pt;0pt;42pt;0pt;42pt;0pt;42pt;0pt;42pt;0pt;42pt;0pt;42pt;0pt;42pt;0pt;42pt;0pt;42pt;0pt;42pt;0pt;42pt;0pt;42pt;0pt;42pt;0pt;42pt;0pt;42pt;0pt;0pt;1500pt" end sub

[@CanalSGP]

Bom dia, que bom, sucesso em seus estudos.

[@fernandocoelho1334]

Ótimas dicas. Estou fazendo um pequeno trabalho usando excell para não ter usar linguagens ou framework. Acho que fica mais rápido fazer uma combinação entre critérios, fazendo o filtro, sem a cláusula Then, mas somente no Else. É bom executar o Debug ou passo a passo (F8), para saber o comportamento e tentar otimizar. Lembrando que combinando os critérios, perdemos a oportunidade de preencher somente um dos valores.

[@CanalSGP]

Bom dia, obrigado.

[@Taiane_Lorena]

Muito obrigado por nos ajudar tanto.... Parabéns 🎊🎊

[@CanalSGP]

Boa tarde, obrigado.

[@SENTANDODEDONOXDOUBER]

Mais uma EXCELENTE aula Professor, parabéns! Estas informações me serão muito úteis em um projeto que estou pretendendo criar em breve. Mais uma vez obrigado por compartilhar seus conhecimentos!

[@CanalSGP]

Bom dia, obrigado, sucesso em seus estudos.

[@wastecbalancas3114]

Obrigado pelos vídeos e pelo retorno, estou tentando desenvolver uma ordem de serviço com cadastro de clientes, pesquisa, alteração e exclusão com listbox, mas não tá fácil

[@rafaribeiro5402]

Estou fazendo o mesmo! kkkkkkk Trabalho em Autopeças.

[@leandrorodrigues9645]

Vídeo show de bola. Você é muito bom nesse tal de VBA. Parabéns! Like. Só uma questão, você cita bastante atenção às colunas vazias à esquerda da tabela, no meu caso minha tabela alvo está na coluna nº 50, só que tem apenas três colunas vazias no intervalo de 1 a 49. Mesmo assim eu tenho que somar 49 no UsedRange? No mais, muito Obrigado!

[@CanalSGP]

Bom dia, obrigado, precisa somar as colunas vazias anteriores a tabela dos seus dados.

[@mauriciosecco7009]

Maravilha de aula. Sensacional!! Parabéns!!! Uma dúvida: existe a possibilidade de filtrar por valor aproximado? Por exemplo, o primeiro nome, ou trecho..

[@CanalSGP]

Bom dia, obrigado. Tem outro procedimento mais avançado que acredito que vai atender melhor esta necessidade. Segue link: kzbin.info/www/bejne/m3O2nXxsmbWVbM0

[@mauriciosecco7009]

@@CanalSGP Funcionou PERFEITAMENTE!!!

[@CanalSGP]

Que bom.

[@jmarcelsp]

Olá, reproduzi a aula , funcionou do jeito que precisava , pergunto, como faço para aparecer a informação ou usar a lógica como consulta em outra planilha? Grato

[@CanalSGP]

Boa tarde, não entendi exatamente, mas se for em outra aba, pode alterar a aba referenciada.

[@jmarcelsp]

@@CanalSGP No caso seria em outra planilha, como se fosse um pop up, a pessoa chamaria uma consulta , busca as informações que deseja e fecha a consulta

[@CanalSGP]

Bom dia, para buscar dados de outra planilha fechada tem o procedimento utilizado na plylist a seguir, mas é um pouco mais complexo. kzbin.info/www/bejne/gabWZmdnorOJo8U

[@jmarcelsp]

@@CanalSGP Muito uma vez grato pela paciência, tenho mais uma dúvida. Preciso bloquear contra digitação a partir da linha 44, todas as colunas com marcação em Verde ( C, G, L à P, S,T, V, AA, AL, e AQ), Da célula 44 à 146, Além disto como como bloquear e librará o acesso com por senha, por ser campos de formulas, caso tenha necessidade de ajusta a formulas, somente o usuário master consiga fazer isto.

[@josueferreira8864]

Obrigado professor por ter me atendido!!! Que Deus te abençoe sempre!!

[@CanalSGP]

Olá, de nada, bons estudos.

[@renatopereira4372]

Ótima aula, só esta carregando 21 linha, tenho mais de 1000. as colunas estão corretas

[@CanalSGP]

Boa noite, veja se tem linhas vazias, pode influenciar na contagem de linhas totais.

[@renatopereira4372]

Vou tentar e te aviso, muito obrigado.

[@renatopereira4372]

bom dia, deu certo. agora como fixar o cabeçalho?

[@FranciscoDarioSouzaLima]

Muito boa a sua explicação. Tentei replicar e ta dando erro de tempo de execução 13 Tipos incompatíveis. O que seria

[@CanalSGP]

Bom dia, obrigado, tipos incompatíveis envolve tipos de dados. Por exemplo, se declarar uma variável como Dim Data as Date, a variável Data vai aceitar somente informações do tipo data, se passar texto, número ou vazio vai retornar a mensagem de tipos incompatíveis.

[@neuderwesley2225]

Excelente

[@CanalSGP]

Obrigado

[@kelvinMovies]

Professor. Não dá para implementar um for só para as duas condições?

[@CanalSGP]

Boa tarde, sim, mas tem um vídeo com procedimento mais rápido. Segue link: kzbin.info/www/bejne/m3O2nXxsmbWVbM0

[@kelvinMovies]

@@CanalSGP E por falar em ListBox e banco de dados. Tenho um outro problema. Quando fazemos logOn e loOff em um usuário para acessar o sistema com banco de dados, que comandos representa em sql?

[@CanalSGP]

Bom dia, para sair acredito que vai precisar fechar a conexão e fechar o formulário.

[@adilsonoliveira9976]

Ótima dica! Estava precisando....

[@bocanegrabr]

aula ótima. só me tira uma duvida eu fiz esse filtro e na culna horário que fiz esta saindo números 0,625 0354 no lugar de horas

[@CanalSGP]

Boa tarde, vai precisar formatar para hora, segue link de vídeo de exemplo de formatação. kzbin.info/www/bejne/mnrZgKyDmNGpa68

[@feliperez.4509]

Luan, poderia me orientar? Como eu posso formatar uma das colunas do meu ListBox como Porcentagem (%) com este método de Arrays?

[@CanalSGP]

Boa noite, pode utilizar procedimento parecido ao da vídeo aula a seguir: kzbin.info/www/bejne/pYrWiXyZrK6iesU

[@feliperez.4509]

@@CanalSGP Luan, aproveitando o momento, poderia me dizer se é possível ajustar a largura do cabeçalho nas colunas do ListBox com o método Arrays demonstrado no video? EX: "120; 30; 60; 70;" como em outros tipos de ListBox, só que fazendo isso com o demostrado em video, fixando o cabeçalho posteriormente, grato e desculpe o incomodo.

[@CanalSGP]

Para definir a largura é o mesmo procedimento ColumnWhidit, já o cabeçalho fixo não tem como.

[@gustavoviniciusrochadossan3199]

Olá, adorei o vídeo e cheguei ao resultado, porém gostaria que as colunas referentes a valores carregassem no formato R$ 0,00 é possível . Pois da maneira da aula carrega = 00... aguardo, obrigado

[@CanalSGP]

Bom dia, pode aplicar o procedimento da vídeo aula a seguir para fazer a conversão: kzbin.info/www/bejne/pYrWiXyZrK6iesU

[@eduardodaher7720]

Sou recente no canal primeiramente gostaria de elogiar a aula. Na minha planilha o código funcionou quase que perfeitamente. Apenas um detalhe ficou faltando. A fórmula não está reconhecendo a primeira linha da minha tabela como cabeçalho, então fica aquele espaço em branco na list box quando a Column Head está ativada, você poderia me ajudar com isso?

[@CanalSGP]

Bom dia, obrigado, deve ter erro nas referências aos espaços que serão carregados, deixe seu e-mail que envio a planilha para que possa comparar.

[@tecalexrj2]

Mais uma vez, obrigado por mais esta magnifica aula!

[@CanalSGP]

De nada.

[@CanalSGP]

Bons estudos.

[@gsa1440]

ótimo!! Estou tentando quebrar a cabeça para tentar burlar o limite de colunas do listbox. Não tinha pensado em associar um array. Esta foi ótimo... Vivendo e aprendendo!! Saberiam me informar se alguma forma de converter um mp3 em texto através do controle windows mediaplayer?

[@CanalSGP]

Olá, infelizmente não sabemos de nenhum procedimento capaz de realizar esta tarefa.

[@gabriela8884]

Vc é excelente!!!

[@CanalSGP]

Obrigado.

[@jailsonm.decarvalho8652]

Gostei da aula! Mais queria saber se não existe a possibilidade de pesquisar por uma parte de texto e/ou número e poder obter resultados de todos campos com estes textos ou números, desta forma resulta apenas para pesquisa exata. Também ao efetuar a pesquisa, possuo uma coluna que é horas, mais ela converte-se par numero decimais ao ser carregado na pesquisa. Agradecido!

[@CanalSGP]

Bom dia, obrigado, segue link de um formulário com filtro neste sentido. kzbin.info/www/bejne/bneydZh7bNmWa5Y

[@sergiodurvaldasilva9163]

Professor grato pela aula, preciso contar a quantidade de itens filtrados e informar em uma label no formulário , como seria?

[@CanalSGP]

Boa noite, utilize por exemplo, Listbox1.ListCount

[@sergiodurvaldasilva9163]

No Initialize funciona porém quando faço o filtro não.@@CanalSGP

[@CanalSGP]

Precisa colocar o comando após os códigos de filtro.

[@Dpe-lw1uz]

Mto bom o video!! Amigo tenho um projeto de cadastro de cliente com foto. Estou fazendo cartao dos clientes. Sera que existe um codigo que no useform quando eu selecionar o cliente eu consiga enviar a foto dele junto com os dados para o modelo de cartao em uma aba da minha planilha(a do cartao)???? Seria na verdade carregar o endereco da celula da foto e carregar a foto na outra aba ne...

[@CanalSGP]

Olá, obrigado.

[@adilsonoliveira9976]

Olá! Luan, do jeito que foi feito o ListBox com arrays, tem como formatar a coluna valor em moeda (R$), por exemplo?

[@gustavoviniciusrochadossan3199]

Também tenho está dúvida...

[@alexandrecasa2008]

Muito bom, eu estava fazendo essa consulta de um jeito diferente no evento change da textbox, porem ele estava caindo em loop e travava a planlha, assim deu certo. Tem como fazer a pesquisa no evento on change da textbox com mais de 16 colunas na listbox?

[@CanalSGP]

Olá, obrigado, não é possível fazer no evento change, porque vai executar os comandos a cada letra e vai travar, como relata.

[@alexandrecasa2008]

@@CanalSGP graças ao seu video consegui consertar a minha consulta, pois tenho outra planilha com três colunas e consegui fazer a consulta no onchange, dai só copiei a consulta dela para a de cliente dai deu pau em tudo, rsrs.

[@CanalSGP]

@@alexandrecasa2008 Que bom, vivendo e aprendendo.

[@paulorogeriosouza1249]

excelente, tem como fazer uma dessa com mais de 10 colunas, porém carregando do access?

[@CanalSGP]

Bom dia, vamos analisar essa possibilidade.

[@LucasIta2008]

Gosto muito de seus vídeos. Gostaria de saber se é possivel dar-me uma ajuda em um problema que não achei em nenhum outro video e um video seu chegou bem próximo do que preciso mas não consegui adaptar para o meu problema. O meu problema é o seguinte: tenho um formulario que vai gravar na minha PLAN1 alguns dados, até aí tudo normal, meu formulário irá gravar os dados nas colunas ID, NOME, ENDEREÇO, CEP, DDD, CELULAR e eu preciso abrir uma listbox ou uma listview e atraves de seleção, eu grave apenas ID, NOME, DDD e CELULAR na PLAN2. Como eu faria isso??????

[@CanalSGP]

Boa noite, obrigado, acredito que se adaptar o procedimento do vídeo a seguir, pode atender sua necessidade. kzbin.info/www/bejne/jXfVpnV7bL-Xq9k

[@calyde1]

Oi tudo bom, queria uma ajuda pra criar uma planilha para que eu colocasse o nome do produto, daí ele mostre uma foto, (se der) e me mostre o código de barras, a intenção e sempre que eu for imprimir ver se o código de barras e o certo do produto, pós na empresa o pessoal muda muito o nome da etiqueta e deixa o cód de outro produto, criando um stresse enorme, teria como o senhor me ajudar?

[@Chulasc]

Professor, realizei os códigos e funcionou perfeitamente, porém eu já havia feito um formulário com duas listbox, contendo parte das colunas da planilha em uma listbox e outra parte em outra listbox, mas funcionou em uma listbox, eu queria que quando filtrasse, os resultados obtidos na primeira listbox, aparecessem as mesma linhas na outra listbox com suas colunas específicas, é possível? Tentei replicar as fórmulas na outra listbox colocando os valores dela mas toda pesquisa fica em branco.

[@CanalSGP]

Bom dia, não tentei fazer isso até o momento, não sei dizer exatamente o que seria.

[@guilhermeferro6018]

Professor, e se por ventura, eu tiver feito um formulário para preenchimento de planilha, com data, valores e produtos, mas esses produtos, estiverem preenchimento por número, e a pessoa que estiver executando esse preenchimento, não souber de cor o número de um determinado produto, eu conseguiria, colocar uma pesquisa dentro desse formulário apenas como pesquisa? Sem ter a necessidade de fechar o formulário...?

[@CanalSGP]

Bom dia, não entendi exatamente sua dúvida, mas se for pesquisar nos dados que constam na listbox, pode utilizar o procedimento da vídeo aula a seguir também:kzbin.info/www/bejne/oHvCm3unhZ6Jjac

[@guilhermeferro6018]

@@CanalSGP então,na verdade esse listbox de pesquisa, não vai retornar nenhum valor para a planilha, ela só vai ser usada para pesquisa, caso a pessoa não saiba o número de produto, que ele vai usar em outro campo do formulário....

[@antoniopizorusso4502]

Boa noite!! Tudo bem? Sobre listBox da videio aula eu a companhei deu certo mais no meu caso quando carrega hora ela vem em fração . Tem jeito de corrigir ? Obrigado pela atenção.

[@CanalSGP]

Bom dia, tente formatar a coluna da listbox, segue exemplo: kzbin.info/www/bejne/pYrWiXyZrK6iesU

[@ivansoares7046]

Tem como formatar as colunas de valores ?

[@CanalSGP]

Bom dia, segue link de vídeo de exemplo sobre formatação. kzbin.info/www/bejne/pYrWiXyZrK6iesU

[@kelvinMovies]

Professor. Preciso da sua ajuda novamente. Essa dúvida não tem a ver com o assunto, mas foi a forma mais rápida que eu vi para perguntar. Toda vez que uso uma label para colocar figurinhas, fica meio desfigurada. Como faço para deixar nítida a imagem? Não precisa fazer video, rsrsrsrs, só uma explicação mais ou menos consigo me virar por aqui. A não ser que queira. Muito obrigado

[@CanalSGP]

Bom dia, talvez deixar a label no mesmo tamanho da imagem em pixels pode melhorar.

[@kelvinMovies]

@@CanalSGP encontrei uma solução. Fiz um formato no excel, agrupei, copei e colei, e deixei bem grande a imagem e mandei para a label. Ficou joia. Não sei se foi assim que eu entendi que tu me disses. Agradeço muito sua ajuda

[@CanalSGP]

Que bom que conseguiu.

[@kelvinMovies]

@@CanalSGP Prº. Pode me ajudar com outra situação, fazendo um enorme favor? Como que é a programação para deslogar de um usuário e logar em outro?

[@joserodriguesdesouza9160]

Boa Noite Luan. Mais uma vez estou abusando de sua bondade. Acontece que vi o seu vídeo explicando como fazer para que uma Listbox mostre mais de 10 colunas. Estou com uma planilha com 12 colunas, então fiz o procedimento ensinado na vídeo aula, mas acontece que recebo a mensagem (Erro em tempo de execução 438; o objeto não aceita esta propriedade ou método) quando vou executar. Como corrigir? Ti encaminhei um e-mail com os comandos digitados, para que você, se puder verificar se tem alguma coisa digitada errada, pois infelizmente não sou muito entendido em VBA . Obrigado.

[@CanalSGP]

Bom dia, e-mail respondido.

[@taveira5135]

Amigão, fiz todo processo e ficou o máximo, no entanto o cabeçalho aparece ativo para seleção, ou seja, não entrou na linha de cabeçalho e é selecionado ao clicar no ListBox. Poderia me ajudar?

[@CanalSGP]

Olá, não entendi direito, deseja retirar o cabeçalho?

[@griladosoficial]

tem como carregar o list box em formato de célula?? pois os dados preenchidos precisamos copiar para efetuarmos nossas tarefas

[@CanalSGP]

Bom dia, até o momento não sei de procedimento capaz de realizar esta tarefa.

[@igorpenteado1043]

Gostaria de saber se tem ha possibilidade de em uma listbox com mais de dez colunas, colocar uma coluna no formato de horas?

[@CanalSGP]

Bom dia, vou estudar essa necessidade.

[@igorpenteado1043]

Valew pela ajuda

[@francisvieira4466]

opa, top, porque Quando vou filtrar aparecer outros itens

[@CanalSGP]

Boa tarde, talvez seja falha nos critérios.

[@edimorth]

Professor, valeu pela aula estou com mensagem de erro 13 "Tipos Incompativeis" ao abrir o formulario. Obs: meus dados estão a partir da coluna "G até a coluna M" a partir da Linha 2 que é meu cabeçalho. Fiz as mudanças para o inicio na Linha 2 e coluna 7. Se tiver dados nas colunas de A até F, interfere em algo?

[@CanalSGP]

Bom dia, pela mensagem deve ser alguma variável que não está no formato correto, por exemplo variável double recebendo texto. Deixe seu e-mail que envio a planilha da aula.

[@edimorth]

@@CanalSGP muito agradecido Professor. Meu email: [e-mail]

[@georginavianadefreitastrei3453]

Aula muito bem explicada, mas o meu deu erro : 9, poderia envia a planilha por e-mail?

[@CanalSGP]

Bom dia, qual e-mail para envio?

[@alfredociuffiecoparque2377]

Como faço para colocar barra de rolagem horizontal no listbox, quando os dados de uma coluna são muito grandes?

[@CanalSGP]

Bom dia, dentro da coluna não sei se tem como colocar.

[@anitaferreira3923]

Olá! Luan. No botão "Filtro". Voce mencionou da VARIAVEL "Item" mas não mostrou que tipo é essa variavel. Usei várias,mas quando eu faço o filtro mostra apenas o valor da primeira linha da minha planilha. Nao importa a textbox que uso. Esse é o meu Código: Private Sub cmdFiltro_Click() Dim Item As Integer If ListBox1.ListCount < 1 Then Call Carrega_ListBox End If For Item = 1 To ListBox1.ListCount - 1 If txtCliente " " Then On Error Resume Next If ListBox1.List(Item, 2) = txtCliente.Text Then Else ListBox1.RemoveItem (Item) Item = Item - 1 ListBox1 = Null End If End If Next For Item = 1 To ListBox1.ListCount - 1 If txtClienteConta " " Then On Error Resume Next If ListBox1.List(Item, 1) = txtClienteConta.Text Then Else ListBox1.RemoveItem (Item) Item = Item - 1 ListBox1 = Null End If End If Next End Sub

[@CanalSGP]

Boa tarde, deixe seu e-mail que envio a planilha do vídeo.

[@anitaferreira3923]

Olá! Luan. Voce disse que Linha e Coluna são as variáveis que declaramos. Só que voce não mostrou onde elas foram declaradas.

[@CanalSGP]

Bom dia, faltou declarar no inicio do procedimento. Dim Linha As Double, Coluna As Double

[@anitaferreira3923]

@@CanalSGP muito obrigado pela rápida resposta. Está funcionando perfeito.

[@CanalSGP]

De nada.

[@danilobortoletto6196]

Ele fez o botão de limpar ?

[@CanalSGP]

Bom dia, se deseja limpar a listbox coloque o comando Listbox1.Clear.

[@eduardocarneiro2884]

Consigo geral um gráfico com as informações dessa list box?

[@CanalSGP]

Bom dia, com os dados da listbox não.

[@eduardocarneiro2884]

CANAL SGP ok, obrigado

[@rafaelfiuza885]

O meu deu erro na parte : ListaExpedicao.ColumnCount = .UsedRange.Columns.Count (OBS.: "ListaExpedicao" é o nome da minha listbox). Me resulta numa mensagem : "Erro em tempo de execução 424" O que fazer?

[@CanalSGP]

Boa tarde, pode ser o nome da guia da planilha que esteja errado.

[@josewammes3799]

Boa tarde E se eu quisesse excluir a coluna inteira por exemplo do cliente?

[@CanalSGP]

Bom dia, deseja excluir da listbox ou da planilha? Se for da planilha pode gravar uma macro, se for na listbox basta alterar a propriedade columnWidth para zero. Como no procedimento a seguir: kzbin.info/www/bejne/r5TLdJ-Hm6mhY9U

[@danblu10]

Ola vi vários videos de como carregar uma listbox com mais de dez colunas , mas não achei nada que explique como carregar colunas especificas, por exemplo tenho um listbox que tem 15 colunas mas quero carregar apenas a coluna 1,5 e a 8 como faço? Você consegue me ajudar

[@CanalSGP]

Olá, vamos estudar essa necessidade, se obtivermos sucesso, gravamos vídeo explicativo.

[@wastecbalancas3114]

Muito bom, mas percebi que só pesquisa digitando exatamente o qu tem na célula, não pesquisa por parte no nome, tem como resolver, agradeço

[@CanalSGP]

Bom dia, neste procedimento não tem como, pelo menos não fiz nada neste sentido ainda, mas vou estudar.

[@ntehoy]

Nao funcinou para mim. Estou utilizando multipage; sera que foi por isso. Da mensagem de erro "o objeto e obrigatorio". nao sei como resolver.

[@CanalSGP]

Boa tarde, provavelmente algum objeto com nome errado, pode ser nome da planilha ou nome da listbox por exemplo.

[@anitaferreira3923]

Olá, Luan. Já deixei farias vezes o meu email para voce me enviar a planilha. Nao sei por qual motivo não salvou. Se voce puder fazer a gentiliza de me enviar eu lhe agradeço muito. Obrigado pelo excelente tutorial.

[@CanalSGP]

Boa noite, acredito que o KZbin não está mais permitindo colocar e-mail nos comentários, na descrição do vídeo tem o link do site do canal, solicite a planilha no e-mail informado no site.

[@anitaferreira3923]

@@CanalSGP muito obrigado. Já vou já.

[@CanalSGP]

Bom dia, e-mail respondido.

[@anitaferreira3923]

@@CanalSGP Muito obrigado pelo o e-mail que me enviaste.

[@CanalSGP]

De nada

[@andreoak_l_l_]

Professor, usei esse código apenas trocando os nomes e mesmo assim está dizendo que o objeto é obrigatório, a base da dados está formatada como tabela com 16 colunas, isso interfere? Segue o código usado abaixo, se puder me dar uma dica. Sub List_HP() Application.ScreenUpdating = False Application.EnableEvents = False Planilha2.Select Dim arrayItens() With Planilha2 ReDim arrayItems(2 To .UsedRange.Rows.Count + 1, 1 To .UsedRange.Columns.Count) UserForm_ListBox_HP.ListBox_HP.Column.Count = .UsedRange.Columns.Count For linha = 2 To .UsedRange.Rows.Count + 1 UserForm_ListBox_HP.ListBox_HP.AddItem For coluna = 1 To .UsedRange.Columns.Count arrayItems(linha, coluna) = .Cells(linha, coluna).Value Next coluna Next linha UserForm_ListBox_HP.ListBox_HP.List = arrayItems() End With Application.EnableEvents = True Application.ScreenUpdating = True End Sub O que pode ser o erro?

[@CanalSGP]

Bom dia, objeto obrigatório geralmente é porque algum nome de objeto não existe. Deixe seu e-mail que envio a planilha da aula.

[@CanalSGP]

Boa noite, planilha enviada.

[@andreoak_l_l_]

@@CanalSGP Obrigado

[@TONYEVERTON1926]

Professor boa noite! Meu código está apresentando um erro de compilação (qualificador invalido). Como posso resolver esse erro. Segue a baixo código para avaliação. Sub Carregar_Listbox() Plan1.Select Dim ArrayItems() With Plan1 ReDim ArrayItems(4 To .UsedRange.Row.Count + 3, 1 To .UsedRange.Columns.Count) 'Aqui ListBox1.ColumnCount = UsedRange.Columns.Count For Linha = 4 To .UsedRange.Row.Count + 3 ListBox1.AddItem For Coluna = 1 To UsedRange.Columns.Count ArrayItems(Linha, Coluna) = .Cells(Linha, Coluna).ValueConstants Next Coluna Next Linha ListBox1.List = ArrayItems() End With End Sub

[@CanalSGP]

Bom dia, deixe seu e-mail que envio a planilha da vídeo aula para que possa comparar.

[@BinarKing1]

thank u i did it

[@CanalSGP]

De nada

[@altairrosa1792]

Pena que com o lopp não dá para escolher quais colunas utilizar.

[@CanalSGP]

Boa noite, tem outro procedimento com filtro direto no array, segue link. kzbin.info/www/bejne/m3O2nXxsmbWVbM0

[@nataliamedina8746]

Como faço para deixar a linha de titulos fixa?

[@CanalSGP]

Bom dia, infelizmente em listbox não tem como fazer isso, pelo menos não sei ainda.

[@nataliamedina8746]

@@CanalSGP obrigada!

[@anitaferreira3923]

O que significa "RDim"?

[@CanalSGP]

Boa noite, RDim é para definir o tamanho que o array precisa ter para suportar todos os dados que vai receber.

[@wastubeman]

TOP

[@RodolfoLimarer]

Deu erro no meu :( "Erro em tempo de execução '13': Tipos incompativeis

[@CanalSGP]

Bom dia, deixe seu e-mail que envio a planilha para que possa comparar.

[@joseedilsondinheiro]

o meu deu erro no Dim ArrayIIems()

[@CanalSGP]

Bom dia, o que percebi é que e tem uma letra errada: Dim arrayItems()

[@karinereginakaka7774]

nao consegui! dá um erro da planilha buscada. Sub carregar_listbox() Plan6.Select Dim arrayItems() With Plan6 ReDim arrayItems(1 To .UsedRange.Rows.Count, 2 To .UsedRange.Columns.Count + 1) ListBox1.ColumnCount = .UsedRange.Columns.Count For linha = 1 To .UsedRange.Rows.Count ListBox1.AddItem For coluna = 2 To UsedRange.Columns.Count + 1 arrayItems(linha, coluna) = .Cells(linha, coluna).Value Next coluna Next linha ListBox1.List = arrayItems() End With End Sub me ajuda por favor

[@CanalSGP]

Bom dia, deixe seu e-mail que envio a planilha para que possa comparar.

[@ppedukgr]

@@CanalSGP Poderia me enviar essa planilha, estou com um erro. [e-mail]

[@KLEBSONCARLOS]

PROFESSOR QUE CABRUNCO DE ERRO E ESSE? Erro em tempo de execução '1004': Método '' do objeto '_Global' falhou

[@CanalSGP]

Bom dia, as referências aos espaços da planilha deve ter erro, deixe seu e-mail que envio a planilha para que possa comparar.

[@KLEBSONCARLOS]

@@CanalSGP o senhor ja me enviou ,fiz as auteraçoes para minha planilha,mais sempre da esse erro

[@KLEBSONCARLOS]

@@CanalSGP o que o senhor quer dizer as referencias aos espaços da planilha?

[@CanalSGP]

Referências a linhas e colunas.

[@sergiosoares8067]

Sub listarpessoas() Dim intervalo As Range, celula As Range Dim contarcabeçalho As Integer Dim cabeçalho As String Dim linha As String Dim coluna As String Dim linha2 As Integer linha2 = 1 contarcabeçalho = 1 Set intervalo = Range("a2:c17") 'Sheets.Add 'adiciona nova planilha ' ActiveSheet.Name = "ana" ' alterana para ana For Each celula In intervalo Select Case contarcabeçalho Case Is = 1 cabeçalho = "nome:" Case Is = 2 cabeçalho = "idade:" Case Is = 3 cabeçalho = "sexo:" End Select 'linha = celula 'coluna = cabeçalho ' Debug.Print cabeçalho & celula Sheets("ana").Cells(linha2, 1).Value = cabeçalho Sheets("ana").Cells(linha2, 2).Value = celula contarcabeçalho = contarcabeçalho + 1 If contarcabeçalho >= 4 Then contarcabeçalho = 1 linha2 = linha2 + 1 Sheets("ana").Cells(linha2, 1).Value = "-----------------------------------------" End If linha2 = linha2 + 1 Next End Sub esse codigo pega os dados da planilha1 e cola na planilha ana tem os cabeçalhos nome,idade e sexo so que no comando for each as vezes perde o valor na variavel celula

[@CanalSGP]

Bom dia, não entendi sua dúvida.

[@picoli83]

Bom dia Professor. Estou com problema na linha: arrayItems(Linha, Coluna) = .Cells(Linha, Coluna).Value 'Linha com problema Erro: Erro definido pelo aplicativo ou pelo objeto Consegue me ajudar Sub Carrega_ListBox_Cliente() CLIENTES.Select Dim arrayItems() With CLIENTES ReDim arrayItems(2 To .UsedRange.Rows.Count + 1, 1 To .UsedRange.Columns.Count) UFCLIENTES.LBListaCliente.ColumnCount = .UsedRange.Columns.Count For Linha = 2 To .UsedRange.Rows.Count + 2 UFCLIENTES.LBListaCliente.AddItem For Coluna = 0 To .UsedRange.Columns.Count arrayItems(Linha, Coluna) = .Cells(Linha, Coluna).Value 'Linha com problema Next Coluna Next Linha UFCLIENTES.LBListaCliente = arrayItems() End With End Sub

[@CanalSGP]

Boa tarde, teste aumentar as linhas do array. ReDim arrayItems(2 To .UsedRange.Rows.Count + 2, 1 To .UsedRange.Columns.Count)

[@picoli83]

Funcionou, tinha um valor numa célula.

[@picoli83]

Parabéns pelas aulas. Vídeo aula show.

[@CanalSGP]

Que bom que conseguiu.