Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

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 » Ter Abr 23, 2019 4:07 pm

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: 753
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: REGISTRO BY ListBoX

Mensagem por srobles » Ter Abr 23, 2019 9:00 pm

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.


Espero ter ajudado.

Abs.

Saulo Robles


Remember when you were young?
You shone like the sun.
Shine On You Crazy Diamond


Se suas dúvidas foram esclarecidas, acrescente ao lado do título o texto [RESOLVIDO].

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

REGISTRO BY ListBoX

Mensagem por Vagnfer » Qua Abr 24, 2019 2:12 pm

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