Não consigo pesquisar a data

[djalmaM]

montei um formulário e não consigo pesquisar a data, alguém pode me ajudar?
vou mandar em anexo o arquivo. desde já agradeço a todos e que meu formulário sirva para ajudar alguém.

[Reinaldo]

Experimente:
Altere o tipo de dado "recebido" em sua -->PesquisaPersonalizada<-- conforme abaixo

Código: Selecionar todos

Private Sub PesquisaPersonalizada(ByVal Pesquisado As Variant)
Dim Pesquisa As Range
Dim Primeira As String
Dim Resultado As String

If IsDate(Pesquisado) Then Pesquisado = DateValue(Pesquisado)

Set Pesquisa = Planilha1.Cells.Find(What:=Pesquisado, After:=Range("A1"), LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

If Not Pesquisa Is Nothing Then
    Primeira = Pesquisa.Address
    Resultado = Pesquisa.Row

    Do
    Set Pesquisa = Planilha1.Cells.FindNext(After:=Pesquisa)
    
    If Not Pesquisa.Address Like Primeira Then
        Resultado = Resultado & ";" & Pesquisa.Row
    End If
    
    Loop Until Pesquisa.Address Like Primeira

    GeralResultados = Split(Resultado, ";")
    Me.SpinButton1.Max = UBound(GeralResultados)
    Me.SpinButton1.Enabled = True
    
    Me.LabelCONTADOR.Caption = "1 de " & UBound(GeralResultados) + 1
    Me.TextBox1.Text = Planilha1.Cells(GeralResultados(0), 1).Value
    Me.TextBox2.Text = Format(Planilha1.Cells(GeralResultados(0), 2).Value, "HH:MM:SS")
    Me.TextBox3.Text = Planilha1.Cells(GeralResultados(0), 3).Value
    
    linha = GeralResultados(0)
Else
    Me.SpinButton1.Enabled = False
    Me.LabelCONTADOR.Caption = ""
    Me.TextBox1.Text = ""
    Me.TextBox3.Text = ""
    
    MsgBox ("Nenhum resultado para '" & Pesquisado & "' foi encontrado."), vbInformation, "LDVENDAS 2.0."
End If
End Sub

[djalmaM]

Perfeito amigo. fico muito agradecido de verdade mesmo pela ajuda. funcionou.
Se você tiver tempo e puder me explicar a lógica para a data ser pesquisada eu agradeço.
Abraços e saúde e paz para ti.