Ejecutar macro cuando se actualice una tabla dinámica

[Juan Colqui]

Estimados Expertos buenas tardes:

Estuve trabajando en una tabla dinámica que se actualiza mes a mes, según le indico en la segmentación de datos. Pero quisiera que se ejecute una macro al actualizar esta tabla dinámica, ¿con que evento puedo actualizarla?

He usado el Evento Worksheet_SelectionChange(ByVal Target As Range)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim NomBRE As Workbook, AUx As Integer
    If Not Intersect(Target, Range("R9")) Is Nothing Then
        AUx = ContarNPC(Month(Range("O3")))
        Range("S9").FormulaR1C1 = "= " & [AUx] & " / R[3]C[1]"
    End If
End Sub

Pero a pesar que la celda R9 se actualiza al actualizar la tabla dinámica (ya que esta igualada un valor de la tabla), la macro no se ejecuta, a menos que coloque el puntero del mouse en la celda R9 y le haga click

¿Hay otra evento que se pueda usar, para que se ejecute al actualizar la tabla dinámica?, muchas gracias por su respuesta

Juan Colqui

 

Editado el el 8 de octubre por Juan Colqui

[Héctor Miguel]

hace 5 horas, Juan Colqui dijo:

¿Hay otra evento que se pueda usar, para que se ejecute al actualizar la tabla dinámica?

lo mismo que te puse "alla":

1) el evento '_SelectionChange' se dispara cada que se cambia la seleccion en la hoja (celda o rango)
2) el evento que se dispara cuando se cambia una entrada en celdas es '_Change'
3) el evento que se dispara cuando la celda 'actualiza' por efectos de formula es '_Calculate'

4) la propiedad '.FormulaR1C1' depende de la celda activa al momento de depositarla en celdas
5) ese desplazamiento de "R[3]C[1]" hace referencia a 3 filas abajo y 1 columna a la derecha de... 'la celda activa'
6) esa celda activa pudiera NO ser la que esperas (?)

7) en esa instruccion: 'Aux = ContarNPC(...'
- que es 'ContarNPC(...' ?, una funcion personalizada ?, que toma y que devuelve ?