Excel VBA - Button to find information between workbooks - excel

Question

I'm a beginner at VBA and I'm trying to create a button to search for previous data inserted in all workbooks, using information as client name or date see here. Could you help me with some tips? I attached my code until now below. Thanks in advance.
Private Sub data_consulta_Change()
If VBA.Len(data_consulta.Text) = 2 Then
data_consulta = data_consulta + "/"
End If
If VBA.Len(data_consulta.Text) = 5 Then
data_consulta = data_consulta + "/"
End If
End Sub
Private Sub limpar_Click()
cliente_nome = ""
data_consulta = ""
End Sub
Private Sub pesquisar_base_Click()
On Error GoTo Erro
'Dim pesquisa As String
'pesquisa = InputBox("Digite as informações da consulta!", "PESQUISAR")
Dim linha As Double
linha = 1
With Planilha1
Do
linha = linha + 1
If .Cells(linha, 2).Value = pesquisa Or .Cells(linha, 3).Value Or .Cells(linha, 4).Value Then
data_consulta = .Cells(linha, 2).Value
data_consulta = .Cells(linha, 4).Value
Exit Sub
End If
Loop Until .Cells(linha, 2).Value = ""
MsgBox "Informação não encontrada!", vbInformation, "PESQUISA"
End With
Exit Sub
Erro:
MsgBox "Digite as informações da consulta!", cvcritical, "ERRO"
End Sub
Private Sub UserForm_Initialize()
data_consulta = VBA.Date
End Sub
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Private Sub CommandButton1_Click()
'...
End Sub
Private Sub cliente_nome_Change()
'...
End Sub
Private Sub Label1_Click()
'...
End Sub
Private Sub Label2_Click()
'...
End Sub