- 07 Mai 2016 às 13:45
#10452
Olá amigos do Forum,
Tenho uma lista de alunos em uma planilha(Plan2) na coluna B, que ocupa o Range(B6:B282).
Digito o nome do aluno em uma InputBox, e desejo procurar o aluno lá na lista, usando o método FIND. O que eu preciso é fazer o código para quando o aluno não for encontrado, ou seja, quando ele ainda não fizer parte da Lista De Alunos, eu preciso dar uma mensagem em uma MsgBox dizendo que o aluno não existe. Então fiz o código de uma macro assim:
Dim resultado As Range
Dim aluno As String
aluno = InputBox(“Digite o nome do aluno!”)
Sheets("Plan2").Select
Set resultado = Range("B6:B282").Find(aluno)
If IsNull(resultado.Address) Then
MsgBox “Esse aluno não consta da Lista de Alunos!”
End If
End Sub
Mas essa macro não funciona, a função IsNull parece que não está correta, ou outro comando.
Então, de forma bem simples, uma macro em VBA que procure um nome em uma coluna B, e se não encontrar esse nome, abrir uma mensagem dizendo que aquele nome não consta da lista no Range("B6:B282"). Só isso!
Se alguém puder me ajudar, agradeço muito.
Ivan
Tenho uma lista de alunos em uma planilha(Plan2) na coluna B, que ocupa o Range(B6:B282).
Digito o nome do aluno em uma InputBox, e desejo procurar o aluno lá na lista, usando o método FIND. O que eu preciso é fazer o código para quando o aluno não for encontrado, ou seja, quando ele ainda não fizer parte da Lista De Alunos, eu preciso dar uma mensagem em uma MsgBox dizendo que o aluno não existe. Então fiz o código de uma macro assim:
Dim resultado As Range
Dim aluno As String
aluno = InputBox(“Digite o nome do aluno!”)
Sheets("Plan2").Select
Set resultado = Range("B6:B282").Find(aluno)
If IsNull(resultado.Address) Then
MsgBox “Esse aluno não consta da Lista de Alunos!”
End If
End Sub
Mas essa macro não funciona, a função IsNull parece que não está correta, ou outro comando.
Então, de forma bem simples, uma macro em VBA que procure um nome em uma coluna B, e se não encontrar esse nome, abrir uma mensagem dizendo que aquele nome não consta da lista no Range("B6:B282"). Só isso!
Se alguém puder me ajudar, agradeço muito.
Ivan
Editado pela última vez por Kledison em 07 Mai 2016 às 18:04, em um total de 1 vez.
Razão: Correção do Título que estava totalmente em maiúsculo. Fique atento as regras do fórum.
