Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Renumerar a ListVie...
 
Notifications
Clear all

Renumerar a ListView

 
2024 - VBA & Macros
Post Recente por Luk 7 anos atrás
6 Posts
2 Usuários
0 Reactions
1,757 Visualizações
RSS
 Luk
(@luk)
Posts: 44
Eminent Member
Topic starter
 

Olá pessal,
se alguém puder me ajudar

estou usando dessa forma para inserir item na listview
Set Item = ListProdutos.ListItems.Add(, , ListProdutos.ListItems.Count + 1)
Item.SubItems(1) = "" & txtCodProduto
Item.SubItems(2) = "" & txtDescricao
Item.SubItems(3) = "" & txtPrecoUnit
assim ele vai se auto numerando, exemplo
item | descrição ...
1
2
3
4

Só que quando quero excluir um dos itens precisaria que ele auto-se renumerasse ao excluir um item

Esta linha de codigo que uso para excluir
ListProdutos.ListItems.Remove (ListProdutos.SelectedItem.Index)

Alguém poderia me ajudar, por gentileza!

Atenciosamente

Isabella.

 
Postado : 14/05/2018 3:04 pm
 srobles
(@srobles)
Posts: 231
Estimable Member
 

Luk,

Após remover o item selecionado, use um laço FOR => NEXT para reindexar o ListView, ex :

For vItem = 0 To ListView1.ListItems.Count -1
   ListView1.ListItems(vItem) = vItem + 1
Next

Espero ter ajudado.

Abs

Espero ter ajudado.

Abs.

Saulo Robles

 
Postado : 14/05/2018 3:13 pm
 Luk
(@luk)
Posts: 44
Eminent Member
Topic starter
 

srobles,
obrigada, por me responder!

porém está dando um erro 

For vItem = 0 To ListProdutos.ListItems.Count - 1
   ListProdutos.ListItems(vItem) = vItem + 1
Next

esta dando erro nesta linha >>>> .ListItems(vItem) =

 
Postado : 14/05/2018 3:50 pm
 Luk
(@luk)
Posts: 44
Eminent Member
Topic starter
 

.ListItems(vItem) =

 
Postado : 14/05/2018 3:51 pm
 srobles
(@srobles)
Posts: 231
Estimable Member
 

Luk,

Desculpe a confusão!

Faça como segue abaixo :

For vItem = 1 To ListProdutos.ListItems.Count
   ListProdutos.ListItems(vItem).Text = vItem
Next

Espero ter ajudado e que tenha chegado ao resultado desejado.

Abs

Espero ter ajudado.

Abs.

Saulo Robles

 
Postado : 14/05/2018 5:44 pm
 Luk
(@luk)
Posts: 44
Eminent Member
Topic starter
 

Muito obrigada!
Muito bom, muito obrigada!

 
Postado : 15/05/2018 5:50 am
Forum Jump:
  Tópico Anterior
Próximo Tópico