Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Subscrito Fora do I...
 
Notifications
Clear all

Subscrito Fora do Intervalo

 
2024 - VBA & Macros
3 Posts
2 Usuários
0 Reactions
620 Visualizações
RSS
 Alberes
(@alberes)
Posts: 0
New Member
Topic starter
 

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
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

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 ;)

 
Postado : 23/01/2015 10:26 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

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

 
Postado : 23/01/2015 10:35 am
Forum Jump:
  Tópico Anterior
Próximo Tópico