Estudiante de análisis y programación de computadores
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Sub Consulta1()
Dim PCache As PivotCache
Dim Tconsulta As PivotTable
'Variables para Eliminar subtotales de la tabla dinámica Dim pt As PivotTable
Dim pf As PivotField
'No ver los cambios en tiempo real 'Deshabilitar la actualización en pantalla y el despliegue de alertas Application.ScreenUpdating = False
Application.DisplayAlerts = False
'Eliminar Hoja TablaDinamica (Si Existe)
On Error Resume Next
Worksheets("consulta").Delete
'PASO 1:Insertar una nueva hoja de Excel para poner la tabla dinámica Worksheets.Add(Before:=ActiveSheet).Name = "consulta"
'PASO 2: Crear el Pivot Cache con la Tabla de Excel que contiene los datos
Set PCache = ActiveWorkbook.PivotCaches.Create( _
SourceType:=xlDatabase, SourceData:=Sheets("Interfacility").Range("A1").CurrentRegion)
'PASO 3: Crear la Tabla Dinámica en blanco'Cambiar referencia a donde se insertará Tabla Dinámica: "TablaDinamica!R3C1"
'Cambiar nombre de la Tabla Dinámica (debe ser único): "Tabla dinámica1" Set Tconsulta = PCache.CreatePivotTable( _
TableDestination:="consulta!R3C1", TableName:="Tabla dinámica1")
'PASO 4: Insertar columnas a la tabla dinámica(en este caso no se requieren)
'With TDinamica.PivotFields("NombredelCampo") ' .Orientation = xlColumnField ' .Position = 1 'End With 'PASO 5: Insertar filas a la tabla dinámica With Tconsulta.PivotFields("ORIGEN")
.Orientation = xlRowField
.Position = 1
End With
With Tconsulta.PivotFields("DESTINO")
.Orientation = xlRowField
.Position = 2
End With
With Tconsulta.PivotFields("PRODUCTO")
.Orientation = xlRowField
.Position = 3
End With
With Tconsulta.PivotFields("TIPO")
.Orientation = xlRowField
.Position = 4
End With
With Tconsulta.PivotFields("PERIODO")
.Orientation = xlRowField
.Position = 5
End With
With Tconsulta.PivotFields("CANTIDAD")
.Orientation = xlRowField
.Position = 6
End With