Codigo VBA

johnc · el 29 de octubre

estoy tratando de hacer una macro que haga una tabla dinamica con rangos Dinamicos esta es la formula,

Pero al Ejecutar la macro

Me aparece un error que dice arugmento o llamada a procedimiento no valida, que estoy haciendo mal? de su ayuda Por Favor........

Dejo el archivo adjunto, y por favor indicarme cual es mi error.

Gracias.

Libro1.rar

Antoni · el 30 de octubre

Esta macro te crea la tabla dinámica, pero en una hoja nueva.

Sub CrearTablaDinámica()    

    Sheets.Add

    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _

        "Rutinas!A1:Q" & Sheets("Rutinas").Range("A" & Rows.Count).End(xlUp).Row, _

        Version:=xlPivotTableVersion14).CreatePivotTable _

        TableDestination:=ActiveSheet.Name & "!R1C1", TableName:="FOTO", _

        DefaultVersion:=xlPivotTableVersion14

    Cells(2, 1).Select


    With ActiveSheet.PivotTables("FOTO").PivotFields("Rango E2E")

        .Orientation = xlColumnField

        .Position = 1

    End With


    With ActiveSheet.PivotTables("FOTO").PivotFields("Agencia")

        .Orientation = xlRowField

        .Position = 1

    End With


    With ActiveSheet.PivotTables("FOTO").PivotFields("Gr_trab")

        .Orientation = xlPageField

        .Position = 1

    End With


    ActiveSheet.PivotTables("FOTO").AddDataField ActiveSheet.PivotTables _

        ("FOTO").PivotFields("ROL"), "Suma de ROL", xlSum

    ActiveSheet.PivotTables("FOTO").PivotFields("Suma de ROL"). _

        Orientation = xlHidden

    ActiveSheet.PivotTables("FOTO").AddDataField ActiveSheet.PivotTables _

        ("FOTO").PivotFields("Tica"), "Cuenta de Tica", xlCount



End Sub



[/CODE]