Al ejecutar macro, volver a celda de origen

[Juan Carlos Sancho]

Hola al grupo:
Quería ver si me pueden ayudar a solucionar este problema:
Tengo una macro que ordena unos resultados. Lo que quiero es que luego de
ejecutarse se posicione en la celda desde donde fue llamada. ¿Es posible
hacerlo?
Desde ya, muchas gracias.
Saludos, Juan Carlos.

[Alexander Cedeño]

Prueba con este codigo
Sub prueba()
Set mc = ActiveCell ' Tomo la celda activa al momento de llamar la
macro
Range("A8").Select ' La muevo a otra celda o hace cualquier
cantidad de calculo
CELDA = mc.Address() 'Guardo al direccion de la celda
MsgBox CELDA ' la muestro
Range(CELDA).Select ' ahora la recupero y la coloco como activa
End Sub
Espero te sirva
Saludos

"Juan Carlos Sancho" <jcv...@yahoo.com> escribió en el mensaje
news:upZXxDL7BHA.2252@tkmsftngp04...

[Daniel.M]

Que Tal Juan,

Sub ejemplo()
Dim PriRng As Range
Set PriRng = ActiveCell
'...
' otras manipulaciones
'
PriRng.Select
End Sub

Pero quiero decirle une otra cosa. Frequadamente, no es necesario de hacer
una seleccion antes de hacer una manipulacion.
Si tenemos:
Range("A21").Select
Selection.Interior.ColorIndex = 6

Podriamos sustituirlo como una sola instruccion:
Range("A21").Interior.ColorIndex = 6

Daniel M.

"Juan Carlos Sancho" <jcv...@yahoo.com> wrote in message
news:upZXxDL7BHA.2252@tkmsftngp04...

[Juan Carlos Sancho]

Gracias Alexander y Daniel!!
He probado sus ejemplos y ambos funcionan perfectamente.
Saludos, Juan Carlos.