Vídeo recomendado
https://youtu.be/diWPPPhW-9E

REGISTRO BY ListBoX (RESOLVIDO)

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Vagnfer
Acabou de chegar
Acabou de chegar
Mensagens: 6
Registrado em: Seg Abr 15, 2019 3:35 pm

REGISTRO BY ListBoX (RESOLVIDO)

Mensagem 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
Editado pela última vez por Vagnfer em Qua Abr 24, 2019 2:12 pm, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


srobles
Jedi
Jedi
Mensagens: 805
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: REGISTRO BY ListBoX

Mensagem 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.


Vagnfer
Acabou de chegar
Acabou de chegar
Mensagens: 6
Registrado em: Seg Abr 15, 2019 3:35 pm

REGISTRO BY ListBoX

Mensagem por Vagnfer »

Ajudou sim!

deu certo! obrigado


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder