Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Listbox com mais de...
 
Notifications
Clear all

Listbox com mais de 10 colunas. escolhendo coluna na base

 
2024 - VBA & Macros
9 Posts
4 Usuários
0 Reactions
1,927 Visualizações
RSS
 ROMELVSR
(@romelvsr)
Posts: 39
Eminent Member
Topic starter
 

Prezados, boa tarde!
Estou precisando de ajuda para fazer o listbox aceitar mais de 10 colunas, na verdade são 17. A dificuldade é carregar o listbox com algumas colunas escolhidas, não todas, de uma sheets.
Segue o código abaixo para ver se alguém consegue me ajudar. Agradeço desde já.

Sub ListBox_FormCurriculo()

Dim ultima_linha As Long
Dim Linha As Integer
Dim i As Integer

ultima_linha = Sheets("BD_Curriculos").Range("A100000").End(xlUp).Row

If Sheets("BD_Curriculos").Range("BC1").Value = "" Then
Form_CadastroCurriculos.ListBox_FormCadCurriculo.Clear

For Linha = 2 To ultima_linha

Form_CadastroCurriculos.ListBox_FormCadCurriculo.AddItem Sheets("BD_Curriculos").Range("E" & Linha)
Form_CadastroCurriculos.ListBox_FormCadCurriculo.List(Form_CadastroCurriculos.ListBox_FormCadCurriculo.ListCount - 1, 1) = Sheets("BD_Curriculos").Range("AT" & Linha)
Form_CadastroCurriculos.ListBox_FormCadCurriculo.List(Form_CadastroCurriculos.ListBox_FormCadCurriculo.ListCount - 1, 2) = Sheets("BD_Curriculos").Range("D" & Linha)
Form_CadastroCurriculos.ListBox_FormCadCurriculo.List(Form_CadastroCurriculos.ListBox_FormCadCurriculo.ListCount - 1, 3) = VBA.Format(Sheets("BD_Curriculos").Range("O" & Linha), "dd/mm/yy")
Form_CadastroCurriculos.ListBox_FormCadCurriculo.List(Form_CadastroCurriculos.ListBox_FormCadCurriculo.ListCount - 1, 4) = VBA.Format(Sheets("BD_Curriculos").Range("P" & Linha), "hh:mm")
Form_CadastroCurriculos.ListBox_FormCadCurriculo.List(Form_CadastroCurriculos.ListBox_FormCadCurriculo.ListCount - 1, 5) = Sheets("BD_Curriculos").Range("Q" & Linha)
Form_CadastroCurriculos.ListBox_FormCadCurriculo.List(Form_CadastroCurriculos.ListBox_FormCadCurriculo.ListCount - 1, 6) = Sheets("BD_Curriculos").Range("R" & Linha)
Form_CadastroCurriculos.ListBox_FormCadCurriculo.List(Form_CadastroCurriculos.ListBox_FormCadCurriculo.ListCount - 1, 7) = Sheets("BD_Curriculos").Range("AH" & Linha)
Form_CadastroCurriculos.ListBox_FormCadCurriculo.List(Form_CadastroCurriculos.ListBox_FormCadCurriculo.ListCount - 1, 8) = Sheets("BD_Curriculos").Range("AI" & Linha)
Form_CadastroCurriculos.ListBox_FormCadCurriculo2.List(Form_CadastroCurriculos.ListBox_FormCadCurriculo.ListCount - 1, 9) = Sheets("BD_Curriculos").Range("AK" & Linha)
Form_CadastroCurriculos.ListBox_FormCadCurriculo2.List(Form_CadastroCurriculos.ListBox_FormCadCurriculo.ListCount - 1, 10) = Sheets("BD_Curriculos").Range("AM" & Linha)
Form_CadastroCurriculos.ListBox_FormCadCurriculo2.List(Form_CadastroCurriculos.ListBox_FormCadCurriculo.ListCount - 1, 11) = Sheets("BD_Curriculos").Range("AN" & Linha)
Form_CadastroCurriculos.ListBox_FormCadCurriculo2.List(Form_CadastroCurriculos.ListBox_FormCadCurriculo.ListCount - 1, 12) = Sheets("BD_Curriculos").Range("AO" & Linha)
Form_CadastroCurriculos.ListBox_FormCadCurriculo2.List(Form_CadastroCurriculos.ListBox_FormCadCurriculo.ListCount - 1, 13) = Sheets("BD_Curriculos").Range("AP" & Linha)
Form_CadastroCurriculos.ListBox_FormCadCurriculo2.List(Form_CadastroCurriculos.ListBox_FormCadCurriculo.ListCount - 1, 14) = Sheets("BD_Curriculos").Range("AQ" & Linha)
Form_CadastroCurriculos.ListBox_FormCadCurriculo2.List(Form_CadastroCurriculos.ListBox_FormCadCurriculo.ListCount - 1, 15) = Sheets("BD_Curriculos").Range("AR" & Linha)
Form_CadastroCurriculos.ListBox_FormCadCurriculo2.List(Form_CadastroCurriculos.ListBox_FormCadCurriculo.ListCount - 1, 16) = Sheets("BD_Curriculos").Range("AS" & Linha)

