Notifications

Clear all

Erro código para listview

2024 - VBA & Macros

Post Recente por rarph84 7 anos atrás

8 Posts

4 Usuários

0 Reactions

1,882 Visualizações

RSS

rarph84

(@rarph84)

Posts: 39

Trusted Member

Topic starter

Boa tarde,

Alguém consegue me dizer oq há de errado com esse código que não carrega meu listview (ainda em construção estou apenas querendo visualizar a cada etapa).

Private Sub UserForm_Initialize()

With ListView1
    .Gridlines = True 'Exibe/oculta as linhas da grade
    .View = lvwReport 'Estilo da exibição
    .FullRowSelect = True ' Permite selecionar uma linha
   
    .ColumnHeaders.Add Text:="Supervisor", Width:=140
    .ColumnHeaders.Add Text:="Meta", Width:=20
    .ColumnHeaders.Add Text:="Ideal Fat.", Width:=20
    .ColumnHeaders.Add Text:="(%)", Width:=15
    .ColumnHeaders.Add Text:="Realizado", Width:=20
    .ColumnHeaders.Add Text:="% Meta", Width:=15
    .ColumnHeaders.Add Text:="Tendência", Width:=20
    .ColumnHeaders.Add Text:="% Tend.", Width:=15
    .ColumnHeaders.Add Text:="Farol", Width:=20
   
   
End With
   
Call Atualizar
   

End Sub

Private Sub Atualizar()
Dim Item As ListItem
Dim LinhaFinal As Integer
Dim i As Integer


ListView1.ListItems.Clear

LinhaFinal = Plan1.Cells(Rows.Count, 1).End(x1Up).Row



For i = 2 To LinhaFinal
    Set Item = ListView1.ListItems.Add(Text:=Plan1.Cells(i, 1))
    Item.SubItems(1) = Plan1.Cells(i, 2)
    Item.SubItems(2) = Plan1.Cells(i, 3)
    Item.SubItems(3) = Plan1.Cells(i, 4)
    Item.SubItems(4) = Plan1.Cells(i, 5)
    Item.SubItems(5) = Plan1.Cells(i, 6)
    Item.SubItems(6) = Plan1.Cells(i, 7)
    Item.SubItems(7) = Plan1.Cells(i, 8)
    Item.SubItems(8) = Plan1.Cells(i, 9)
    Item.SubItems(9) = Plan1.Cells(i, 10)
   
   

Next


End Sub

segue anexo.

Postado : 11/01/2018 2:30 pm

klarc28

(@klarc28)

Posts: 971

Prominent Member

https://www.youtube.com/results?search_query=excel+vba+carregar+listview

Postado : 11/01/2018 2:41 pm

xlarruda

(@xlarruda)

Posts: 732

Honorable Member

repare nessa parte do seu código que:

LinhaFinal = Plan1.Cells(Rows.Count, 1).End(x1Up).Row

ao invés de .End(xlup)

está

.End(x1up)

Ou seja, ao invés de "xl", colocou o número 1 no lugar da letra L

Espero que seja isso...

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

Postado : 11/01/2018 2:44 pm

rarph84

(@rarph84)

Posts: 39

Trusted Member

Topic starter

Ainda não é isso xlarruda... já tentei alterar aqui e nada... outra sugestão?

Continua aparecendo uma log de erro 'O objeto é obrigatório'

Postado : 11/01/2018 3:04 pm

klarc28

(@klarc28)

Posts: 971

Prominent Member

Esse erro é referente a qual linha?

Postado : 11/01/2018 4:33 pm

Basole

(@basole)

Posts: 487

Reputable Member

Fiz uns ajustes na largura das colunas e inserir o codigo para popular o listview.

Formatei as colunas do listview, que contem valores e porcentagem.

Corrigi tambem o problema da LinhaFinal = Plan1.Cells(Rows.Count, 1).End(xlUp).Row detectado pelo colega xlarruda

Coloquei tambem uma condição para colorir e destacando a linha "total".

* Dê retorno por favor *

Segue em anexo:

teste_listview_1.xlsm

Click em se a resposta foi util!

Postado : 11/01/2018 4:39 pm

klarc28

(@klarc28)

Posts: 971

Prominent Member

Dim Item As ListItem
 

Set item = ListView1.ListItems.Add(,,"Item 1")

Set item = ListView1.ListItems.Add(,,"Item 2")

Set item = ListView1.ListItems.Add(,,"Item 3")

Postado : 11/01/2018 4:42 pm