Busca de dados com 2 verificações

Preciso buscar dados em uma planilha para outra planilha. Só que tem que ser verificado 2 chaves (de busca). Meu objetivo é fazer uma programação e atividade para cada cliente, a programação que é semanal deve ser gerada sempre a um sábado anterior. Coloquei / preenchi a mesma com exemplos e a programação que foi gerada, chamei os clientes de letras.
O arquivo está postado a seguir. O mesmo tem uma planilha chamada AGENDA e outra chamada PROGRAMAÇÃO.
Na planilha Agenda tem a coluna da chave principal, no caso são CASA, RAPOSA e FAMÌLIA. Repare que a especificação do dia ressalta exatamente o dia da semana que será a outra chave, ou campo de verificação para alocação do nome do cliente na programação.
Quando for digitado na planilha de PROGRAMAÇÃO a palavra CASA ou RAPOSA ou FAMÍLIA, deve ser verificado o dia lançado na planilha Agenda e assim ser colocado cada cliente de acordo com o dia da semana digitado.
Acredito que deve ser feito com Macro. Peço por favor para que me ajudem.

4shared.com/file/RfryrDaR/Busca_Dados_com_2_chaves.html?

Bom dia!!!
Tente assim....
Não testado!!

Código:

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim rng As Range
    Dim c  As Range, x, y
   
    If Target.Address(0, 0) = "C1" Then
        y = Range("a2:j2").Value2
        With Worksheets("AGENDA")
            Set c = .UsedRange.Rows(1).Find(What:=Me.Range("C1").Value, LookAt:=xlWhole).MergeArea.Cells(1)
            If Not c Is Nothing Then
                For Each rng In c.MergeArea.Cells(1).Offset(2).Offset(, 2).Resize(.UsedRange.Rows.Count - 2).Cells
                    x = Application.Match(rng.Value, y, 0)
                    If Not IsError(x) Then
                        Application.EnableEvents = False
                        Me.Cells(4, x) = rng.Offset(, -2).Value
                        Application.EnableEvents = True
                    End If
                Next rng
            End If
        End With
    End If
   
End Sub

Não deu certo.
Pelo menos eu não consegui fazer funcionar.
Ixxii. tem como testar para mim?

Boa noite!!!

Veja dessa forma

Código:

Private Sub CMD_Click()
Dim rng As Range
    Dim c  As Range, x, y
    Dim lasrow As Long
 
   
        y = Range("a2:j2").Value2
        With Worksheets("AGENDA")
            Range("A4:J28").ClearContents
           
            Set c = .UsedRange.Rows(1).Find(What:=Me.Range("C1").Value, LookAt:=xlPart).MergeArea.Cells(1)
            If Not c Is Nothing Then
                For Each rng In c.MergeArea.Cells(1).Offset(2).Offset(, 2).Resize(.UsedRange.Rows.Count - 2).Cells
                    x = Application.Match(rng.Value, y, 0)
                    If Not IsError(x) Then
                        lastrow = Cells(Rows.Count, x).End(xlUp).Row + 1
                        Me.Cells(lastrow, x) = rng.Offset(, -2).Value
                    End If
                Next rng
            End If
        End With
   
End Sub

A Macro funcionou, mas estou tento outro problema.
Para que a macro funcione está sendo necessário que eu clique no botão EXECUTAR.
Como fazer com que a macro execute normalmente, ou seja, o que devo fazer para que ao digitar o nome ou palavra no campo da planilha a macro faça a execução normalmente?

Boa tarde!!

Mude a macro para uma sub rotina.

e use..

Código:

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("C1")) Is Nothing Or Target.Cells.Count > 1 Then
Exit Sub
Else
Call SuaMacro
End If

End Sub

Funcionou com a procura por uma palavra, mas agora eu preciso filtrar por período.
A idéia é a mesma, porém terá a data 1 e a data 2.

veja a planilha:

4shared.com/file/CW8-BmYA/Busca_Dados_com_3_chaves.html?

Segue a seguir o link para download do arquivo. O mesmo está no sendspace também:



sendspace.com/file/p513uc