Saltar al contenido

Codigo VBA

publicado

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

Featured Replies

publicado

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]

publicado
  • Autor

Muchas gracias,

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

publicado
  • Autor

Aun sigue el Problema,

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

post-115058-145877005969_thumb.jpg

post-115058-14587700597_thumb.jpg

publicado

Lo siento pero yo no te puedo decir nada mas.

He abierto un tema nuevo solicitando colaboración.

publicado
  • Autor

Muchas Gracias,

Esta Atento a sus comentarios...

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.