Boa tarde!!

Consegui fazer o esqueleto.

Mas falta alguns acertos.

Vou te mandar só para testar.

As datas na TextBox está em formato (mm/dd/yyyy). Mês/Dia/Ano, se poder ir mudando.

O form faz penas uma pesquisa e mostra na listview.

Teste diga o que está faltando.

Boa tarde alexandre
Quando aciono o botão dá um erro de compilação. Marquei a linha .

Private Sub UserForm_Initialize()
Dim Wks As Worksheet
Dim c As Long
Me.ComboBox1.RowSource = "=OFFSET(Clientes!$A$2,0,0,(COUNTA(Clientes!$A:$A)),1)"
Me.ComboBox2.RowSource = "=OFFSET(Agendamento!$B$8,0,0,(COUNTA(Agendamento!$B:$B)),1)"
Me.ComboBox3.RowSource = "=OFFSET(Agendamento!$B$8,0,0,(COUNTA(Agendamento!$B:$B)),1)"

With ListView1
.Gridlines = True
.View = lvwReport .HideSelection = False
.FullRowSelect = True
.HotTracking = True
.HoverSelection = False
End With
Set Wks = ActiveWorkbook.Sheets("Agendamento")
For c = 1 To 7
ListView1.ColumnHeaders.Add Text:=Wks.Cells(7, c).Text, Width:=70
' ComboBox1.AddItem Wks.Cells(6, C).Text
Next c
End Sub

O que pode estar acontecendo?
abraços

Esta parte são duas instruções diferentes, separe-as :

.View = lvwReport .HideSelection = False

Ficando :
.View = lvwReport
.HideSelection = False

[]s

Boa noite Mauro
separei as instruções, e mesmo assim a macro não rodou e sinalisou a instrução .View = lvwReport , como se estivese um erro na mesma.
abraços

Conforme seu anexo, fiz a alteração e rodou normalmente, segue a rotina com a alteração que citei:

Private Sub UserForm_Initialize()
    Dim Wks As Worksheet
    Dim c As Long
    Me.ComboBox1.RowSource = "=OFFSET(Clientes!$A$2,0,0,(COUNTA(Clientes!$A:$A)),1)"
    Me.ComboBox2.RowSource = "=OFFSET(Agendamento!$B$8,0,0,(COUNTA(Agendamento!$B:$B)),1)"
    Me.ComboBox3.RowSource = "=OFFSET(Agendamento!$B$8,0,0,(COUNTA(Agendamento!$B:$B)),1)"

    With ListView1
        .Gridlines = True
        .View = lvwReport
        .HideSelection = False
        .FullRowSelect = True
        .HotTracking = True
        .HoverSelection = False
    End With
    Set Wks = ActiveWorkbook.Sheets("Agendamento")
    For c = 1 To 7
        ListView1.ColumnHeaders.Add Text:=Wks.Cells(7, c).Text, Width:=70
        '        ComboBox1.AddItem Wks.Cells(6, C).Text
    Next c
End Sub

Copie e substitua a sua, Salve e depois execute, se persistir o erro, verifique em Referencias se tem alguma como Ausente.

[]s

Boa tarde Mauro
Tú podes me retornar esta planilha que está rodando bem a macro? Pois a minha não está rodando, mesmo com a alteração do teu post.
abraços

Boa tarde!!

Proeletrica, comigo não deu erro, formatei meu PC, não tenho o arquivo.

Como dica, siga as recomendações do Mauro, veja as Referências, caso tenha alguma marcada como Ausente.

Att..

alexandre
Vou esperar a resposta do Mauro, talvez ele tenha.
obrigado

Proelettrica, me baseando no último modelo anexado pelo Alexandre, onde a linha :
".View = lvwReport", está corrreta, mas obitive erro, devido a, "Referencias Ausentes", e depois de ajustar tambem deu erro na linha da rotina :
Sub Get_Stuff()
.Range("A7:G" & LR).AutoFilter Field:=1, Criteria3:= _
">=" & CDate(FrmFind.TextBox1.Value), Operator:=xlAnd, Criteria3:="<=" & CDate(FrmFind.TextBox2.Value)

O Range nomeado "Criterio3" não existe.

Em vez de eu anexar o mesmo modelo uma vez que o mesmo se encontra nos posts anteriores, proceda da seguinte forma, baixe o arquivo do Alexandre, abra, va no editor de VBA e verifique as "Referencias", conforme foi dito anteriormente, veja a imagem do erro que obtive :

Localiza-a e desabilite, e depois desabilite a linha que me referi acima na rotina Sub Get_Stuff.

Refaça os testes e qq duvida retorne.

[]s