Excel Localizar e copiar valores

[LucasExcel]

Boa tarde.

Poderiam me ajudar por favor. Como eu faço para ao inserir o nome (célula a20) e a data (célula A21) o excel me mostre o ultimo valor preenchido da tabela para essas condições. Por exemplo, com os dados acima o resultado precisa ser as informações da célula F22,F23 e F24.

 

Observação, sempre que eu mudar o nome e a data a tabela terá mais ou menos informações 

 

Planilha em anexo

 

Avaliação.xlsx

[RafaVillani]

@LucasExcelVeja se é dessa forma que você quer.

 

RafaVillani

Avaliação.rar

[RafaVillani]

@LucasExcelPostando o arquivo novamente, o link anterior está corrompido.

Avaliação.rar

[LucasExcel]

@RafaVillani ficou ótimo, mas preciso de outra ajuda. Eu coloquei tudo em uma aba só quando fiz a pergunta para facilitar,porém na planilha eu preciso que esses dados sejam inseridos automaticamente em outra aba, na planilha que enviei na pergunta os dados eram inseridos na aba "Dados", preciso na verdade que sejam inseridos na aba "Grafico". Eu tentei mudar mas não consegui. Não sei nada sobre função

 

Gostaria por favor que os dados sejam inseridos na aba "Grafico", célula W5,W6 e W7.

 

Estou enviando a planilha em anexo e o seu código abaixo.

 

 

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Nome As String, Data As Date
Dim sNome As Range, sData As Range
Dim Lin As Integer, Col As Integer
Dim Celula As Range

Set Celula = Range("E21")

If Not Application.Intersect(Celula, Range(Target.Address)) Is Nothing Then
    If Range("E20") = Empty Then
        MsgBox "Informe o nome primeiro!", vbInformation
    Else

    Nome = Range("E20").Value
    Data = Range("E21").Value

    Set sNome = Sheets("Dados").[A:A].Find(What:=Nome, LookIn:=xlValues, LookAt:=xlWhole)
        
    Set sData = Sheets("Dados").[B:B].Find(What:=Data, LookIn:=xlValues, LookAt:=xlWhole)

        If Not sNome Is Nothing Then
            If Not sData Is Nothing Then
                If Nome = sNome And Data = sData Then
                    sData.Select
                    ActiveCell.Offset(1, -1).Activate
                    Lin = ActiveCell.Row
                    Col = Plan2.Cells(Lin, Cells.Columns.Count).End(xlToLeft).Column
                    Range("F22") = Cells(Lin, Col).Value
                    Range("F23") = Cells(Lin + 1, Col).Value
                    Range("F24") = Cells(Lin + 2, Col).Value
                    Range("E21").Select
                End If
            Else
                MsgBox "Data não encontrada!", vbInformation
            End If
        Else
            MsgBox "Nome não encontrado!", vbInformation
        End If
    End If
End If
End Sub

 

Avaliação..xlsx

[RafaVillani]

@LucasExcelVeja agora, alterei os campos de para a planilha grafico.

Avaliação.rar

[LucasExcel]

@RafaVillani Ficou ótimo, muito obrigado

[RafaVillani]

@LucasExcelDe nada!