De uma listbox para outra listbox e imprimir...

[André LUCAS]

Bom dia pessoal estou precisando muito da ajuda de vocês!!

Sou novo no VBA na verdade ainda não sei quase nada!!

Tenho um UserForm de Pesquisa nele eu realizo as pesquisas tudo certinho...

Neste UserForm tem uma Listbox aonde aparecem todos os itens encontrados, agora o q eu quero é o seguinte.

Quero uma opção para ir selecionando múltiplas linhas dentro de uma listbox e depois de selecionadas quero clicar em um botão e todas as colunas dessas linhas selecionadas na Listbox1 sejam copiadas e coladas na Listbox2 e se eu clicar em outra linha essa linha também possa ser enviada ao clicar o botão. Mas as linhas que eu já mandei sejam bloqueadas de alguma forma para não mandar duas vezes a mesma linha...

E também uma opção para mandar todos os registros ao mesmo tempo se for preciso, pensei em uma CheckBox igual em uma caixa de e-mail...

E só para terminar pessoal queria também uma opção para imprimir a listbox2, mas isso seria separado em outro botão, com opção para configurar a impressão!

Pessoal por favo me ajudem preciso muito disso, preciso muito da ajuda de vocês!!

Abraços e obrigado desde já!!

[João.Neto]

Segue o código para o botão que adicionará os itens em outro ListBox

Private Sub btnAdicionar_Click()
    
    Dim j As Integer
    For j = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(j) Then
            If Not temItem(ListBox1.list(j), Me.ListBox2) Then
                adicionaItem ListBox1.list(j), Me.ListBox2
            End If
        End If
    Next j
    
End Sub

Private Function temItem(ByVal textoItem As String, ByRef listControl As Object) As Boolean

    If Not TypeName(listControl) = "ListBox" Then Exit Function
    
    Dim intContador As Integer
        
    For intContador = 0 To listControl.ListCount - 1
        If listControl.list(intContador) = textoItem Then
            temItem = True
            Exit Function
        End If
    Next intContador
    
    temItem = False
    
End Function

Private Sub adicionaItem(ByVal textoItem As String, ByRef listControl As Object)

    If Not TypeName(listControl) = "ListBox" Then Exit Sub
    listControl.AddItem textoItem

End Sub

Editado Junho 6, 2010 por João.Neto

[André LUCAS]

João Neto muito obrigado pela ajuda!!

Você pode me ajudar em mais uma coisa...

Utilizando o seu código eu consegui mandar da listbox1 para a listbox2 o unico problema é que só está indo o item da primeira coluna.

E a minha listbox1 tem 8 colunas como eu faço para mandar as oito colunas para a listbox2 ??

Abraços João Neto e mais uma vez muito obrigado!!

Deus te abençoe!!

[André LUCAS]

João o código que você me mandou faz quase tudo q eu preciso!!

Ele está levando apenas a primeira coluca para a listbox2 sendo que na minha listbox1 tem 8 colunas!!

O que tenho que fazer para que ele leve as oito colunas para a listbox2??

Se alguém puder me ajudar esse código ele pega da listbox1 e leva p/ a listbox2 e se alguma linha já estiver na listbox2 ele impede q essa seja levada novamente!!

Isso é exatamente o que eu qro a unica coisa é fazer ele levar a linha inteira!!

Obrigado!!

Private Sub CommandButton4_Click()

Dim j As Integer
For j = 0 To lstLista.ListCount - 1
If lstLista.Selected(j) Then
If Not temItem(lstLista.List(j), Me.ListBox1) Then
adicionaItem lstLista.List(j), Me.ListBox1
End If
End If
Next j

End Sub

Private Function temItem(ByVal textoItem As String, ByRef listControl As Object) As Boolean

If Not TypeName(listControl) = "ListBox" Then Exit Function

Dim intContador As Integer

For intContador = 0 To listControl.ListCount - 1
If listControl.List(intContador) = textoItem Then
temItem = True
Exit Function
End If
Next intContador

temItem = False

End Function

Private Sub adicionaItem(ByVal textoItem As String, ByRef listControl As Object)

If Not TypeName(listControl) = "ListBox" Then Exit Sub
listControl.AddItem textoItem

End Sub

Deus o abençoe!!

[Jonathan Queiroz]

Mesclei os seus dois tópicos por se tratar do mesmo assunto.

[André LUCAS]

Alguém pode me ajuda nessa ai...

Como faço para conseguir enviar a linha inteira com todas as colunas ao invez de mandar só a primeira coluna...

Editado Junho 7, 2010 por André LUCAS

[André LUCAS]

Kuroi me desculpa ai por ter postado duas vezes...

você não sabe não como fazer para levar a linha inteira de uma listbox para outra listbox??

Ou isso não é possivel??

Abraços e mais uma vez me desculpa!!

[João.Neto]

Cara, uma sugestão e será beeeem trabalhoso:

Ao clicar em Adicionar, armazene todos os valores já existentes no ListBox2 em uma matriz com 8 colunas e adicione o novo item do Listbox1 à esta matriz também. Depois carregue novamente o ListBox2 através da propriedade List.

Dim res(0,7) 
'0 linhas e 8 colunas, depois você cria uma rotina para ele ficar redimensionando as linhas desta matriz
'Para isso será usado o Redim Preserve res(nova_quantidade_de_linhas, nova_quantidade_de_colunas)
'No caso as colunas serão sempre 7, que equivalem a 8 colunas.

Depois preenche os dados da matriz com os valores que estão no Listbox2. Ai você usa uma estrutura de repetição. Adiciona o novo item do ListBox1 nesta matriz e preenche o ListBox2 novamente.

ListBox2.List = res

[André LUCAS]

João Neto, essa matriz que você fala seria uma nova planilha certo??

E depois de mandar os itens da listbox1 p/ essa matriz e automaticamente atualizar a listbox2 os itens da matriz seriam apagados??

Como fazer isso, como mandar os itens da listbox1 p/ a matriz e fazer ela atualizar a listbox2??

E você sabe se tem como imprimir a listbox2 depois??

Tem outra opção ao invez de usar listbox...

Lembrando que eu estou usando a listbox1 para obter resultados de uma pesquisa...

Abraços João Neto e mais uma vez obrigado pela atenção!!

[João.Neto]

Matriz que eu falo é de uma variável, um array. Algo que é carregado na memória e não físico como uma planilha mesmo.

[André LUCAS]

João Neto me ajuda nessa ai por favor...

Como fazer isso??

Ou aonde eu posso achar um material sobre isso??

Como eu já disse antes e você já deve ter percebido estou começando agora e estou muito fraco ainda!!

Abraços!!

Editado Junho 8, 2010 por André LUCAS

[João.Neto]

http://www.macoratti.net/vb_arrtb.htm

http://www.macoratti.net/vb_matrz.htm