Ir ao conteúdo
  • Cadastre-se

douglasdasilva2901

Membros Juniores
  • Total de itens

    6
  • Registro em

  • Última visita

  • Qualificações

    N/D
  1. Bom dia, vê se isso lhe ajuda. PROCV-ESQUERDA.xlsx
  2. @osvaldomp Fui pesquisar sobre o assunto e acabei encontrando uma solução, tive que fazer alguns ajustes na macro mas ficou funcional e pratica para minha aplicação. se alguém precisar de algo parecido abaixo compartilho o código. salientei as partes que precisei alterar da outra formula Sub Pesquisa_Avançada() Dim linha As Long linha = ActiveCell.Row Range("AB" & linha).Select ActiveCell.Offset(3, 0).Select Dim EncontraString As String Dim Intervalo As Range Static encontrar As String encontrar = InputBox("Digite a pesquisa", "Pesquisa Avançada", encontrar) EncontraString = "*" & encontrar & "*" If Trim(EncontraString) <> "" Then With Sheets("Clientes").Range("Y:AF") Set Intervalo = .Find(what:=EncontraString, _ After:=ActiveCell(1), _ LookIn:=xlValues, _ LookAt:=xlWhole, _ SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=False) If Not Intervalo Is Nothing Then Range(Intervalo.Address).Select Else MsgBox "Não Localizado.", vbCritical, "Atenção" End If End With End If End Sub
  3. Não salientei um detalhe, quando uso localizar normal, para achar cada campo que preciso leva em media 30 segundos, usando a macro do jeito que esta levo apenas 1 a 2 segundos para localizar, tendo em vista que ela procura no intervalo que eu determinei Range("Y:AF") se consegui-se alguma forma ao menos de fazer um localizar próximo ou fazer a inputbox manter os valores inseridos na ultima pesquisa, ira ajudar a agilizar o meu processo.
  4. A principio eu uso ela para localizar uma informação dento de um determinado intervalo, quando ela termina a localização me leva até o resultado, mas por exemplo se eu tiver vários resultados abaixo que são iguais e o primeiro encontrado e precisar usar novamente a macro, vou ter que indicar de novo o que estou procurando. Exemplo procurei chocolate, ele achou chocolate x, mas eu quero procurar chocolate novamente pois quero outro modelo, e quando rodar a macro novamente terei que preencher a inputbox novamente pois ela não memorizou a ultima pesquisa, queria que ao menos ela apareça já preenchida com chocolate para facilitar a nova pesquisa.
  5. Boa tarde, Uso uma macro com inputs para localizar dados em área determinada dentro da planilha, gostaria de saber se existe alguma forma de a box vir pré carregada conforme a ultima vez que foi utilizada, pois existe a possibilidade de ter até 20 ou mais campos dentro da planilha igual. segue minha macro utilizada atualmente. Sub Pesquisa_Avançada() Dim linha As Long linha = ActiveCell.Row Range("AB" & linha).Select ActiveCell.Offset(3, 0).Select Dim EncontraString As String Dim Intervalo As Range EncontraString = "*" & InputBox("Digite a pesquisa", "Pesquisa Avançada") & "*" If Trim(EncontraString) <> "" Then With Sheets("Clientes").Range("Y:AF") Set Intervalo = .Find(What:=EncontraString, _ After:=ActiveCell(1), _ LookIn:=xlValues, _ LookAt:=xlWhole, _ SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=False) If Not Intervalo Is Nothing Then Range(Intervalo.Address).Select Else MsgBox "Não Localizado.", vbCritical, "Atenção" End If End With End If End Sub

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações 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...

GRÁTIS: minicurso “Como ganhar dinheiro montando computadores”

Gabriel TorresGabriel Torres, fundador e editor executivo do Clube do Hardware, acaba de lançar um minicurso totalmente gratuito: "Como ganhar dinheiro montando computadores".

Você aprenderá sobre o quanto pode ganhar, como cobrar, como lidar com a concorrência, como se tornar um profissional altamente qualificado e muito mais!

Inscreva-se agora!