Boa noite, Equipe do Fórum
Meu formulário de controle de vendas detalhadas possui dois listbox, primeira listbox retornada dados da vendas detalhadas, ao selecionar o item seria possível retornar todos os dados do código da vendas da planilha "Saida" para listbox2 de acordo com o código da vendas selecionado?
Obrigado pela ajuda
Avgsantos
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Controle de Vendas Detalhadas [Resolvido]
Controle de Vendas Detalhadas [Resolvido]
- Anexos
-
- Controle Gestão Vendas1.rar
- (249.69 KiB) Baixado 328 vezes
Editado pela última vez por avgsantos em Seg Set 30, 2019 8:07 pm, em um total de 1 vez.
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: Controle de Vendas Detalhadas
Uma possibilidade?
Obs.: a largura das colunas na listbox2 devem ser ajustadas
Código: Selecionar todos
Private Sub Lst_Vendas_Click()
Dim y As Integer, x As Integer
Dim lItem As Double
Me.Lst_Detalhes.Clear
y = 0: x = 9
For lItem = 0 To Lst_Vendas.ListCount - 1
If Lst_Vendas.Selected(lItem) = True Then
cod_venda.Text = Lst_Vendas.List(lItem, 0)
txt_cliente.Text = Lst_Vendas.List(lItem, 1)
T_Total.Text = Lst_Vendas.List(lItem, 5)
T_Desconto.Text = Lst_Vendas.List(lItem, 6)
T_Subtotal.Text = Lst_Vendas.List(lItem, 7)
With Sheets("SAIDA")
Do Until .Cells(x, 1) = ""
If .Cells(x, "A").Value = cod_venda.Text Then
Me.Lst_Detalhes.AddItem
'Me.Lst_Detalhes.List(y, 0) = .Cells(x, 2) 'Descrição
Me.Lst_Detalhes.List(y, 0) = .Cells(x, 3) 'Produto
Me.Lst_Detalhes.List(y, 1) = .Cells(x, 8).Text 'Valor Unitário
Me.Lst_Detalhes.List(y, 2) = .Cells(x, 7).Text 'Qtde
Me.Lst_Detalhes.List(y, 3) = .Cells(x, 9).Text 'Total
y = y + 1
End If
x = x + 1
Loop
End With
End If
Next
End Sub
Re: Controle de Vendas Detalhadas
Boa noite, Reinaldo
Perfeito, muito obrigado pela ajuda
Vlw irmão!!!
Avgsantos
Perfeito, muito obrigado pela ajuda
Vlw irmão!!!
Avgsantos
-
- Colaborador
- Mensagens: 25
- Registrado em: Dom Set 25, 2016 3:26 am
Re: Controle de Vendas Detalhadas [Resolvido]
Legal, mando o resto deste trabalho para nos, gostei bastante