none
Macro Para Tablas Dinamicas RRS feed

  • Pregunta

  • Buenos días,

    he creado una Macro que genera una tabla dinamica a partir de un fichero que tienes siempre el mismo nombre y el mismo formato.  La he ejecutado varias veces con exito pero ultimamente en lugar de sumar los datos los CUENTA...

    este es el comando que utilizo

    Windows("Actividad.xls").Activate
        Range("E11").Select
        ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
            "Hoja1!R1C1:R830C42").CreatePivotTable TableDestination:="", TableName:= _
            "Tabla dinámica1", DefaultVersion:=xlPivotTableVersion10
        ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
        ActiveSheet.Cells(3, 1).Select
        ActiveSheet.PivotTables("Tabla dinámica1").AddFields RowFields:=Array( _
            "Documento Empresa", "Nombre Empresa", "Datos")
        With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Altas Voz CIF")
            .Orientation = xlDataField
            .Position = 1
        End With
        With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Altas Voz IAE")
            .Orientation = xlDataField
            .Position = 2
        End With
        With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Altas LPD´s")
            .Orientation = xlDataField
            .Position = 3
        End With

    .......

    Muchas gracias,

    saludos

    Alessio

    jueves, 1 de julio de 2010 11:58