Cómo seleccionar la fecha más reciente de la tabla dinámica usando VBA en Microsoft Excel

Tabla de contenido

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:

  • Para encontrar automáticamente la nueva fecha y las ventas, necesitamos hacer pivote
  • Utilice la tecla de método abreviado ALT + N + V

Necesitamos seguir los pasos a continuación:

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

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


Sub LatestDatePivot ()

Dim pfiPivFldItem como PivotItem

Dim dtmDate As Date

Con hojas de trabajo ("Hoja1"). Tablas dinámicas (1)

.PivotCache.Refresh

.ClearAllFilters

Con .RowRange

dtmDate = Evaluar ("Max (IF (ISNUMBER (" & .Address (0, 0) & ")," & .Address (0, 0) & ",))")

Terminar con

Para cada pfiPivFldItem en .PivotFields ("Fechas"). PivotItems

Si pfiPivFldItem.Value = "(en blanco)" Entonces

pfiPivFldItem.Visible = Falso

Demás

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

Terminara si

Siguiente pfiPivFldItem

Terminar con

End Sub

  • Después de copiar el código, debe ejecutar la macro usando ALT + F8 & seleccione la macro.
  • O puede insertar una forma y asignar la macro; obtendremos la última fecha

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

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

  • Presione CTRL + F3 para abrir el Administrador de nombres
  • En el cuadro Se refiere a, ingrese la fórmula como
  • = COMPENSACIÓN (Hoja1! $ A $ 1 ,,, CONTAR (Hoja1! $ A: $ A), 2)

  • 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

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

  • Para probar podemos ingresar la nueva fecha
  • Todo lo que tenemos que hacer es hacer clic en la forma rectangular para ejecutar la macro.

De esta manera, podemos seleccionar la última fecha de la tabla dinámica usando VBA.

Descargar: cómo seleccionar la fecha más reciente de la tabla dinámica usando VBA

Va a ayudar al desarrollo del sitio, compartir la página con sus amigos

wave wave wave wave wave