[RESOLVIDO]Transferir dados de um ListView para outro

[Tnunes]

Boa Tarde,
Estou montando uma estrutura com dois ListView
Eu queria que ao eu dar o doubleclick no listview1, o item selecionado seja lançado para o listview2.
Eu tentei alguns comandos derivados que encontrei na internet, mas não consegui resolver...

Código: Selecionar todos

Private Sub ListView1_DblClick()


For y = 1 To Me.ListView1.ListItems.Count
Set lista = ListView2.ListItems.Add(Text:=ListView2.ListItems.Count + 1)
lista.ListSubItems.Add Text:=Me.ListView1.SelectedItem


Next y

Segue planilha abaixo:
https://www.sendspace.com/file/nliv0o



Anteriormente eu fazia ele jogar os dados para um textbox, só que com o textbox eu tenho um numero limitado de items para jogar, por isso resolvi fazer através do listview.
Se alguém puder me ajudar, agradeço

[srobles]

Tnunes, boa noite!

Para sua dúvida, veja se o modelo anexo te atende. Caso contrário, veja o modelo deste tópico : viewtopic.php?f=5&t=4298

Favor, evite utilizar links externos ao postar arquivos aqui no fórum. Utilize o mecanismo que o próprio fórum disponibiliza.

Como postar arquivos : viewtopic.php?f=4&t=2595

Quaisquer dúvidas, estamos á disposição.

Abs

[Tnunes]

Tnunes, boa noite!

Para sua dúvida, veja se o modelo anexo te atende. Caso contrário, veja o modelo deste tópico : viewtopic.php?f=5&t=4298

Favor, evite utilizar links externos ao postar arquivos aqui no fórum. Utilize o mecanismo que o próprio fórum disponibiliza.

Como postar arquivos : viewtopic.php?f=4&t=2595

Quaisquer dúvidas, estamos á disposição.

Abs

Perdão, passei despercebido desta informação de postagem.

Então, baixei o arquivo, só que ao entrar no modo desenvolvedor, aparece uma mensagem dizendo: "Não foi possível ler alguns objetos pois eles não estão ativos em sua máquina."
Tem ideia do que isso possa ser?


Correção:

Estava faltando inserir os dois listview no form dele.
É exatamente isso que eu estava procurando.
Muitissimo obrigado srobles!

[srobles]

Tnunes, boa noite!

Opa meu amigo, que bom que atendeu suas necessidades.

Quaisquer dúvidas, pode contar conosco.

Caso sua dúvida tenha sido sanada, favor edite o título de seu tópico com o texto [RESOLVIDO] ok?

Abs