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.....
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Barra de rolagem no ultimo item da listbox (NÃO RESOLVIDO)
-
- Colaborador
- Mensagens: 43
- Registrado em: Sex Jan 31, 2020 9:53 am
Barra de rolagem no ultimo item da listbox (NÃO RESOLVIDO)
Editado pela última vez por rachelgdias em Seg Jun 07, 2021 11:31 am, em um total de 1 vez.
Re: Barra de rolagem no ultimo item da listbox
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
-
- Colaborador
- Mensagens: 43
- Registrado em: Sex Jan 31, 2020 9:53 am
Re: Barra de rolagem no ultimo item da listbox (NÃO RESOLVIDO)
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.