Rotina para tornar item exportado de listview para outro Listiview invisível

[Castilhos]

Ola Pessoal,

Tenho 2 listiview (ListDisponivel ListCautelar).
Eu seleciono o checkbox dentro do ListDisponivel e clicando em um botão item marcado é exportado ao ListCautelar, e após confirmação(usando outro botão) esse item tem uma coluna alterada dentro da Planilha(de Disponível para o Nome de quem cautelou o equipmanto), mas enquanto esse botão não é executado essa célula não é alterada(e essa Célula que possui o critério da busca).

Usei a rotina de excluir a linha ao exportar, e funciona mas ao realizar a busca de novo o item volta ao listDisponivel.

O que preciso então seria de uma rotina que pesquisasse os IDs já inseridos no listCautelar e após realizasse uma pesquisa desses ID's no ListDisponivel e não tornasse visível esse item.

Empaquei nessa parte e não consigo sair disso, me falta conhecimento para resolver isso.

 

Agradeço desde já quem puder me dar uma forma

Private Sub btnTransCautelar_Click()
'Exporta linhas do ListDisponivel para listCautelar e exclui Linhha do ListDisponivel

Dim x, y As Integer
Dim Li As Object
Dim sItem As Long
''Exporta Linhas
For y = 1 To listDisponivel.ListItems.Count
If listDisponivel.ListItems.Item(y).Checked Then
Set Li = listCautelar.ListItems.Add(Text:=listDisponivel.ListItems.Item(y))

Li.ListSubItems.Add Text:=listDisponivel.ListItems.Item(y).SubItems(1)
Li.ListSubItems.Add Text:=listDisponivel.ListItems.Item(y).SubItems(2)
Li.ListSubItems.Add Text:=listDisponivel.ListItems.Item(y).SubItems(3)
Li.ListSubItems.Add Text:=listDisponivel.ListItems.Item(y).SubItems(4)
Li.ListSubItems.Add Text:=listDisponivel.ListItems.Item(y).SubItems(5)
Li.ListSubItems.Add Text:=listDisponivel.ListItems.Item(y).SubItems(6)


End If
Next y

lblTotalDisponivel.Caption = listDisponivel.ListItems.Count
End Sub

http://get2.imglarger.com:8889/results/oD86RzXy_2x.jpg

http://get2.imglarger.com:8889/results/j7f3025G_2x.jpg

Link da Planilha

https://drive.google.com/file/d/1AwBE6-htyCu1Ja842s4oUMJWjRlqwQsf/view?usp=share_link

Edited April 17, 2023 at 02:17 PM by Castilhos
Correção do texto