Criar botão pesquisar utilizando dois critérios VBA

[Zamboni_du]

Boa noite,

Estou criando um formulário no Excel onde gostaria de realizar a pesquisa utilizando dois critérios, data e código do cliente, ou seja, eu digito esses dois critérios e ao clicar no botão pesquisar ele busque na planilha as informações que coincidam apenas com esses valores. 

 

[gustavopedrozo]

@Zamboni_du

Boa Tarde Caro Colega

 

segue codigo

 

 ' altere os nomes de 'Combobox1" Textbox3" pelos nomes do seus textbox

'Altere as Sheets ('Vitorino') pelas Suas Sheets e as Lnhas de seu planilha tambem !
    ActiveSheet.Range("$A$1:$T$2000").AutoFilter Field:=1, Criteria1:="=*" & ComboBox1.Value & "*"
    ActiveSheet.Range("$C$1:$T$2000").AutoFilter Field:=3, Criteria1:="=*" & TextBox3.Value & "*"

listview1.ListItems.Clear

Sheets("VITORINO").Select

lin = 2

Do Until Sheets("VITORINO").Cells(lin, 1) = ""

If Cells(lin, 1).Rows.Hidden = False Then

Set li = listview1.ListItems.Add(Text:=Sheets("VITORINO").Cells(lin, 1).Value)
li.ListSubItems.Add Text:=Sheets("VITORINO").Cells(lin, 2).Value