Next

End If    
End Sub
 
Postado : 04/04/2018 2:01 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Disponibilize a planilha, so o codigo nao ajuda muito

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 04/04/2018 3:35 pm
 ROMELVSR
(@romelvsr)
Posts: 39
Eminent Member
Topic starter
 

Segue o link para Download: https://www.dropbox.com/s/j9cz0mluxe1aj ... .xlsm?dl=0

Observe que tentei improvisar colocando duas listbox para conseguir incluir todas as colunas, mas quando a quantidade de linhas ultrapassou o espaço, as barras de rolagem verticais aparecem e a rolagem da barra, quebra a linha da informação.

Estou querendo colocar todas as colunas em uma só listbox.
Estou com problema também na última linha do listbox, fica com a metade escondida.

 
Postado : 04/04/2018 5:31 pm
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 

https://www.youtube.com/results?search_query=VBA+LISTBOX+10+COLUNAS
https://www.google.com.br/search?q=VBA+LISTBOX+MAIS+DE+10+COLUNAS&oq=VBA+LISTBOX+MAIS+DE+10+COLUNAS&aqs=chrome..69i57.11876j0j7&sourceid=chrome&ie=UTF-8

 
Postado : 04/04/2018 9:19 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Uma possibilidade:

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 05/04/2018 3:41 am
 ROMELVSR
(@romelvsr)
Posts: 39
Eminent Member
Topic starter
 

Reinaldo, boa tarde!
O ajuste que vc fez, resolveu.
Só que pensei que se resolvesse a questão das mais de 10 colunas em um listbox, conseguiria adaptar para outro código para filtrar dados no listbox e não consegue resolver com o código de redimensionamento do listbox.

https://www.dropbox.com/s/j9cz0mluxe1aj ... .xlsm?dl=0
Estou enviando a planilha novamente através do link do dropbox, para ver se conseguir fazer os filtros que incluir funcionarem.

Agradeço desde já a atenção.

 
Postado : 09/04/2018 12:36 pm
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 

https://www.youtube.com/results?search_query=vba+filtro+listbox

 
Postado : 10/04/2018 5:39 am
 ROMELVSR
(@romelvsr)
Posts: 39
Eminent Member
Topic starter
 

Amigos, bom dia!
Klarc28, agradeço sua ajuda, só que não estou conseguindo dentro da estrutura que montei.
Eu consegui evoluir, filtrar os dados, só que não estou conseguindo agrupar os dados, ficando espaços em branco, conforme print.

Alguém pode me ajudar o código para agrupar as linhas para não ficar os espaços em branco ao filtrar?
Link da planilha: https://www.dropbox.com/s/j9cz0mluxe1aj ... .xlsm?dl=0

 
Postado : 10/04/2018 6:54 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Antes de mais nada, ao "querer" aplicar filtro; quando mais de um; em uma seleção, deve-se definir/detalhar o que cada filtro irá executar.
Em seu modelo você adicionou cinco combo para filtro, e os mesmos são carregados no evento intialize do Formulário; o que espera?
Filtro em separado para cada um, ou filtro composto

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 11/04/2018 12:15 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico