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