ListBox com título ...
 
Notifications
Clear all

ListBox com título e várias colunas

2 Posts
1 Usuários
0 Reactions
1,243 Visualizações
(@eduardop)
Posts: 0
New Member
Topic starter
 

Eu achei um tópico a respeito disso: http://www.planilhando.com.br/forum/viewtopic.php?f=23&t=2110

Porém, eu não entendi aonde eu coloco o código citado pelo Mauro Coutinho, pois o criador do tópico não colocou o código todo...

Bom, eu tenho esse código, ele faz exatamente o que eu preciso, que é pegar todos os valores da coluna até achar uma célula em branco, eu gostaria de fazer 6 colunas no meu ListBox, todas com esse código ou similar, para fazer a busca até a célula em branco.

Sub UserForm_Initialize() 'Executa ação ao inicializar a UserForm

'''''''''----------------------------- Início do Código da ListBox

lin = 2 '''''''''Faz com que os códigos iniciem a partir da Linha 2

Do Until Plan2.Cells(lin, 1) = "" ''''''Início do loop "Do Until" - Verifica o valor da "lin(2)" na primeira coluna para ver se encontra o valor ""(Em branco)
ListBox1.AddItem Plan2.Cells(lin, 1) ''''''''''''Adiciona à ComboBox o item que foi verificado pelo código acima, é definido pelo "lin, 1"
lin = lin + 1 ''''''''''''Define que o valor de lin agora será o lin de antes (2) mais 1, que resulta em 3, a cada loop esse processo se repete
Loop ''''''''''''Fim do Loop

End Sub

Os comentários servem para que eu não me perca, pois estou estudando VBA, e isso me ajuda a entender os códigos.

Obrigado desde já!

 
Postado : 03/03/2017 5:13 am
(@eduardop)
Posts: 0
New Member
Topic starter
 

Pessoal, dei uma pesquisada e encontrei o seguinte código:

Private Sub UserForm_Initialize()
With Sheets("DADOSV2").UsedRange
ListBox1.ColumnCount = .Columns.Count
ListBox1.RowSource = .Address

End With
End Sub

Eu gostaria agora de definir os cabeçalhos e ajustar as larguras conforme o preenchimento, isto é, ajustar a coluna para o texto mais longo.
Um problema deste código é que ele vai até o fim da planilha, ou seja, fica muitas linhas em branco.

 
Postado : 03/03/2017 5:49 am