André LUCAS

Boa noite amigos... Este é meu terceiro tópico e como sempre com perguntas dificeis!! Em minhas pesquisas na net encontrei o seguinte código, e adicionei a ele umas CheckBox. A intenção das CheckBox é determinar quais as colunas podem ou não aparecer na pesquisa... Eu mesmo fiz umas adaptações nele tentando determinar quais os campos que podem ser exibidos... O problema é que só funciona se eu marca todas as checkbox quando eu marco uma checkbox sim outra não e outra sim ele simplismente só mostra as duas primeiras colunas... O que eu tenho que fazer para que ele mostre todas as que eu marcar?? E o que eu tenho que fazer para que ele mostre na ordem sem deixar colunas em branco no meio das colunas que serão exibidas?? Private Sub TextBox5_Change() Dim strObjetoBuscar As String Dim lngResultado As Long Dim lngColumna As Long, lngFila As Long Dim x As Integer, n As Integer ListView1.ListItems.Clear strObjetoBuscar = TextBox5.Value If strObjetoBuscar = "" Then GoTo 99 strObjetoBuscar = LCase(strObjetoBuscar) For a = 2 To 2010 lngResultado = InStr(1, Folha1.Cells(a, 2), strObjetoBuscar, vbTextCompare) If lngResultado > 0 Then ListView1.ListItems.Add 1, , Format(Folha1.Range("B" & a).Value, "000") If lngResultado > 0 Then If CheckBox1 = True Then ListView1.ListItems(1).ListSubItems.Add 1, , Folha1.Range("C" & a).Value If lngResultado > 0 Then If CheckBox2 = True Then ListView1.ListItems(1).ListSubItems.Add 2, , Folha1.Range("D" & a).Value If lngResultado > 0 Then If CheckBox3 = True Then ListView1.ListItems(1).ListSubItems.Add 3, , Format(Folha1.Range("E" & a).Value, "#,##0.00") If lngResultado > 0 Then If CheckBox4 = True Then ListView1.ListItems(1).ListSubItems.Add 4, , Folha1.Range("F" & a).Value End If End If End If End If End If End If End If End If End If Next a 99: End Sub Private Sub UserForm_Initialize() With ListView1 .FullRowSelect = True .View = lvwReport .Gridlines = True End With End Sub A paz esteja com vocês!!

Boa tarde pessoal, estou com um pequeno probleminha aqui... Estou criando um form que utilizarei para fazer consulta em dados na planilha do excel, e eu tinha pensado em utilizar uma caixa de listagem para primeiro listar os nomes dos produtos, e depois eu clicaria em uma das opções na caixa de listagem, e quando eu clicasse em um dos produtos listados, esse mesmo exibiria os dados em outra listbox ao lado. Eu até consegui levar de uma listbox para outra o problema é que só estou conseguindo levar a primeira coluna!! O que eu tenho que fazer para levar todas as colunas?? Para levar a coluna CODIGO, NOME, CPF e por ela na mesma ordem?? Ex: Codigo..... Nome...............CPF ...01.......André Lucas....66656565656 O codigo que estou usando é esse: With lstLista For f = 0 To .ListCount - 1 If .Selected(f) = True Then lstLista2.AddItem .List(f) End If Next f End With O que eu tenho que fazer para ele levar todas as colunas da linha selecionada?? E como fazer para que ele não leve itens repetidos por exemplo se eu já tiver levado a o item 1 ele não leve novamente... Jesus te ama!!

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!!

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!!

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!!

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...

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!!

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!!

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á!!