Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

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: 88
Registrado em: Ter Fev 02, 2016 6:39 pm

Controle de Vendas Detalhadas [Resolvido]

Mensagem por avgsantos » Dom Set 29, 2019 9:48 pm

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 11 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: 1226
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Controle de Vendas Detalhadas

Mensagem por Reinaldo » Seg Set 30, 2019 6:14 am

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


Reinaldo
Gostou da resposta?:?: :oops: :D :mrgreen:

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

Re: Controle de Vendas Detalhadas

Mensagem por avgsantos » Seg Set 30, 2019 8:07 pm

Boa noite, Reinaldo

Perfeito, muito obrigado pela ajuda

Vlw irmão!!!

Avgsantos



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