Gostaria de saber como evitar que seja lançada uma quantidade maior do produto do que há em estoque por meio dos comandos do visual basic. Vi um vídeo em que o comando que inseri funciona, mas no meu caso não está funcionando.
Comando:
Dim Saldo As Integer
Dim Referência As Integer
Dim Quantidade As Integer
Referência = Planilha6.Range("C6").Value
Quantidade = Planilha6.Range("C9").Value
Saldo = Application.WorksheetFunction.VLookup(Referência,Planilha2.Range("A:P"),16,0)
If Saldo - Quantidade >= -1 Then
MsgBox "Estoque Indisponível", VbCritical
Exit Sub
End If
A Planilha 6 é onde faço Os Lançamentos.
A Planilha 2 é o registro de estoque.
Sempre aparece uma mensagem com o erro 1004: Não é possível obter a propriedade VLookup da classe WorksheetFuction.
Comando:
Dim Saldo As Integer
Dim Referência As Integer
Dim Quantidade As Integer
Referência = Planilha6.Range("C6").Value
Quantidade = Planilha6.Range("C9").Value
Saldo = Application.WorksheetFunction.VLookup(Referência,Planilha2.Range("A:P"),16,0)
If Saldo - Quantidade >= -1 Then
MsgBox "Estoque Indisponível", VbCritical
Exit Sub
End If
A Planilha 6 é onde faço Os Lançamentos.
A Planilha 2 é o registro de estoque.
Sempre aparece uma mensagem com o erro 1004: Não é possível obter a propriedade VLookup da classe WorksheetFuction.
- Anexos
- Design sem nome.png
- Você não tem permissão para fazer download dos arquivos anexados.
- (161 Kb) Baixado 2 vez(es)