Si está trabajando en datos de ventas que se actualizan diariamente. Para rastrear las ventas completas en la última fecha ingresada en los datos usando la tabla dinámica. En este artículo aprenderemos cómo usar la tabla dinámica para seleccionar la fecha más nueva en la base de datos usando macros.

A continuación se muestra la instantánea de los datos que tenemos:

image 1

Para encontrar automáticamente la nueva fecha y las ventas, necesitamos hacer pivot Use la tecla de acceso directo ALT + N + V

image 2

Necesitamos seguir los pasos a continuación:

Haga clic en la pestaña Desarrollador. Desde el grupo Código, seleccione Visual Basic

image 3

  • Ingrese el siguiente código en el módulo de la hoja de trabajo

Sub LatestDatePivot()

Dim pfiPivFldItem As PivotItem

Dim dtmDate As Date

With Worksheets(“Sheet1”).PivotTables(1)

.PivotCache.Refresh

.ClearAllFilters

With .RowRange

dtmDate = Evaluate(“Max(IF(ISNUMBER(“ & .Address(0, 0) & “),” & .Address(0, 0) & “,))”)

End With

For Each pfiPivFldItem In .PivotFields(“Dates”).PivotItems

If pfiPivFldItem.Value = “(blank)” Then

pfiPivFldItem.Visible = False

Else

pfiPivFldItem.Visible = (Cdate(pfiPivFldItem.Value) = CLng(dtmDate))

End If

Next pfiPivFldItem

End With

End Sub

image 4

Después de copiar el código, debe ejecutar la macro usando ALT + F8 * y seleccionar la macro.

  • O puede insertar una forma y asignar la macro; obtendremos la última fecha

image 5

  • Para probar el código; si cambiamos la fecha existente; obtendremos resultados en consecuencia

image 6

Para trabajar este código dinámicamente, todo lo que necesita hacer es seguir los pasos a continuación:

Presione CTRL + F3 para abrir Administrador de nombres En Se refiere al cuadro, ingrese la fórmula como

* = OFFSET (Hoja1! $ A $ 1 ,,, COUNTA (Hoja1! $ A: $ A), 2)

image 7

Haga clic en el botón Aceptar Ahora estamos listos para usar este rango con nombre en la tabla dinámica Haga clic en la tabla dinámica Desde la cinta Analizar> Haga clic en Cambiar fuente de datos

image 8

Presione el atajo F3 para iniciar el nombre de pegado existente; seleccione LatestDate Haga clic en el botón Aceptar dos veces