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