Programadores de Colombia

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