Entrar Ainda não tem acesso?
1
resposta

Erro de compilação - End If sem bloco If

Referente ao curso Excel: personalizando e automatizando tarefas com VBA, no capítulo Meu primeiro código VBA e atividade Sintaxe de uma linguagem

por FIDEL MARCIANO TACHINI SOUZA
| 12.9k xp | 1 posts

Boa noite,

Ao finalizar a primeira atividade do curso "Excel: Personalizando e automatizando tarefas com VBA", que traz o seguinte questionamento - João precisa comparar o valor da célula “A1” a um valor (no caso 10) e informar se o valor da célula é maior ou menor do que 10, como podemos executar essa função em VBA?

Ao utilizar a alternativa correta que seria - IF Range(“A1”) > 10 then Msgbox “Maior” Else Msgbox “Menor ou Igual” End If. Ainda encontro o erro ao rodar o código.

Sub Teste()

If Range(A1) > 10 Then MsgBox “Maior” Else MsgBox “MenorIgual”

    End If

End Sub

Qual é a natureza do problema?

Desde já agradeço.

1 resposta
por Equipe Prof. Sabino
| 220.1k xp | 360 posts
Moderador Tutor de Conteúdos

Olá Fidel,

Você provavelmente copiou o código da forma como está para o módulo do editor de VBA, não é?

Experimenta refazer, digitando e obedecendo a sintaxe conforme a indentação das linhas, conforme abaixo:

If Range(“A1”) > 10 Then

MsgBox “Maior”

Else

MsgBox “MenorIgual”

End If

End Sub

Caso surjam novas dúvidas, fique à vontade para falar com a gente aqui pelo fórum.

Abraços,

Equipe do Prof. Sabino