Notifications
Clear all

ListBox com filtros

8 Posts
2 Usuários
0 Reactions
1,431 Visualizações
(@laeoli)
Posts: 85
Trusted 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
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

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

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/12/2013 12:11 pm
(@laeoli)
Posts: 85
Trusted 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
Trusted 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
Trusted 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
Trusted 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
Trusted 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
Fernando Fernandes
(@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.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 24/12/2013 4:56 pm