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!
Boa tarde!!
Olá seja bem vindo (a), Alberes!!!
Por favor Leia os links abaixo, obrigado!!!
Nossas Regras
viewtopic.php?f=7&t=203
Marcar Tópico como Resolvido e Agradecimento
viewtopic.php?f=7&t=3784
Lembre se de usar nossa base de dados (Pesquisa) e a Biblioteca
Como Anexar Aquivos Compactados
viewtopic.php?f=7&t=3841
Abrir Novo Tópico
viewtopic.php?f=7&t=5317
Onde Devo Postar Minha Dúvida e mais...
viewtopic.php?f=7&t=7903
Att 
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Boa tarde!!
Tente assim...
Public Sub Meta()
Dim Meta, Resultado As Range
Set Meta = Range("M3")
Set Resultado = Range("N3")
If Meta.Value < Resultado Then
MsgBox "Meta MENOR do que o acordado!"
ElseIf Resultado.Value > Meta Then
MsgBox "Meta Maior do que o acordado!"
Else: MsgBox "Inserção de Meta Concluída!"
End If
End Sub
Att
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel