Olá pessoal

Esse é o codigo que uso para exportar item de um listview para outro.

O que preciso é que os itens exportados não apareçam mais no listview1.

Usei  uma função de excluir a linha exportada, mas ao executar uma pesquisa esses item aparecem de novo, pois essa manipulação é somente no listview, somente depois eu altero tbm na planilha

Lembrando eu só quero manipular no listiview, não vou fazer alteração na planilha nesse passo.

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
''Exclui linhas /// Vi que excluir não resolve pois ao pesquisar os itens retornam ao listiviw
With listDisponivel

sItem = .SelectedItem.Index
.ListItems.Remove (sItem)

End With
lblTotalDisponivel.Caption = listDisponivel.ListItems.Count
End Sub