Mover a una celda después de aplicar el Autofiltro

He activado en una hoja de cálculo el autofiltro. Pero quiero que, después de activar el filtro, el cursor seleccione la última celda visible. He probado con todo tipo de funciones en VBA, pero ninguna funciona.

Me gustaría conseguir algo a esto:

Private Sub Worksheet_Activate()
    Application.ScreenUpdating = False
    Application.Goto Sheets(ActiveSheet.Name).Cells(Rows.Count, 1).End(xlUp).Offset(-20, 0), True
    Range("A2").End(xlDown).Select
End Sub

pero que funcione justo después, y en automático, después de aplicar el autofiltro.

A ver si alguien me sabe decir.

1 respuesta

Respuesta
1

[Hola 

prueba esto

Private Sub Worksheet_Activate()
    ActiveSheet.Range("A2").End(xlDown).Select
End Sub

Gracias, Adriel, pero no funciona.

A ver, me explico: tengo la hoja en cuestión, le aplico el autofiltro, y acto seguido, y automáticamente, quiero que me vaya a la celda A1, desde donde quiera que esté. No tengo la hoja protegida, para que no pase como ayer.

He probado también con Worksheet_Change, y tampoco funciona. De ahí que pregunte, porque no encuentro la forma.

Private Sub Worksheet_Activate()
    ActiveSheet.Range("A1").Select
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas