Página 1 de 1

REGISTRO BY ListBoX (RESOLVIDO)

Enviado: Ter Abr 23, 2019 4:07 pm
por Vagnfer
Preciso que ao iniciar o formulário as informações da "Plan1" já apareça no meu listbox3, porem as informações da coluna B não esta aparecendo ao iniciar o formulário, só da coluna A, sabem ma ajudar ??


Private Sub UserForm_Initialize()

Dim linhaFinal, linha, x As Integer

ListBox3.Clear

linhaFinal = Plan1.Cells(Rows.Count, 1).End(xlUp).Row

x = 0

For linha = 2 To linhaFinal
ListBox3.AddItem Plan1.Cells(linha, 1).Value
ListBox3.List(x, 1) = Plan1.Cells(linha, 2).Value

x = x + 1

Next
End Sub

Re: REGISTRO BY ListBoX

Enviado: Ter Abr 23, 2019 9:00 pm
por srobles
Vagnfer,

Primeiramente verifique se a propriedade ColumnCount do ListBox possui o valor correto :
1 para 1 coluna;
2 para 2 colunas;
E assim por diante, pois a rotina postada, apesar de não possuir um tratamento para não retornar valores nulo (em branco), está correta, mas para 2 colunas.
Espero ter ajudado.

REGISTRO BY ListBoX

Enviado: Qua Abr 24, 2019 2:12 pm
por Vagnfer
Ajudou sim!

deu certo! obrigado