gustavopedrozo
-
Posts
1 -
Cadastrado em
-
Última visita
Tipo de conteúdo
Artigos
Selos
Fabricantes
Livros
Cursos
Análises
Fórum
posts postados por gustavopedrozo
Sobre o Clube do Hardware
No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais
Direitos autorais
Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais
Criar botão pesquisar utilizando dois critérios VBA
em Microsoft Office e similares
Postado
@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