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
