Página 1 de 1
Controle de Vendas Detalhadas [Resolvido]
Enviado: Dom Set 29, 2019 9:48 pm
por avgsantos
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
Re: Controle de Vendas Detalhadas
Enviado: Seg Set 30, 2019 6:14 am
por Reinaldo
Uma possibilidade?
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
Obs.: a largura das colunas na listbox2 devem ser ajustadas
Re: Controle de Vendas Detalhadas
Enviado: Seg Set 30, 2019 8:07 pm
por avgsantos
Boa noite, Reinaldo
Perfeito, muito obrigado pela ajuda
Vlw irmão!!!
Avgsantos
Re: Controle de Vendas Detalhadas [Resolvido]
Enviado: Sex Mai 22, 2020 1:00 pm
por nhyky12@gmail.com
Legal, mando o resto deste trabalho para nos, gostei bastante