O comando 'Find' não consegue encontrar um valor oculto pelo Auto Filtro, porém ele consegue encontrar um valor em coluna oculta, independente se a célula com o valor procurado está ou não oculta pelo Filtro.
O código abaixo retorna o número da linha em que está o valor procurado, estando a célula com o valor oculta ou não pelo Filtro.
Sub encontrar_valorV2()
Dim valor As Long
With Sheets("Plan1").Columns(1)
.Hidden = True
valor = .Find(what:=4).Row
.Hidden = False
End With
MsgBox valor
End Sub
sugestão - cole o código em um módulo comum, não no módulo da planilha
Postado : 04/08/2016 11:04 am