Notifications
Clear all

Alimentando ListBox a partir de outro ListBox

8 Posts
3 Usuários
0 Reactions
1,633 Visualizações
leandroxtr
(@leandroxtr)
Posts: 447
Reputable Member
Topic starter
 

Boa tarde!

Gostaria de saber como faço para alimentar o ListBox2(lb_Lista_Temporaria) a partir do dado escolhido no ListBox1 (lb_Plano_Contas) e também a partir das textoBox (Data, Descrição e Valor) preenchidos, conforme organização da ListBox2(lb_Lista_Temporaria).

Obrigado!

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

 
Postado : 24/01/2017 1:11 pm
(@adgere)
Posts: 76
Trusted Member
 

Segue o modelo para o botão cbt_Transf
É so complementar...

Dim L3 As Integer
Dim i  As Integer

i = uf_lancamentos.lb_Plano_Contas.ListIndex

If Planilha3.Cells(3, 1).Value = "" Then
   L3 = 3
Else
   L3 = Planilha3.Cells(2, 1).End(xlDown).Row + 1
End If

Planilha3.Cells(L3, 1).Value = uf_lancamentos.lb_Plano_Contas.List(i, 0)
Planilha3.Cells(L3, 2).Value = Trim(uf_lancamentos.lb_Plano_Contas.List(i, 2))
Planilha3.Cells(L3, 3).Value = txt_Data.Value

uf_lancamentos.lb_Lista_Temporária.RowSource = "List_Box_2!A3:E" & Trim(Str(L3))
 
Postado : 24/01/2017 7:44 pm
leandroxtr
(@leandroxtr)
Posts: 447
Reputable Member
Topic starter
 

Muito bom cara!
Obrigado pela força!!

Para habilitar o botão "X" para excluir lançamentos é o mesmo raciocínio?

Como ficaria para que, ao pressionar o botão "X", excluir o dado selecionado na ListBox2 e ao mesmo tempo o preenchimento deste lançamento na planilha 3?

mais uma vez, obrigado!

Segue a planilha adaptada!

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

 
Postado : 25/01/2017 5:42 am
(@gusson)
Posts: 2
New Member
 

Ola amigos, tudo bom?
Será que posso usar esse mesmo topico para fazer uma pergunta que acho que é parecida com este problema?
Sou usuario bem basico do excel mas preciso fazer um calculo e não sei se tem como, se puderem me ajudar a planilha esta em anexo.
Na celula "cel 01" eu queria fazer uma lista suspensa referente a coluna de tamanhos, isso eu sei fazer sem problemas, o que não sei
seria na "cel 02" gostaria que viesse o resultado de acordo com o item que selecionar da lista, o valor da multiplicação da coluna easy-sheet correspondente
vezes o numero que coloquei acima que no caso é 20 e somar o numero da coluna Capa correspondente.
Não sei se me fiz explicar direito mas seria tipo Tamanho 30x30 de 1,52x20+15,00

Se puderem me ajudar eu agradeço ou se puderem me indicar o lugar certo de fazer essa pergunta, é que achei o post bem parecido com o que preciso.

Obrigado

 
Postado : 25/01/2017 2:14 pm
(@adgere)
Posts: 76
Trusted Member
 

leandroxtr, segue o codigo:

Dim L3  As Integer
Dim Lu  As Integer
Dim i   As Integer

i = uf_lancamentos.lb_Lista_Temporária.ListIndex

If i = -1 Then Exit Sub

L3 = 2
If Planilha3.Cells(3, 1).Value = "" Then
   Lu = 3
Else
   Lu = Planilha3.Cells(2, 1).End(xlDown).Row - 1
   If Lu < 3 Then Lu = 3
End If


Do
  L3 = L3 + 1
  If Planilha3.Cells(L3, 1).Value = "" Then Exit Do
  
  If Planilha3.Cells(L3, 1).Value = uf_lancamentos.lb_Lista_Temporária.List(i, 0) And _
     Planilha3.Cells(L3, 2).Value = uf_lancamentos.lb_Lista_Temporária.List(i, 1) And _
     Planilha3.Cells(L3, 3).Value = uf_lancamentos.lb_Lista_Temporária.List(i, 2) And _
     Planilha3.Cells(L3, 4).Value = uf_lancamentos.lb_Lista_Temporária.List(i, 3) And _
     Planilha3.Cells(L3, 5).Value = uf_lancamentos.lb_Lista_Temporária.List(i, 4) Then
     
     Planilha3.Rows(L3).Delete Shift:=xlUp
     uf_lancamentos.lb_Lista_Temporária.RowSource = "List_Box_2!A3:E" & Trim(Str(Lu))
     
     Exit Do
  End If
  
Loop
 
Postado : 25/01/2017 5:54 pm
(@adgere)
Posts: 76
Trusted Member
 

Ola amigos, tudo bom?
Será que posso usar esse mesmo topico para fazer uma pergunta que acho que é parecida com este problema?
Sou usuario bem basico do excel mas preciso fazer um calculo e não sei se tem como, se puderem me ajudar a planilha esta em anexo.
Na celula "cel 01" eu queria fazer uma lista suspensa referente a coluna de tamanhos, isso eu sei fazer sem problemas, o que não sei
seria na "cel 02" gostaria que viesse o resultado de acordo com o item que selecionar da lista, o valor da multiplicação da coluna easy-sheet correspondente
vezes o numero que coloquei acima que no caso é 20 e somar o numero da coluna Capa correspondente.
Não sei se me fiz explicar direito mas seria tipo Tamanho 30x30 de 1,52x20+15,00

Se puderem me ajudar eu agradeço ou se puderem me indicar o lugar certo de fazer essa pergunta, é que achei o post bem parecido com o que preciso.

Obrigado

Ve se é isso... utilizei apenas formulas...

 
Postado : 25/01/2017 6:01 pm
(@gusson)
Posts: 2
New Member
 

Puxa, perfeito, muito obrigado mesmo, me ajudou enormemente amigo.

 
Postado : 28/01/2017 4:35 pm
leandroxtr
(@leandroxtr)
Posts: 447
Reputable Member
Topic starter
 

Consegui resolver, obrigado a todos!

Resolução anexo para quem precisar

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

 
Postado : 30/01/2017 6:13 am