Como memorizar la dirección de una celda

Hola amigos, en esta ocasión mi duda es la siguiente:
Quiero dejar momentáneamente una celda para desplazarme a otra hoja, escribir algo en ella y regresar a la celda donde estaba para seguir ejecutando la macro
ejemplo
estoy en la hoja 2 celda r3
voy a la hoja 1 celda e23 y escribo un dato
regreso a la hoja 2 celda r3 y sigo ejecutando la macro
espero puedan ayudarme pues ando atascado en eso y no puedo seguir desarrollando la aplicación que tengo entre manos
desde ya muchas gracias.

1 respuesta

Respuesta
1
Te dejo el siguiente código a ver si es lo que buscas
Public UltimaCelda As String
Public UltimaHoja As String
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Trim(UltimaCelda) = "" Then
        UltimaHoja = Sh.Name
        UltimaCelda = Target.Address
    ElseIf UltimaHoja & "!" & UltimaCelda <> Sh.Name & "!" & Target.Address Then
        Sheets(UltimaHoja).Activate
        Range(UltimaCelda).Select
        UltimaHoja = Sh.Name
        UltimaCelda = Target.Address
    End If
End Sub
Deberás colocarlo en el módulo del objeto ThisWorkbook
Si gustas te envío a tu correo el archivo con el ejemplo.
mi msn es [email protected]
Hola, ante todo gracias por tu ayuda, te agradecería el ejemplo, aunque también seria conveniente por si alguien más viera este post si explicaras un poco las lineas de código para así entender mejor el ejemplo
mi email es (xxxxxx)
Te agradeceré ese ejemplo y tu atención
Nuevamente muchas gracias
Ya te envié el archivo por correo.
A continuación detallo cada línea del código.
Public UltimaCelda As String 'Variable para guardar la última hoja
Public UltimaHoja As String 'Variable para guardar la última celda
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 
'Este evento se desencadena cuando cambia una celda
    If Trim(UltimaCelda) = "" Then 
        'Sí la variable Ultima Celda esta vacía entonces almacena los datos nuevos
        UltimaHoja = Sh.Name 'Guadamos el nombre de la hoja
        UltimaCelda = Target.Address 'Guardamos la referencia de la celda
    ElseIf UltimaHoja & "!" & UltimaCelda <> Sh.Name & "!" & Target.Address Then
<span style="white-space: pre;"> 'Sí la variable Ultima Celda </span>tiene datos<span style="white-space: pre;"> entonces </span>nos movemos a la Ultima Celda y luego <span style="white-space: pre;">almacena los datos nuevos</span> 
        Sheets(UltimaHoja).Activate 'Nos movemos a la hoja anterior
        Range(UltimaCelda).Select 'Seleccionamos la ultima celda que cambió
        UltimaHoja = Sh.Name'Guadamos el nombre de la hoja 
        UltimaCelda = Target.Address 'Guardamos la referencia de la celda
    End If 
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Ejecutar macro al cambiar el valor de celda

A ver si alguien me puede ayudar por favor, que me estoy volviendo loca! Estoy intentando hacer una macro para que se ejecute otra cada vez que cambia la celda A1. El caso es que A1 está formulado, y lo que quiero es que se ejecute la macro cada vez...
1 respuesta

Como ocultar filas a través del valor de una celda

¿Tengo una tabla en la cual donde necesito que: cuando a1 sea igual a 0 oculte el rango a1:c3; y de igual forma si a4 fuera igual a 0, oculte el rango b4:c7. Para ello necesito que se ejecute la macro automáticamente, sin necesidad de incrporarle un...
1 respuesta

Almacenar los datos de una celda

Antes de explicarme me gustaría agradecer a todos los que hacéis posible esta página, ya que nos sirve de mucho vuestro trabajo, gracias. Bueno lo que intento es hacer en una celda de una hoja en la que voy a meter muchos DNI, almacenarlos en otra...
1 respuesta

Regresar a la celda previa al seleccionar la celda que disparará un UserForm.

He implementado una celda en una hoja excel para que al seleccionarla me dispare un UserForm (actúe como botón) que me pedirá una clave de ingreso, entre otras cosas. Lo que ocuparía sería : al seleccionar la "celda botón", en ese momento la dejase...
1 respuesta

Control de cambios

Otra vez molestando d2enri. Te pregunto ahora por un control de cambios que deseamos llevar en la base de datos, pero tenemos una macro que solo nos da la hora del cambio, pero no nos dice en que celda fue el cambio y no guarda histórico; solo se...
2 respuestas

Hacer que se ejecute la misma macro hojas distinta

Tengo un proyecto que hace que en una de las hojas, si se modifica la celda a1, se ejecute una macro, y me gustaría que si se modificase esa misma celda de cualquiera de las otras hojas, se ejecutase la misma macro. El código que tengo en esa hoja...
1 respuesta

Cambiar indistintamente el valor que comparten dos celdas ( II)

Lamentablemente la solución que me dió Elsa no me vale del todo: Private Sub Worksheet_Change(ByVal Target As Range) 'x Elsamatilde If Not Intersect(Target, Range("A1:A10")) Is Nothing Then Range("B" & Target.Row) = Target.Value ElseIf Not...
1 respuesta