final de macro

[gingerlynn]

Buenas noches, el final de mi macro es este

Range("A1").Select
End Sub

Me gustaría que en lugar de ir a a1 tras ejecutar la macro, volviera a la última celda de antes de ejecutarse el macro...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Deleted member 10123]

Hola

prueba con este codigo

Sub MiMacro()
' Almacena la dirección de la última celda seleccionada
Dim ultimaCelda As Range
Set ultimaCelda = Selection

' Aquí va el código de tu...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[gingerlynn]

Estupendo, muchas gracias

 

[gingerlynn]

Una última cosa, así ha quedado:

Sub MiMacro2()


Dim ultimaCelda As Range
Set ultimaCelda = Selection

Range("M5:R34").Select
ActiveWorkbook.Worksheets("25E-PR").Sort.SortFields.Clear...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Leopoldo Blancas]

Hola a todos,

Se ve que haces cosas repetitivas, a lo mejor se puede reducir el código y sin el archivo es difícil ayudar.

Saludos.

 

[gingerlynn]

es una especie de clasificación para hacerla automáticamente cada vez que se incluye un resultado.