Jump to content
vbalexandre

Rotina VBA Verifica se tem Saldo para Saída ou Entrada

Recommended Posts

vbalexandre

Bom dia!!

Estou precisando da ajuda vocês para terminar um formulario em Excel 2007, (é de insumos, caixas de papelão, gelo etc..).

Acontece que será dado entrada e saída nos insumos.

Mas como posso dar saída em algo que não entrou ? tem um código capaz de verificar isso antes do botão salvar concluir o comando?...gostaria que olhasse minha planilha...

http://www.4shared.com/document/LyIBTaQb/CONTROLE_DE_INSUMOS_2011.html

Alguém poderia me ajudar?

Obrigado!!!

Att..

Share this post


Link to post
Share on other sites
HIT_Braga

Boas.

Ainda não percebi muito bem a tua dúvida, para te poder tentar ajudar.

A folha pareçe uma "gestão de stocks" ou coisa do género.

Qual é a dúvida propriamente dita?

Sds,

HIT


" Elogios não me elevam, ofensas não me rebaixam, sou o que sou e não o que acham! "

Share this post


Link to post
Share on other sites
vbalexandre

Boa noite!!

Exemplo no caso de dar baixa em meu estoque.....devo tirar do material que entrou ....Ex:.vou dar baixa neste item... Material:178 Caixa de Papelão G 5 unidades.

Mas se na minha planilha não tenho entrada desse item, da maneira que coloquei no botão salvar, o mesmo vai jogar para a planilha algo que  eu não tenho saldo.

E é justamente isso que não quero que aconteça.

Att..

Share this post


Link to post
Share on other sites
HIT_Braga

Deves criar uma função para actualizar os saldos de stock.

Sempre que fazes alguma coisa, executas a função para ela retornar os valores de stock.

Assim sabes sempre se tens ou não stock.

Se não queres criar função em VBA, podes sempre colocar uma nova planilha onde tens as somas de entradas e somas de saidas. Assim quando fores dar baixa ou entrada, vais a planilha verificar o stock.

Sds,

HIT


" Elogios não me elevam, ofensas não me rebaixam, sou o que sou e não o que acham! "

Share this post


Link to post
Share on other sites
vbalexandre

Boa noite!!

Pessoal, consegui ajuda de outro colega (Machinne),de outro Forum.

Dim saldo As Double

Dim vsaida As Double

saldo = CalculaSaldo(CInt(Material.Value))

vsaida = IIf(saida.Value <> "", saida.Value, 0)

If vsaida > 0 And saldo < vsaida Then

MsgBox "Saldo insuficiente para o material: " & ListaInsumos.Value & "!" & vbCrLf & "Saldo atual do item: " & saldo

Call Limpar

Call DesabilitarBotaoOpcao

Call HabilitarBotaoOpcao

Else

Dim iRow_1 As Long

Dim ws_1 As Worksheet

Set ws_1 = Worksheets.Application.Sheets("Insumo")

iRow_1 = ws_1.Cells(Rows.Count, 2) _

.End(xlUp).Offset(1, 0).Row

ws_1.Cells(iRow_1, 1).Value = Material.Value

ws_1.Cells(iRow_1, 2).Value = ListaInsumos.Value

ws_1.Cells(iRow_1, 3).Value = entrada.Value

ws_1.Cells(iRow_1, 4).Value = saida.Value

ws_1.Cells(iRow_1, 5).Value = data.Value

Call Limpar

Call DesabilitarBotaoOpcao

Call HabilitarBotaoOpcao

End If

End Sub

http://www.4shared.com/document/Y0Mm0Do ... MOSII.html

Obrigado!!!!!! :cheesygrin:

Att..

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.