Tabla Dinámica para el Análisis de las Preferencias en el Consumo de los Clientes

Descripción

Dado que las tablas dinámicas facilitan el análisis de una gran cantidad de información al mostrarla consolidada por categorías, podemos hacer uso de éstas para el control de servicios / procesos y productos.

Aplicación

 Descargar Tabla Dinámica Pedidos

En esta ocasión se creará una macro que permita analizar la información de los diferentes pedidos que puedan realizar los clientes en un restaurante que tiene sucursales en los distintos distritos de Lima.

(Para mayor visualización de la imagen, hacer click en la misma)

Con esta tabla se podrá obtener las estadísticas de las preferencias de los consumidores (respecto a los platos ofrecidos), así como también permitirá conocer como varía el nivel de consumo a lo largo de la semana y por distritos.

(Para mayor visualización de la imagen, hacer click en la misma)

A continuación se presenta la programación del archivo adjunto:

Sub CrearTabla()
Dim WSD1 As Worksheet
Dim WSD2 As Worksheet
Dim PTCache As PivotCache
Dim PT As PivotTable
Dim PRange As Range
Dim FinalRow As Long

Set WSD1 = Worksheets("Pedidos")

For Each PT In WSD1.PivotTables
PT.TableRange2.Clear
Next PT

Set WSD2 = Worksheets("Registro Pedidos")
FinalRow = WSD2.Cells(Rows.Count, 1).End(xlUp).Row
Set PRange = WSD2.Cells(1, 1).Resize(FinalRow, 4)

Sheets("Registro Pedidos").Select

Set PTCache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=PRange.Address)

Set PT = PTCache.CreatePivotTable(TableDestination:=Worksheets("Pedidos").Range("B3"), TableName:="CuadroPedidos")

PT.Format xlReport4

PT.ManualUpdate = True

PT.AddFields RowFields:=Array("Fecha"), ColumnFields:=Array("Pedido"), PageFields:=Array("Distrito")

With PT.PivotFields("Departamento")
.Orientation = xlDataField
.Function = xlCount
.Position = 1
.NumberFormat = "#,##0"
.Name = "Depar"
End With

PT.ManualUpdate = False

Sheets("Pedidos").Select

End Sub