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

Anonim

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