VBA: Una función personalizada para mostrar el Número de página en una celda.

Hace bastante tiempo mostré cómo conseguir identificar el número de página impresa directamente en una celda de nuestra Hoja de cálculo; mediante funciones macro 4.0 de Excel conseguíamos identificar en una celda la numeración de la hoja correspondiente al área de impresión (ver).

Hoy veremos otra forma de obtener el mismo resultado, de una manera algo más sencilla, mediante una función personalizada en VBA.

La idea sigue siendo la misma, para una hoja con un área de impresión definida, con diferentes saltos de página insertados, mostrar en la misma hoja de cálculo, en las celdas correspondientes, cuál es el número de página de un total de ellas.
Partiremos de una hoja con diferentes saltos de página:

Insertamos el siguiente código VBA de nuestro procedimiento Function en un módulo del Explorador de proyectos del Editor de VBA:

Function InfoPag()
Dim iPags As Integer, iPag As Integer
Dim iCols As Integer, iCol As Integer
Dim lfilas As Long, lfila As Long
Dim x As Long, y As Long

Application.Volatile
Dim direccion As Range
'controlamos la dirección de la celda donde se encuentra la función
Set direccion = Range(Application.Caller.Address)

'contamos saltos de página (horizontales y verticales)
With ActiveSheet
    lfilas = .HPageBreaks.Count
    iCols = .VPageBreaks.Count
End With
'calculamos el número total de páginas
iPags = (lfilas + 1) * (iCols + 1)

With ActiveSheet
    'recorremos columnas hasta que encontramos entre qué saltos verticales está.
    y = direccion.Column
    x = 0
    Do
        x = x + 1
    Loop Until x = iCols Or y < .VPageBreaks(x).Location.Column
    iCol = x
    If y >= .VPageBreaks(x).Location.Column Then
        iCol = iCol + 1
    End If
    
    'recorremos columnas hasta que encontramos entre qué saltos horizontales está.
    y = direccion.Row
    x = 0
    Do
        x = x + 1
    Loop Until x = lfilas Or y < .HPageBreaks(x).Location.Row
    lfila = x
    If y >= .HPageBreaks(x).Location.Row Then
        lfila = lfila + 1
    End If
    
    'Dirigimos y calculamos el número de pagina, según este la configuración de pagína
    'bien Hacia abajo y luego hacia la derecha
    'bien Hacia la derecha y luego abajo
    If .PageSetup.Order = xlDownThenOver Then
        iPag = (iCol - 1) * (lfilas + 1) + lfila
    Else
        iPag = (lfila - 1) * (iCols + 1) + iCol
    End If
End With
'devolvemos el valor a la hoja de cálculo
InfoPag = iPag & " de " & iPags
Set direccion = Nothing
End Function

El resultado es el esperado, obtenemos en nuestras celdas la numeración de página respecto del total de páginas dentro del área de impresión.
Ojo, la función está definida bajo el supuesto que existe al menos un salto vertical y uno horizontal!!!. En caso contrario devolvería un error.
Para controlar esta situación habría que condicionar el código para el caso que .HPageBreaks.Count y .VPageBreaks.Count fueran cero...