VBA: Vincular datos en Excel con la hoja anterior.

En un foro, en el que suelo participar, contesté una cuestión que me pareció interesante compartir en el blog. Se trata de vincular una referencia de una celda con un dato de la hoja inmediata anterior. En definitiva el fin es vincular no a una hoja concreta, si no a la hoja de Excel anterior (a la hoja situada a la izquierda).
Esto en principio no es tan sencillo de conseguir con la formulación estándar, ya que al crear un vínculo sobre una Hoja de cálculo se hace sobre el nombre de la hoja y la celda; por ejemplo, un vínculo sobre la celda A1 de la Hoja1, se consigue, en cualquier otra hoja del libro así:
=Hoja1!A1
y siempre 'apuntará' hacia esa Hoja y celda.
Sin embargo, podemos trabajar una función personalizada en VBA que nos permite 'apuntar' el vínculo a la hoja anterior.
Nos aprovecharemos de una instrucción de VBA como ActiveSheet.Index que nos dice en qué hoja (numerada) nos encontramos; esto será una ventaja para localizar cúal es la Hoja anterior.

Supongamos un Libro de trabajo con siete hojas (Lunes, Martes, Miércoles, Jueves, Viernes, Sábado y Domingo); sobre alguna de las cuales quiero añadir un vínculo sobre otra hoja; por ejemplo, en la Hoja 'Domingo' quiero añadir un vínculo de la celda A1 de la Hoja anterior, que en esta primera situación sería la Hoja 'Sábado', pero que en cualquier momento podría ser, por que movamos las Hojas, la Hoja 'Jueves' o 'Lunes'; aquí es donde no es muy práctico el enlace: 'Sábado!A1', ya que este vínculo no se vé afectado por la movilidad de las hojas.
Para ello construimos una función que nos sitúa en cada momento en la Hoja activa, en particular en el orden (1, 2, 3, ...) que le corresponde a dicha hoja activa, el resto es sencillo, ya que como resultado de nuestra función personalizada, obtendremos el vínculo a la celda A1 de la hoja que en orden sea una menor, esto es, la anterior.

Insertaremos en un módulo del Explorador de proyectos del Editor de VBA el siguiente código, formando nuestra función VBA de Excel:

Function RefNumHoja()
'permitimos que la función actualice cada vez haya cambios en la hoja
Application.Volatile
Dim NumHoja As Long
'averiguamos la hoja activa
NumHoja = ActiveSheet.Index
    'evitamos un error para el caso de que estemos en la Hoja número 1..
    If NumHoja = 1 Then
    RefNumHoja = "Ojo es la primera hoja!!!"
    Else
    RefNumHoja = Sheets(NumHoja - 1).Range("A1").Value
    End If
End Function

Si ejecutamos esta nueva función 'RefNumHoja' en alguna de las celdas de cualquiera de las siete Hojas de nuestro libro, veremos cómo siempre nos devuelve el valor de la celda A1 de la Hoja inmediatamente anterior (menos en el caso que estemos en la Hoja número 1, que devuelve el texto definido).
Además hemos asignado el método Volatile para facilitar la actualización de la función ante cambios en la hoja donde se encuentre, o cada vez que forcemos la actualización de la hoja presionando F9.