............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Macro de una tabla dinamica en VBA de un libro a otro

Ver el tema anterior Ver el tema siguiente Ir abajo

Macro de una tabla dinamica en VBA de un libro a otro

Mensaje por David Morales el Miér Jul 27, 2016 2:18 pm

Hola, compañeros, espero me puedan ayudar, trato de crear una tabla dinámica mediante una macro, que me permita traer datos desde otra ubicación (otro libro) pero al ejecutarla me marca este error  "No se puede obtener la propiedad de PivotTables de la clase WorkSheets" "Error 1004"

eh intentado varios códigos que publican aquí en la pagina, pero no eh tenido exito, espero pedan ayudarme

Gracias

Sub TablaBD()
'Tabla dinamica BD

   Windows("06_Detalle Prueba5.xlsm").Activate
     Range("I2").Select
   Workbooks("06_Detalle Prueba5.xlsm").Worksheets("Hoja5").PivotTables( _
       "Tabla dinámica6").PivotCache.CreatePivotTable TableDestination:= _
       "", TableName:="Tabla dinámica6", _
       DefaultVersion:=xlPivotTableVersion14

 
   With ActiveSheet.PivotTables("Tabla dinámica6").PivotFields("OC")
       .Orientation = xlRowField
       .Position = 1
   End With
       With ActiveSheet.PivotTables("Tabla dinámica6").PivotFields("NÚMERO OC")
       .Orientation = xlRowField
       .Position = 1
   End With
   ActiveSheet.PivotTables("Tabla dinámica6").AddDataField ActiveSheet.PivotTables _
       ("Tabla dinámica6").PivotFields("COMPROMETIDO"), "Cuenta de COMPROMETIDO", _
       xlCount
   ActiveSheet.PivotTables("Tabla dinámica6").AddDataField ActiveSheet.PivotTables _
       ("Tabla dinámica6").PivotFields("RECIBIDO"), "Cuenta de RECIBIDO", xlCount
   ActiveWindow.SmallScroll ToRight:=2
   Range("J1").Select
   With ActiveSheet.PivotTables("Tabla dinámica6").PivotFields( _
       "Cuenta de COMPROMETIDO")
       .Caption = "Suma de COMPROMETIDO"
       .Function = xlSum
   End With
   Range("K1").Select
   With ActiveSheet.PivotTables("Tabla dinámica6").PivotFields( _
       "Cuenta de RECIBIDO")
       .Caption = "Suma de RECIBIDO"
       .Function = xlSum
   End With
   Range("E1").Select
End Sub
avatar
David Morales

Masculino Cantidad de envíos : 1
Edad : 28
Ciudad - Pais : México
Version de Excel : 2010 y 2016
Fecha de inscripción : 26/07/2016

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.