Este fórum está sendo desativado

[dcmdouglas]

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.


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.

[alexandrevba]

Boa tarde!!

Tente mudar essa parte LookIn:=xlValues
para

Código: Selecionar todos

LookIn:=xlFormulas

Att

[Jonathaluis]

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

[dcmdouglas]

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.

Boa tarde!!

Tente mudar essa parte LookIn:=xlValues
para

Código: Selecionar todos

LookIn:=xlFormulas

Att

[FelipeGualberto]

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

[Jonathaluis]

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

[JFBERNARDES]

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

[dcmdouglas]

Galera, Deu certo!

Obrigado!