Olá pessoal,
há algum tempo tive uma grande ajuda aqui.
Hoje venho pedir ajuda novamente. Me parecia ser uma coisa não tão difícil, mas estou apanhando aqui.
Ocorre que criei essa macro e dá um problema quando tento executar. Segue a parte com problema.
Sub SAIDA()
Dim estoque, qtd, linha, total
estoque = Plan1.Range("D10").Value
linha = Plan1.Range("D12").Value
qtd = Plan1.Range("D14").Value
If qtd > estoque Then
MsgBox ("Não há estoque suficiente")
Else
total = estoque - qtd
Plan2.Range("C" & linha).Value = total
MsgBox ("Venda realizada com sucesso")
Plan1.Range("D14").Value = ""
End If
End Sub
Se alguém puder me ajudar ficarei muito contente pq tô com dor de cabeça...
Em anexo envio a planilha. Existem outras informações que não precisam ser levadas em consideração dentro da planilha. Me basta que a quantidade que eu colocar em "quantidade saída" desconte da quantidade da planilha "ferramentas".
Obrigado e bom domingo!
Postado : 27/09/2015 6:05 am