Codigo VBA de Pesquisa

[CaueBorges]

Olá, sou novo no mundo do VBA!

Eu estou criando uma um VBA de pesquisa mas estou com uma dificuldade de fazer uma busca condicional,  EX: eu tenho uma planilha que me diz o nome da pessoa e se ela esta ativa ou não, e quando vou criar uma campo de pesquisa só consigo buscar pelo nome eu só quero buscar a pessoa que esta inativa, não estou conseguindo criar essa condição de distinguir quem é ativa ou não, se vocês conseguirem me ajudar ficarei muito agradecido.

 

 

[marcio.rodrigues]

Olá CaueBorges

Tente adaptar as suas necessidades:

Sub buscarNomeAtivo()

'fonte https://docs.microsoft.com/pt-br/office/vba/api/excel.range.find

nome = CStr(ActiveSheet.Cells(2, 5).Value) 'formatar para texto

Dim rgn As Range
    
    With ActiveSheet.Range("A:A")
        
        Set rgn = .Find(nome, LookIn:=xlValues)
        
        If Not rgn Is Nothing Then
            
            linha = rgn.Row
            
            If ActiveSheet.Cells(linha, 2).Value = "ativo" Then
                
                MsgBox "A pessoa " & nome & " é " & ActiveSheet.Cells(linha, 2).Value
                    
            Else
                
                MsgBox "A pessoa " & nome & " é " & ActiveSheet.Cells(linha, 2).Value
                
            End If
        
        Else
       
            MsgBox "A pessoa " & nome & " não foi localizada!!"
        
        End If
    
    End With

End Sub

Veja se é por aí...