Guru do Excel e Power BI

Enviado: **22 Mar 2016 às 12:13**

Bom dia Pessoal!

Estou com uma pedra no sapato... Eu tenho a planilha abaixo com macros que me diz quais notas ainda não foram recebidas.
Imagem

Ela pesquisa pela chave de acesso, porém a chave de acesso fica na coluna I que é OCULTA, e o código de pesquisa dá erro quando a coluna está oculta mas funciona quando não está, mesmo que o espaço mostrado seja mínimo.
Abaixo meu código:

Columns("I:I").Select

Selection.Find(What:=chave, After _
:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns _
, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=True). _
Activate

ActiveCell.Offset(0, -5).Select
Range(Selection, Selection.End(xlToRight)).Select

O que eu preciso é selecionar a linha pesquisada deixando a coluna I oculta, para depois confirmar se quer dar baixa ou não.

Enviado: **22 Mar 2016 às 12:37**

Boa tarde!!

Tente mudar essa parte LookIn:=xlValues
para

Código: Selecionar todos

LookIn:=xlFormulas

Att

Enviado: **22 Mar 2016 às 12:54**

Dcmdouglas, boa tarde!

Fiz um pequeno trecho, vê se ajuda:

Sub teste()

'Utilizei números de 1 a 9 na coluna "I" e na coluna "D" letras de A a I

chave = 3

linha = 2 'Linha 2
achou = False
Do While Cells(linha, 9) <> "" And achou <> True 'faça enquanto linha for diferente de nada ("") ou quando achar
If (Cells(linha, 9) = chave) Then
achou = True
linha = linha - 1
End If
linha = linha + 1
Loop

Cells(linha, 4).Select 'seleciona coluna D, na linha que encontrou a matricula
Range(Selection, Selection.End(xlToRight)).Select
End Sub

Enviado: **22 Mar 2016 às 13:13**

Não funcionou. Quando a coluna está o oculta o erro que aparece é: Erro em tempo de execução 91. A varável do objeto ou do bloco WITH não foi definida.

alexandrevba escreveu:Boa tarde!!

Tente mudar essa parte LookIn:=xlValues
para
Código: Selecionar todos
LookIn:=xlFormulas
Att

Enviado: **23 Mar 2016 às 09:11**

Código: Selecionar todos

Sub Main()
    Dim rSearch As Range
    
    Set rSearch = Columns("I:I").Find(What:=chave, _
                                      LookIn:=xlValues, _
                                      LookAt:=xlPart)
     
    If Not rSearch Is Nothing Then
        Set rSearch = rSearch.Offset(, 5)
        Range(rSearch, rSearch.End(xlToRight)).Select
    Else
        MsgBox "Resultado não encontrado.", vbExclamation
    End If
End Sub

Enviado: **23 Mar 2016 às 10:16**

DcmDouglas, bom dia!

Utilize o código abaixo, mesmo o campo estando oculto ele encontra

Sub teste()

'Utilizei números de 1 a 9 na coluna "I" e na coluna "D" letras de A a I

chave = 3 'Alimentei com 3 pois é o número que estou procurando, em sua planilha não deve ter essa linha
linha = 2 'Linha 2 é a linha onde se iniciará a pesquisa da matrícula
achou = False
Do While Cells(linha, 9) <> "" And achou <> True 'faça enquanto linha for diferente de nada ("") ou quando achar
If (Cells(linha, 9) = chave) Then
achou = True
linha = linha - 1
End If
linha = linha + 1
Loop

Cells(linha, 4).Select 'seleciona coluna D, na linha que encontrou a matricula
Range(Selection, Selection.End(xlToRight)).Select
End Sub

Enviado: **26 Mar 2016 às 15:22**

Boa tarde Douglas!

Pode usar o seu código mesmo, basta colocar um comando para a macro exibir a coluna "I" antes do início do processamento. E outro comando para ocultá-la ao final.

Usando o seu código ficou assim:

Código: Selecionar todos

Columns("I:I").Select
Selection.EntireColumn.Hidden = True

Columns("I:I").Select

Selection.Find(What:=chave, After _
:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns _
, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=True). _
Activate

ActiveCell.Offset(0, -5).Select
Range(Selection, Selection.End(xlToRight)).Select

Columns("I:I").Select
Selection.EntireColumn.Hidden = False

Enviado: **30 Mar 2016 às 08:21**

Galera, Deu certo!

Obrigado!

Guru do Excel e Power BI

Pesquisa em Célula Oculta

Pesquisa em Célula Oculta

Re: Pesquisa em Célula Oculta

Pesquisa em Célula Oculta

Re: Pesquisa em Célula Oculta

Pesquisa em Célula Oculta

Pesquisa em Célula Oculta

Pesquisa em Célula Oculta

Re: Pesquisa em Célula Oculta