O relatório está carregando a data início e final?
Se sim, o raciocínio de pesquisa é o mesmo.
Basta analisar o código e aplicar para o "Relatório do Paciente"

abç

Obrigado pela resposta Leandro, mas o problema é como é vai puxar para o mesmo cliente varias datas diferentes e junto com elas a descrição do relatório?
pois quando eu chamar outro paciente o relatório já é outro.

att.

Ola pessoal,

Resolvi boa parte dos problemas deste Topico, mas pra ficar 100% preciso so da ajuda para criar essa regra para carregar somente os códigos refente ao cliente selecionado.

Anexo a este, tem uma imagem da minha tela, e o que eu preciso... não sei se esta certo o meu raciocínio, mas conto com ajuda de vocês.

Segue também o código que carrega os campos:

Essa lista esta sendo carregada a partir da Plan3("Relatorios") o Código do Paciente esta em Plan1 ("CadPaciente").

Sub PreencherListBox()

    Dim lastRow As Long
    Dim i As Integer
    lst_DescPaci.Clear
    With lst_DescPaci
        'define nº colunas
        .ColumnCount = 3
    End With
    ' Verifica qual a ultima linha preenchida
    lastRow = Plan3.Range("A65000").End(xlUp).Row
    'adiciona dados
    
    For i = 2 To lastRow
     
            Me.lst_DescPaci.AddItem Plan3.Range("B" & i)
            Me.lst_DescPaci.List(Me.lst_DescPaci.ListCount - 1, 1) = Plan3.Range("D" & i)
            Me.lst_DescPaci.List(Me.lst_DescPaci.ListCount - 1, 2) = Plan3.Range("E" & i)
       
    Next

End Sub

Agradeço desde já,

Junior Lins

Se disponibilzar o arquivo ao inves das imagens fica mais facil

MPrudencio, estou anexando a planilha

grato..

Junior Lins