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

Barra de rolagem no ultimo item da listbox (NÃO RESOLVIDO)

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
rachelgdias
Colaborador
Colaborador
Mensagens: 43
Registrado em: Sex Jan 31, 2020 9:53 am

Barra de rolagem no ultimo item da listbox (NÃO RESOLVIDO)

Mensagem por rachelgdias »

Bom dia
Gostaria que quando eu abrisse meu USERFORM, que contem um listbox, a barra de rolagem estivesse no ultimo item carregado. Pois NAO quero descer a barra de rolagem toda vez que abro minha listbox.

coloquei isso no inicialize, mas nao funciona.
ListBox1.SelectedIndex = ListBox1.Items.Count - 1

Desculpem a minha burrice, mas alguem poderia me ajudar.....
Editado pela última vez por rachelgdias em Seg Jun 07, 2021 11:31 am, 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.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Barra de rolagem no ultimo item da listbox

Mensagem por webmaster »

Isso aqui funcionou:

Código: Selecionar todos

Private Sub UserForm_Initialize()
    For i = 1 To 12
        ListBox1.AddItem MonthName(i)
    Next i
    ListBox1.ListIndex = (ListBox1.ListCount - 1)
End Sub


rachelgdias
Colaborador
Colaborador
Mensagens: 43
Registrado em: Sex Jan 31, 2020 9:53 am

Re: Barra de rolagem no ultimo item da listbox (NÃO RESOLVIDO)

Mensagem por rachelgdias »

webmaster escreveu: Qua Abr 21, 2021 4:49 pm Isso aqui funcionou:

Código: Selecionar todos

Private Sub UserForm_Initialize()
    For i = 1 To 12
        ListBox1.AddItem MonthName(i)
    Next i
    ListBox1.ListIndex = (ListBox1.ListCount - 1)
End Sub


Bom dia WebMaster, meu codigo esta assim agora:

Private Sub UserForm_Initialize()
Sheets("Plan1").Select ' abre planilha listada
For i = 1 To 3
ListBox1.AddItem MonthName(i)
Next i
ListBox1.ListIndex = (ListBox1.ListCount - 1)

Dim linha As Integer
linha = WorksheetFunction.CountA(Columns(6)) + 2 ' Dados filtrados contando com o cabeçalho a partir da linha 3
ListBox1.RowSource = "f3:h" & linha 'dados filtrados a partir da linha 3 do filtro para aparecer no listbox
ListBox1.ColumnCount = 3
End Sub

DEU ERRO DE ERRO DE COMPILAÇAO, VARIAVEL NAO DEFINIDA.


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