Notifications
Clear all

ListBox com filtros

8 Posts
2 Usuários
0 Reactions
1,425 Visualizações
(@laeoli)
Posts: 85
Estimable Member
Topic starter
 

Boa Tarde!

Caros Expert's, preciso de vossa ajuda, pois, tenho uma listBox que carrega dados conforme a seleção do nome da planilha. Esta ação até que consegui fazer, porém necessito aplicar um filtro conforme a coluna 3 e também, ao clicar no item da lista seja carregado um useform com os dados daquela linha. Minha maior dificuldade é que o codigo tem que atender a seleção das planilhas conforme o nome escolhido.

Deixo em anexo a planilha.

grato!

Compactei teu arquivo.
Leia as regras do fórum - Patropi/Moderador

 
Postado : 21/12/2013 12:05 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Que tal ver?
http://www.youtube.com/watch?v=HA_Y7jOHXjI

Att

 
Postado : 21/12/2013 12:11 pm
(@laeoli)
Posts: 85
Estimable Member
Topic starter
 

Boa Tarde!

Obrigado Ale!

Já consegui capturar os dados ao clicar na linha da ListBox e transfere para TextBox's numa Multipage.

Agora estou na luta criar o filtro e a transferencia para outra ListBox.

valew!

 
Postado : 21/12/2013 2:27 pm
(@laeoli)
Posts: 85
Estimable Member
Topic starter
 

Boa tarde!

Pessoal to penando e depois de muito quebrar a cabeça busco vossa ajuda. Criei um botão para transferir dados da listBox1 para a ListBox2, mas esta dando erro. Solicito pelo menos uma dica para sair desse atolero que me meti. Desde já agradeço.

Private Sub CommandButton3_Click()
    Dim i As Double
    Dim Item As Long
    Dim posicao As Long
    Dim lItem As Double
    
Item = ListLocal1.ListIndex 'captura a posição da linha selecionada para copiar os dados a serem transferidos
posicao = ListLocal2.ListCount 'conta quantos dados tem na listbox2 para inserir os dados na posição correta

'MsgBox Item & " e " & posicao
 Me.ListLocal2.Clear
    Me.ListLocal2.ColumnCount = 3
       
With ListLocal2
    .AddItem
    .List(posicao, 1) = (Me.ListLocal1.List(Item, 1))
    .List(posicao, 2) = (Me.ListLocal1.List(Item, 2))
    .List(posicao, 3) = (Me.ListLocal1.List(Item, 3))
    
End With
 
    
Me.ListLocal1.RemoveItem (Me.ListLocal1.ListIndex) * "esta dando erro nesta linha" *  :?:  

Dim soma As Double

For i = 0 To ListLocal2.ListCount - 1
soma = soma + ListLocal2.List(i, 9)
Next i

txtTotal = FormatNumber(soma, 9)

End Sub
 
Postado : 22/12/2013 10:47 am
(@laeoli)
Posts: 85
Estimable Member
Topic starter
 

Pessoal, Boa tarde!

Estou adaptando uma alternativa depois de ver o tópico do Mauro Coutinho de 26 Mar 2010.

vejam!!!

Se precisar espero contar com vossa ajuda.

Obrigado!

Compactei teu arquivo.
Siga as regras do fórum - Patropi/Moderador

 
Postado : 22/12/2013 12:10 pm
(@laeoli)
Posts: 85
Estimable Member
Topic starter
 

Boa Noite!

Prezados especialistas,

No arquivo acima (em anexo) necessito que ao clicar (duploclik) em cada linha, alguns dados contidos naquela linha provindos da coluna I,M,N,O referentes a peso, carga minima, tempo, e total de cargas fossem exibidos cada qual em uma textBox correspondente. Se não possível alguém teria uma dica por onde devo começar?

Grato!!!

 
Postado : 23/12/2013 3:58 pm
(@laeoli)
Posts: 85
Estimable Member
Topic starter
 

Boa Tarde!

Consegui, encontrei a resposta aqui no Forum, no post:

Re: Somar coluna listbox

Mensagempor Reinaldo » 16 Abr 2012, 18:50

Fico grato por isso: OBRIGADO A TODOS!!!

 
Postado : 24/12/2013 4:04 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.

 
Postado : 24/12/2013 4:56 pm