Este fórum está sendo desativado

[welemes]

Pessoal, sei que minha pergunta é muito idiota, mas vamos lá.

Tenho o seguinte cabeçalho
Nome Valor Situacao
Preciso de uma linha de comando que faça uma coisa.
- Em um filtro no cabeçalho, no campo situação (independe qual o resultado do filtro) a macro deixe a primeira célula visível ativa (Selecionada)

Estou usando a Macro, mas não estou conseguindo identificar o erro:
Dim Inter, Cel
Inter = 1
For Each Cel In Range("C3:C7").SpecialCells(xlCellTypeVisible).Cells
If Inter = 1 Then
Inter = Inter + 1
Next
End Sub

[alexandrevba]

Boa noite!!

Use o comando Select

Código: Selecionar todos

Range("C2", Cells(Rows.Count, "C").End(xlUp)).SpecialCells(xlCellTypeVisible).Cells(1, 1).Select

Att

[welemes]

Perfeito, funcionou!!

Grato