Olá, criei uma macro que tem como objetivo debitar a quantidade do produto inserido em um campo de dados. Como não tenho grande conhecimento em VBA, fiz todos os cálculos na própria planilha e utilizei a macro apenas para substituir a nova quantidade já debitada e informar se é necessário pedir mais produtos.
O meu problema é na hora de substituir a quantidade debitada. Não consigo programar a macro para localizar o produto na base de dados e substituir a quantidade que fica na coluna ao lado. Alguém pode me ajudar?
Segue a macro atual:
Sub Teste()
'
' Teste Macro
'
'
Range("L6").Select
Selection.Copy
Range("E14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
If Range("M6") < 999999 Then
MsgBox "Ok."
End If
If Range("M6") = 999999 Then
MsgBox "Pedir mais Embalagens."
End If
End Sub
A parte em vermelho mostra o local onde a localização e substituição deve ser feita.
Obrigada.
O meu problema é na hora de substituir a quantidade debitada. Não consigo programar a macro para localizar o produto na base de dados e substituir a quantidade que fica na coluna ao lado. Alguém pode me ajudar?
Segue a macro atual:
Sub Teste()
'
' Teste Macro
'
'
Range("L6").Select
Selection.Copy
Range("E14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
If Range("M6") < 999999 Then
MsgBox "Ok."
End If
If Range("M6") = 999999 Then
MsgBox "Pedir mais Embalagens."
End If
End Sub
A parte em vermelho mostra o local onde a localização e substituição deve ser feita.
Obrigada.