LISTBOX COM MAIS DE 10 COLUNAS

[@ricardogoncalves7043]

que aula foda !!!! muito bom

[@cluizesilva]

SHOW

[@Jane-kn7rj]

Muito obrigada por compartilhar.

[@jonathanmarcos95]

Esse professor aí se responde galera! Recomendo!

[@ProgramadorExcelVBA]

Obg Jonathan vlw a força
Att, Gledson Programador Excel VBA

[@jonathanmarcos95]

@@ProgramadorExcelVBA Tmj Professor!

[@excel-school]

Muito bom! Parabéns!

[@ProgramadorExcelVBA]

Ola Josue obg
Att, Gledson Programador Excel VBA

[@igorgraca7990]

Professor, como faz para destacar o cabeçalho?

[@marciosantos73]

Muito bom Gledson

[@ProgramadorExcelVBA]

Obg Marcio meu amigo.
Att, Gledson Programador Excel VBA

[@sergionogueiraluciano1974]

Obrigado, gostei muito.
Tive que usar Listviews algumas vezes por contar do listbox não carregar mais de dez colunas. Problema resolvido, valeu.

[@ProgramadorExcelVBA]

opa Sergio fico super feliz, caso ñ seja inscrito, inscreva-se para ñ perder nenhum conteudo novo.
Att, Gledson Programador Excel VBA

[@Anjo1183]

bom dia professor, como faço pra psquisar e aparecer o mnome da pesquisa apenas com as iniciais? e ao mesmo tempo selecionar o nome na listbox?

[@smartins022]

Excelente aula, parabéns

[@lucassouto4902]

Como fazer isso com o banco de dados access?

[@bocanegrabr]

Eu fiz esse ListBox com 48 colunas , estava tudo bem. fiz ate um filtro com horas ... tudo funcionando bem..... do nada começou a dar erro 6 : estouro de memoria..... apaguei tudo estou tentando refazer .... mesmo está dando estouro

[@gilsonricardo1908]

Que legal.
Tem como a Plan5 ser uma planilha externa? Ou seja, tem como trar dessa forma uma planhilha de meu Bd?

[@gilsonricardo1908]

?

[@w00t3d]

Existe a possibilidade de incluir uma pesquisa por algum campo nesse código? Tenho um código que funciona a pesquisa porém apenas em 10 campos e eu preciso que funcione nesse código pois tenho que listar 18 campos no listbox.

[@canaldomelhorsolador5840]

#EuqueroAprender

[@ProgramadorExcelVBA]

Obg Ricardo vlw
Att, Gledson Programador Excel VBA

[@marcosdesouzafreires5137]

Excelente vídeo Gledson, show de bola! parabéns pelo conteúdo..

[@ProgramadorExcelVBA]

Obg Marcos vlw a força
Att, Gledson Programador Excel VBA

[@wesleymatias1977]

Bom conteúdo, didática ótimo, gostaria de tirar uma dúvida, estou num projeto multiusuário no Excel, gostaria de saber como pegar + de dez coluna utilizando este mesmo códigos, quero que todas as informações da minha base de dados externa apareça no listbox, é possível fazer isso?

[@RealizandoSonhos.]

Fiz e ficou show
Estou tentando pesquisar em mais de dez coluna mais ainda nao consegui. Sera que consigo? Ate dez deu certo

[@jonathanmarcos95]

Conteúdo de qualidade aí viu! 💪🏼😉

[@ProgramadorExcelVBA]

Obg Jonathan meu parceiro feliz em vê-lo aq
Att, Gledson Programador Excel VBA

[@edimorth]

Gledson, obrigado pela video aula, muito top msm.
A minha LISTBOX esta demorando muito para mostrar os dados e reparei que ao debugar, o TOTAL de LINHAS é de 13677 linhas, sendo que tenho apenas 350 linhas com dados em 11 colunas.
Poderia me ajudar por favor, já revisei os códigos e estão identicos ao do video.

[@jailsonm.decarvalho8652]

Excelente aula, mais queria esclarecer umas dúvidas
Queria saber se existe limitações para linhas e colunas.
Também ao carregar colunas com horas, a formatação altera para números decimais, queria resolver este problema tb.
Agradecido!

[@carlosalbertogoncalvespinto]

Show.
Só não entendi o pq o atributo ColumnCount aceitou um valor maior do que 10, visto que o listbox tem a limitação de 10 colunas.
Tenta fazer um teste ela recebendo diretamente o número 13 para ver se vai dar erro no código

[@ProgramadorExcelVBA]

Diretamente nas propriedades ñ aceita valor superior a 10, mas via codigo foi possível devido ao redim, q acredito pq faz um redimensionamento antes deu atribuir o valor ao columnCount.
Att, Gledson Programador Excel VBA

[@hebertalmeida227]

Olá professora ótima aula...estamos aprendendo bastante parabéns...mais tenho uma pergunta esse forma de carregar listbox pode ser usada nos seus exemplos de filtro com listbox se sim de qual maneira como exemplo o formulário de almoxarife que o senhor faz? E até quantas linhas ele roda sem trava...? Um forte abraço

[@RealizandoSonhos.]

fiz estes teste
Private Sub TextBox1_Change()
Dim Xcel As String, Coluna As Integer, LinhaListbox As Integer, Linha As Integer
'''''''''''''''''''''''''''''''
Dim ArrayItems()

With Plan1
ReDim ArrayItems(1 To .UsedRange.Rows.Count, 1 To .UsedRange.Columns.Count)
Me.ListBox1.ColumnCount = .UsedRange.Columns.Count
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
Linha = 2
LinhaListbox = 0
With Plan1
With Me.ListBox1
'Me.ListBox1.ColumnCount = .UsedRange.Columns.Count
.Clear
While Cells(Linha, 1) Empty
For Coluna = 1 To Plan1.UsedRange.Columns.Count '10 ' quatro colunas mais posso aumentar
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)
' .List(LinhaListbox, 2) = Cells(Linha, 3)
' .List(LinhaListbox, 3) = Cells(Linha, 4)
' .List(LinhaListbox, 4) = Cells(Linha, 5)
' .List(LinhaListbox, 5) = Cells(Linha, 6)
' .List(LinhaListbox, 6) = Cells(Linha, 7)
' .List(LinhaListbox, 7) = Cells(Linha, 8)
' .List(LinhaListbox, 8) = Cells(Linha, 9)
' .List(LinhaListbox, 9) = Cells(Linha, 10)
'

'Call CARREGAR13

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'For Coluna = 1 To ListBox1.ColumnCount 'teste era 10
ArrayItems(Linha, Coluna) = Plan1.Cells(Linha, Coluna).Value 'teste
'Next
'Next Linha

Me.ListBox1.List = ArrayItems()
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

LinhaListbox = LinhaListbox + 1
GoTo proxima_linha
End If
Next Coluna
proxima_linha:
Linha = Linha + 1 'incrementando a linha da base de dados
Wend
Me.LblRegistros.Object = .ListCount & " Registro(s) encontrados"
End With
End With
End With
End Sub