Controle de Estoque - Excel

brunofeliped disse:

As informações lançadas nas abas (ENTRADA / SAÍDA) estão sendo lançadas nas planilhas correspondentes, preciso que além desses dados seja adicionado automaticamente a data da operação (pensei em textbox, mas gostaria de evitar a necessidade do parceiro digitar a data).

Na planilha "Estoque" tenho os produtos e minha atual situação do estoque.
Gostaria que no Controle de Entrada/Saída, ao selecionar a categoria, me fosse apresentado os produtos correspondentes. (Invertendo o modo que está hoje).

Precisaria também pensar em alguma forma de consolidar a validade do estoque, confrontando o que entrou contra o que saiu.

brunofeliped disse:

Referente a consolidação do estoque o que eu preciso:
Preciso deixar de modo que a qualquer entrada/saída seja consultado somente os produtos existentes na planilha "Estoque", caso não tenha o mesmo precisará ser cadastrado (farei depois os botões).

Os ComboBox do arquivo hoje estão consultando as linhas existentes na planilha "Estoque".

---

Preciso que nessa planilha "Estoque" seja apresentado a quantidade real do estoque, (exemplificando o ítem "CANETA BIC AZUL" tive 2 entradas uma de 50 e 150 unidades = 200 unidades / e 2 saídas - 25 e 5 = 30 unidades / Tenho efetivamente no ESTOQUE 170 unidades).

Abraços e mais uma vez valeu pelo apoio.

brunofeliped disse:

Saudações parceiros.

Estou a pedido de um amigo bolando algo para ele de forma a fazer um simples controle de estoque, encontrei algumas soluções pela internet porém não que atenda a necessidade do mesmo.

O importante que ele precisa é referente a um histórico de entrada / saída (isso eu fiz parcialmente, limitado ao que conheço de VBA no excel.)

Estou anexando o arquivo parcialmente feito (e será incrementado mais algumas coisas), para ficar mais fácil o entendimento.

As informações lançadas nas abas (ENTRADA / SAÍDA) estão sendo lançadas nas planilhas correspondentes, preciso que além desses dados seja adicionado automaticamente a data da operação (pensei em textbox, mas gostaria de evitar a necessidade do parceiro digitar a data).

Na planilha "Estoque" tenho os produtos e minha atual situação do estoque.
Gostaria que no Controle de Entrada/Saída, ao selecionar a categoria, me fosse apresentado os produtos correspondentes. (Invertendo o modo que está hoje).

Precisaria também pensar em alguma forma de consolidar a validade do estoque, confrontando o que entrou contra o que saiu.

Fico no aguardo.

Abraços

brunofeliped disse:

Jones_RB baixei o seu controle, porém ao iniciar o mesmo fala que não está autorizado a usar o sistema.

Depoisteconto Achei bacana o esquema das labels, porém a mesma não apresenta um número real de estoque. A mesma apresenta somente uma soma das linhas iguais da planilha "ENTRADA".

Não há algum modo que eu totalize na planilha "ESTOQUE" a quantidade total de "Entradas" e "Saídas" ?

Dessa forma consigo referenciar a label a esse total efetivo do estoque.

Abraços

Private Sub ComboBox1_Change()

Dim Entrada, Saida As Worksheet

Set Entrada = Sheets("ENTRADA&quot

Set Saida = Sheets("SAÍDA&quot

cont = Entrada.Cells(Rows.Count, "B&quot.End(xlUp).Row

conts = Saida.Cells(Rows.Count, "B&quot.End(xlUp).Row

SaldoE = 0

SaldoS = 0

For x = 3 To cont

If Entrada.Cells(x, "B&quot = Me.ComboBox1.Text Then

SaldoE = SaldoE + Entrada.Cells(x, "D&quot

End If

Next

For y = 3 To conts

If Saida.Cells(y, "B&quot = Me.ComboBox1.Text Then

SaldoS = SaldoS + Saida.Cells(y, "D&quot

End If

Next

Me.Label12 = SaldoE - SaldoS

End Sub

brunofeliped disse:

Jones_RB baixei o seu controle, porém ao iniciar o mesmo fala que não está autorizado a usar o sistema.

brunofeliped disse:

Vamos lá Depoisteconto fiz algumas alterações e estamos chegando na parada kkk Valeu pelo apoio hein, depois te pago uma cerveja kkk

Apliquei o código nos labels de entrada e saída e ficou ótimo, pois possibilita uma rápida visualização da quantidade antes de dar a baixa ou entrada.

Preciso agora de 2 necessidades acho que para finalizar:
1 - Hoje quando seleciono um ítem no "ComboBox" existe a possibilidade de eu digitar, tem alguma forma que me permita "bloquear" essa digitação?

MsgBox "Ops...apenas selecione", vbCritical, "Atenção!"

Me.ComboBox1.Text = Empty

2 - Na planilha "Estoque" criei uma coluna "Total Entrada" e "Total Saída", na qual devo totalizar a quantidade efetiva de entradas e saídas, tendo assim um número simples para análise e relatórios.

Private Sub ComboBox1_Change()

Dim Entrada, Saida, Estoque As Worksheet

Set Entrada = Sheets("ENTRADA&quot

Set Saida = Sheets("SAÍDA&quot

Set Estoque = Sheets("ESTOQUE&quot

cont = Entrada.Cells(Rows.Count, "B&quot.End(xlUp).Row

conts = Saida.Cells(Rows.Count, "B&quot.End(xlUp).Row

contss = Estoque.Cells(Rows.Count, "A&quot.End(xlUp).Row

SaldoE = 0

SaldoS = 0

For x = 3 To cont

If Entrada.Cells(x, "B&quot = Me.ComboBox1.Text Then

SaldoE = SaldoE + Entrada.Cells(x, "D&quot

End If

Next

For y = 3 To conts

If Saida.Cells(y, "B&quot = Me.ComboBox1.Text Then

SaldoS = SaldoS + Saida.Cells(y, "D&quot

End If

Next

Me.Label12 = SaldoE - SaldoS

For w = 3 To contss

If Estoque.Cells(w, "A&quot = Me.ComboBox1.Text Then

Estoque.Cells(w, "C&quot = SaldoE

Estoque.Cells(w, "D&quot = SaldoS

End If

Next

End Sub