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

Tela Inicial do ListView

Dúvidas gerais sobre Excel
betoacunha
Colaborador
Colaborador
Mensagens: 27
Registrado em: Qua Jul 07, 2010 1:38 pm

Tela Inicial do ListView

Mensagem por betoacunha »

Olá pessoal e bom ano a todos . . .

Num formulário de pesquisa tenho um ListView em que vialiso centenas de registros. Na ativação da pesquisa, de praxe sempre aparece neste ListView os primeiros registros. Alguem tem uma dica para que apareça os registros finais no mesmo, quando da abertura deste formulário ???

Abs


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
joseA
Jedi
Jedi
Mensagens: 1048
Registrado em: Qui Out 22, 2009 7:22 am
Localização: Cel. Fabriciano - MG

Re: Tela Inicial do ListView

Mensagem por joseA »

seria isso?

Código: Selecionar todos

Private Sub UserForm_Initialize()
    ' Adiciona as colunas
   With ListView1
        .FullRowSelect = True 'seleciona linha
        .View = lvwReport
        .ColumnHeaders.Add Text:="Id", Width:=40
        .ColumnHeaders.Add Text:="Nome", Width:=80
        .ColumnHeaders.Add Text:="Endereço", Width:=80
        .ColumnHeaders.Add Text:="Valor", Width:=70
     '   .ColumnHeaders.Add Text:="Index", Width:=40
        .Gridlines = True 'efeito grade

    End With
    '...................................................................
' Adiciona itens
Dim i As Integer
For i = 2 To Plan1.Range("F1").Value
ListView1.ListItems.Add 1, , Format(Plan1.Range("A" & i).Value, "000")
ListView1.ListItems(1).ListSubItems.Add 1, , Plan1.Range("B" & i).Value
ListView1.ListItems(1).ListSubItems.Add 2, , Plan1.Range("C" & i).Value
ListView1.ListItems(1).ListSubItems.Add 3, , Format(Plan1.Range("D" & i).Value, "#,##0.00")
'ListView1.ListItems(1).ListSubItems.Add 4, , Plan1.Range("E" & i).Value
Next i

End Sub


betoacunha
Colaborador
Colaborador
Mensagens: 27
Registrado em: Qua Jul 07, 2010 1:38 pm

Re: Tela Inicial do ListView

Mensagem por betoacunha »

Obrigado José ...

Na verdade o código para preenchimento do ListView já está inserido, gostaria de uma dica para exibir os últimos registros quando da abertura do mesmo, pois me parece padrão ele mostrar sempre os primeiros registros. O meu interesse é visualizar os últimos movimentos de um livro caixa neste ListView.

Abs

Beto Cunha


Avatar do usuário
joseA
Jedi
Jedi
Mensagens: 1048
Registrado em: Qui Out 22, 2009 7:22 am
Localização: Cel. Fabriciano - MG

Re: Tela Inicial do ListView

Mensagem por joseA »

Não entendí muito bem, mas esse código mostra a lista da planilha invertida. A ordem do último ao 1º...


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.


betoacunha
Colaborador
Colaborador
Mensagens: 27
Registrado em: Qua Jul 07, 2010 1:38 pm

Re: Tela Inicial do ListView

Mensagem por betoacunha »

Opa ...

Desculpa José, chegando em casa eu testo, foi mal não me atentei a isso ...

Abs

Beto


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