Visual Basic Vba carregar abas e dados em listbox

[tt_branco]

Alguém sabe como retirar os dados em branco da textbox?

 

Private Sub UserForm_Initialize()

nAbas = Sheets.Count
For n = 2 To nAbas 'Conta a partir da segunda aba


'Carrega o nome da aba
ListBox1.AddItem Sheets(n).Name
ListBox1.list(ListBox1.ListCount - 1, 1) = Sheets(n).Name

'carrega o nome do arquivo armazenado na aba selecionada
ListBox1.AddItem Range("B2")
ListBox1.list(ListBox1.ListCount - 2, 1) = Sheets(n).Range("B2")

Next n

End Sub

 

teste.xlsx

[Midori]

15 horas atrás, tt_branco disse:

Alguém sabe como retirar os dados em branco da textbox?

Textbox ou Listbox? É só comparar se o valor do controle está em branco (= "", p.ex) e usar o método do próprio controle para remover.

[tt_branco]

Listbox, não existe linhas em branco entre dados da planilha mas ao carregar a listbox eles são separados por uma linha em branco.

Citação

Private Sub UserForm_Initialize()

nAbas = Sheets.Count
For n = 2 To nAbas 'Conta a partir da segunda aba


'Carrega o nome da aba
ListBox1.AddItem Sheets(n).Name
ListBox1.list(ListBox1.ListCount - 1, 1) = Sheets(n).Name
ListBox1.AddItem Range("B2")
ListBox1.list(ListBox1.ListCount - 2, 1) = Sheets(n).Range("B2")

Next n

End Sub