Página 1 de 1

Como usar o método FIND

Enviado: 07 Mai 2016 às 13:45
por ivancs
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

Como usar o método FIND

Enviado: 07 Mai 2016 às 23:41
por AndersonLeal
Olá,

Você tem razão, o erro está na função IsNull. Substitua a linha seguinte:

If IsNull(resultado.Address) then

por esta aqui:

If resultado Is Nothing Then

O método .Find retornará Nothing se nenhuma correspondência for encontrada.

Abraço!

Re: Como usar o método FIND

Enviado: 11 Mai 2016 às 17:26
por ivancs
Ao Anderson Leal,

Muito obrigado por sua valiosa ajuda. Eu realmente não conhecia essa função IsNothing, eu conheço IsNumeric, IsEmpty, IsNull, IsBlank, e outras , mas essa IsNothing não sabia que existia. Me ajudou muito, porque tava paradão lá na questão sem ir pra frente no aplicativo. Valeu amigo, tô devendo essa!
Grande abraço pra você.
ivancs