CONHEÇA o BABOO PRO e a Comunidade BABOO que substituirão o site BABOO e esse fórum

Ir para conteúdo
  • Cadastre-se
GENECI

RESPONDIDO Pesquisar com várias células simultâneas

Mensagem Recomendada

Olá, Geneci.

Substitua o código existente pelo código abaixo e veja se o resultado atende.


Sub ProcuraV2()
 Dim crit As Range, i As Long
  If [A5] <> "" Then Range("A5:F" & [A5].End(4).Row).Value = ""
   With Sheets("CADASTRO")
    .AutoFilterMode = False
     For Each crit In Range("B2:E2")
      .Range("A6:G" & .Cells(Rows.Count, 1).End(xlUp).Row).AutoFilter i + 2, crit.Value
      i = i + 1
     Next crit
    .Range("A7:G" & Cells(Rows.Count, 1).End(xlUp).Row).Copy [A5]
    .AutoFilterMode = False
   End With
  Columns("F:F").Delete
End Sub


obs. por favor desloque o botão PESQUISAR para a esquerda dos critérios (coloque-o na região A1:A3)


 

Osvaldo

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Bom dia! Osvaldo.

Muito obrigado por atender a minha solicitação.

Fiz algo de errado e não obtive o resultado esperado.

Por favor, pode verificar onde eu errei?

Grato - GENECI.

Pesq.celulas2.zip

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá, Geneci.

Faltou atribuir a nova macro ao botão. Outro problema é que o novo código ao ser copiado daqui do fórum e colado no módulo foi contaminado por "sujeiras" aqui do fórum o que provocou erro em alguns comandos.

Esse problema é comum neste fórum e a contaminação se dá ao copiar fórmulas e códigos em VBA.

Segue o arquivo com os ajustes feitos. Veja se melhorou.

 

 

Pesq.varias celulas.xlsm


 

Osvaldo

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Quer postar a sua dúvida? Cadastre-se pois é rápido e fácil!

Crie uma nova conta

Entrar

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

Entrar Agora

×
×
  • Criar Novo...