Ir ao conteúdo
  • Cadastre-se

Excel Executar Formulário de Pesquisa VBA em varias planilhas


Posts recomendados

Gostaria de Adicionar a Pesquisa à outras planilhas. no código abaixo (Código do Botão Pesquisar) está somente e a Plan1, só que estou com mais 14 plan, ou seja, da plan1 a plan15, Como faço pra Pesquisar nas demais ??? 

 

Private Sub btnpesquisar_Click()

ActiveSheet.Range("$A$1:$J$616").AutoFilter Field:=1, Criteria1:="=*" & Me.txtprocesso.Value & "*"
ActiveSheet.Range("$A$1:$J$616").AutoFilter Field:=2, Criteria1:="=*" & Me.txtnome.Value & "*"
ActiveSheet.Range("$A$1:$J$616").AutoFilter Field:=3, Criteria1:="=*" & Me.txtcpf.Value & "*"
ActiveSheet.Range("$A$1:$J$616").AutoFilter Field:=5, Criteria1:="=*" & Me.txtcidade.Value & "*"




        ListView1.ListItems.Clear
        
        Sheets("Plan1").Select
        
        lin = 2
        
        Do Until Sheets("Plan1").Cells(lin, 1) = ""
        
        If Cells(lin, 1).Rows.Hidden = False Then
        
        
        Set li = ListView1.ListItems.Add(Text:=Sheets("Plan1").Cells(lin, 1).Value)
        li.ListSubItems.Add Text:=Sheets("Plan1").Cells(lin, 2).Value
        li.ListSubItems.Add Text:=Sheets("Plan1").Cells(lin, 3).Value
        li.ListSubItems.Add Text:=Sheets("Plan1").Cells(lin, 5).Value
        li.ListSubItems.Add Text:=Sheets("Plan1").Cells(lin, 10).Value
        
       
        
        End If
                
        lin = lin + 1
                        
        Loop



End Sub

Link para o comentário
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

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 novo...