Inserir informação listbox


#1

Boa noite!
Estou tentando criar uma planilha de busca entre datas, porém quando eu estou montando o código para apresentar os resultados na listbox, ele me retorna apenas a primeira coluna a partir da segunda ele não mostra para mim, porém quando eu rodo o código manualmente ele mostra que está reconhecendo, ou seja, entendo ser um problema apenas para exibir a informação no listbox.
Depois de evoluir esta etapa eu pretendo finalizar minha planilha de consulta entre datas.
Abaixo segue o código que estou fazendo, o meu Excel está na língua inglesa.

Private Sub UserForm_Initialize()
Dim LinhaFinal, linha, x As Integer

ListBox1.Clear

LinhaFinal = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row

x = 0

For linha = 2 To LinhaFinal
ListBox1.AddItem Sheet1.Cells(linha, 1).Value
ListBox1.List(x, 1) = Sheet1.Cells(linha, 2).Value
ListBox1.List(x, 2) = Sheet1.Cells(linha, 3).Value

x = x + 1

Next

End Sub

Obrigada


#2

Tem um jeito mais fácil

Listbox.columncount = 3
Listbox.rousource = “plan1!(a1: c100)”


#3

eu coloquei aqui só 3 colunas, mas são várias e o numero de linhas dependerá da pesquisa feita…
acho q do jeito q vc colocou fica meio travado o numero de linhas e colunas, não?


#4

Tenta fazer assim

Dim guia as worksheet
Dim linha, linhalistbox1 as integer
Set guia = plan1
Linhalistbox = 0
Linha = 2 (linha de início dos dados da tabela)

With guia
Wile.cells(linha, 2).value<> “”
With listbox1
.additem
List (linhalistbox, 0) = guia.cells (linha, 2)
List(linhalistbox, 1) = guia.cells(linha, 3)
(Adiciona um list pra cada coluna)
End with
Linhalistbox = linhalistbox +1
Linha = linha + 1
Wend
End with


#5

Ou vc pode colocar uma variável pra coluna tb, e acrescentar +1 na busca

Dim guia as worksheet
Dim linha, linhalistbox1, coluna as integer
Set guia = plan1
Linhalistbox = 0
Linha = 2 (linha de início dos dados da tabela)
Colunalistbox = 0
Coluna = 1 (coluna de início dos dados)

With guia
Conf:
Wile.cells(linha, coluna).value <> “”
With listbox1
.additem
List (linhalistbox, colunalistbox ) = guia.cells (linha, coluna)
End with
Linhalistbox = linhalistbox +1
Linha = linha + 1
Wend
Coluna +1
Go to conf
Enf with