Boa tarde senhores!
Podem me ajudar a concluir este Scripit?
Public Sub Meta()
Dim Meta, Resultado As Integer
Meta = Range("M3")
Resultado = Range("N3")
If Worksheets("Desdobrameto Meta").Meta < Resultado Then
MsgBox "Meta MENOR do que o acordado!"
ElseIf Worksheets("Desdobrameto Meta").Resultado > Meta Then
MsgBox "Meta Maior do que o acordado!"
Else: MsgBox "Inserção de Meta Concluída!"
End If
End Sub
Está apresentado a mensagem Subscrito Fora do Intervalo
Obrigado!
Postado : 23/01/2015 10:08 am