Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Controle de Vendas Detalhadas [Resolvido]

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
avgsantos
Colaborador
Colaborador
Mensagens: 93
Registrado em: Ter Fev 02, 2016 6:39 pm

Controle de Vendas Detalhadas [Resolvido]

Mensagem 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
Anexos
Controle Gestão Vendas1.rar
(249.69 KiB) Baixado 319 vezes
Editado pela última vez por avgsantos em Seg Set 30, 2019 8:07 pm, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Controle de Vendas Detalhadas

Mensagem 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


avgsantos
Colaborador
Colaborador
Mensagens: 93
Registrado em: Ter Fev 02, 2016 6:39 pm

Re: Controle de Vendas Detalhadas

Mensagem por avgsantos »

Boa noite, Reinaldo

Perfeito, muito obrigado pela ajuda

Vlw irmão!!!

Avgsantos


nhyky12@gmail.com
Colaborador
Colaborador
Mensagens: 25
Registrado em: Dom Set 25, 2016 3:26 am

Re: Controle de Vendas Detalhadas [Resolvido]

Mensagem por nhyky12@gmail.com »

Legal, mando o resto deste trabalho para nos, gostei bastante


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder