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

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]

Muchas gracias,

Pero aun me sigue apareciendo el mensaje de argumento o llamada de procedimiento no valida "error de ejecucion 5"

A ver, prueba con el adjunto.

Crear tabla dinámica.rar

Aun sigue el Problema,

Te adjunto los print de pantala del error y los codigos VBA[ATTACH]34374.vB[/ATTACH][ATTACH]34375.vB[/ATTACH]

Lo siento pero yo no te puedo decir nada mas.

He abierto un tema nuevo solicitando colaboración.

Muchas Gracias,

Esta Atento a sus comentarios...

Sigue con atención este tema:

https://www.ayudaexcel.com/foro/macros-programacion-vba-10/solicitud-colaboracion-25935/