Problemas com Pesquisar com filtros de pesquisa em VBA

[Pedro Miguel Gomes]

Sou estudante de Programação e nunca tinha usado VBA e tenho de entregar um trabalho, mas nunca tive formação nesta linguagem, e estou a ter problemas  no programa na parte de Pesquisar registros com filtros, já tentei ao máximo fazer seguindo tutoriais na internet, até que uma pessoua me ajudou e mandou-me codia e disse para fazer um passos só que eu não sei seguir esses passos.

 Fico muito agradecido se alguém me conseguir ajudar.

   

O que a pessoa me indicou:

" Para testar o código coloque um filtro na planilha Dados no range A1:L1 e crie uma planilha com o nome de Auxiliar. Cole o código no formulário Pesquisar. "

Option Explicit

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then Call Filtro(TextBox1.Text, ComboBox1.Text)
End Sub

Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then Call Filtro(TextBox2.Text, ComboBox2.Text)
End Sub

Private Sub TextBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then Call Filtro(TextBox3.Text, ComboBox3.Text)
End Sub

Private Sub UserForm_Initialize()
    ComboBox1.RowSource = "Relatório!A1:A12"
    ComboBox2.RowSource = "Relatório!A1:A12"
    ComboBox3.RowSource = "Relatório!A1:A12"
End Sub

Sub Filtro(ByVal Pesquisa As String, Campo As String)
    Dim Coluna  As Integer
    Dim Area    As Range
    
    Set Area = ThisWorkbook.Sheets("Dados").[A1:L1]
    Coluna = WorksheetFunction.Match(Campo, Area, 0)
    If Pesquisa <> "" Then
        If IsNumeric(Pesquisa) = False Then Pesquisa = "*" & Pesquisa & "*"
        Call Area.AutoFilter(Field:=Coluna, Criteria1:=Pesquisa)
        Call CopiaTabela
        Call PreencheListBox
    End If
End Sub

Sub CopiaTabela()
    ThisWorkbook.Sheets("Auxiliar").[A:L].Clear
    ThisWorkbook.Sheets("Dados").[A1].CurrentRegion.Copy
    ThisWorkbook.Sheets("Auxiliar").[A1].PasteSpecial xlPasteValues
    Application.CutCopyMode = False
End Sub

Sub PreencheListBox()
    Dim Area    As Range
    Set Area = ThisWorkbook.Sheets("Auxiliar").[A1].CurrentRegion
    ListBox1.ColumnCount = Area.Columns.Count
    ListBox1.ColumnHeads = True
    ListBox1.RowSource = "Auxiliar!" & Area.Offset(1).Address
End Sub

Link do Programa: 

https://drive.google.com/file/d/1ucJVL5Ijg0IcDqaFzoJi8aiMPb0NCbjI/view?usp=sharing

[Alyson Ronnan Martins]

Boa noite @Pedro Miguel Gomes

Quando fui testar seu código deu esse erro:

Esse é o problema?

[Pedro Miguel Gomes]

54 minutos atrás, Alyson Ronnan Martins disse:

Boa noite @Pedro Miguel Gomes

Quando fui testar seu código deu esse erro:

Esse é o problema?

O codigo foi uma pessoa que criou para mim só que eu não sei resolver esse erro.😪

[Alyson Ronnan Martins]

Esse três campos estão pegando os campos da planilha Relatório

Qual a planilha que você pegar os campos? (já que essa relatórios não existe)

[Pedro Miguel Gomes]

12 horas atrás, Alyson Ronnan Martins disse:

Esse três campos estão pegando os campos da planilha Relatório

Qual a planilha que você pegar os campos? (já que essa relatórios não existe)

A planilha "Dados".

Muito Obrigado pela a ajuda.

[Alyson Ronnan Martins]

Boa noite!

Eu fiz a alteração do código para planilha dados e funcionou o filtro:

porém esse filtro selecionado em cima deveria ser as colunas ou são as linhas da coluna A?