Macros no crea tabla dinamica

[Sirena]

hola amigos, verán he creado una macros que debería crear una tabla dinámica por si sola, ya que grabe todo el procedimiento, sin embargo cuando la ejecuto, me pide que ingrese la lista de campos que quiero que aparezcan y termino haciendo todo yo, finalmente lo único que esta macros esta haciendo es como un enlace directo al botón "tablas dinámicas" y seria absurdo crear una macros solo para eso, en ese caso me voy yo misma a "..insertar/tabla dinámica" ayuda por favor no se que hice mal, les dejo el código

Sub Macro2()

'

' Macro2 Macro

'

'

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

"Hoja1!F1C1:F1048576C18", Version:=xlPivotTableVersion12).CreatePivotTable _

TableDestination:="", TableName:="", _

DefaultVersion:=xlPivotTableVersion12

ActiveWorkbook.ShowPivotTableFieldList = True

With ActiveSheet.PivotTables("").PivotFields("ID de candidato")

.Orientation = xlRowField

.Position = 1

End With

With ActiveSheet.PivotTables("").PivotFields("Nombres")

.Orientation = xlRowField

.Position = 2

End With

With ActiveSheet.PivotTables("").PivotFields("Primer apellido")

.Orientation = xlRowField

.Position = 3

End With

With ActiveSheet.PivotTables("").PivotFields("Genero")

.Orientation = xlRowField

.Position = 4

End With

ActiveSheet.PivotTables("").RowAxisLayout xlTabularRow

Columns("A:A").ColumnWidth = 11

End Sub

[celim]

seria bueno si adjuntas el ejemplo en un archivo de excel. para ayudarte..

saludos

Celim

[Sirena]

le adjunto la base de datos de prueba

prueba.rarFetching info...

[celim]

Hola Sirena.

he creado este código para tu problema.. copia en el módulo de tu libro y ejecuta

Sub TD()

Dim TData As PivotCache

Dim prueba As PivotTable


Dim Hoja As Worksheet

Application.ScreenUpdating = False 'refresco

On Error Resume Next

Application.DisplayAlerts = False 'para que no de alerta


Sheets("Infor").Delete

On Error GoTo 0

Application.DisplayAlerts = True

Set Hoja = Worksheets.Add 'creación de hoja

ActiveSheet.Name = "Infor"


Sheets("Hoja1").Select 'los datos se encuentran en la hoja cuyo nombre es "Hoja1"

Range("A1").CurrentRegion.Select 'selecciona toda la tabla

Set TData = ThisWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=Selection)

Set tlp = Hoja.PivotTables.Add(PivotCache:=TData, tabledestination:=Hoja.Range("A1"))

With tlp

    .PivotFields("ID de candidato").Orientation = xlRowField 'él orden como va los datos

    .PivotFields("Nombres").Orientation = xlRowField

      .PivotFields("Primer apellido").Orientation = xlRowField

    .PivotFields("Genero").Orientation = xlRowField


  .ShowDrillIndicators = False

  .RowAxisLayout xlTabularRow

  .PivotFields("ID de candidato").Subtotals = Array(False, False, False, False, False, False, False, False, False, False, False, False)

  .PivotFields("Nombres").Subtotals = Array(False, False, False, False, False, False, False, False, False, False, False, False)

  .PivotFields("Primer apellido").Subtotals = Array(False, False, False, False, False, False, False, False, False, False, False, False)

  '.PivotFields("Primer apellido").Subtotals = Array(False, False, False, False, False, False, False, False, False, False, False, False)

End With

Hoja.Activate

Columns("A:A").ColumnWidth = 20

Columns("B:B").ColumnWidth = 20

Columns("C:C").ColumnWidth = 20

Columns("D:D").ColumnWidth = 20

Sheets("Hoja1").Activate

Range("A1").Select

Hoja.Activate

Set tlp = Nothing

Set TData = Nothing


End Sub

[/CODE]

revisa si es lo que buscas

[celim]

ahia el archivo adjunto

prueba1.zipFetching info...

[Sirena]

muchas gracias celim me sirvio muchisimo, ahora, se puede también dar formato a la misma tabla dinámica desde la macros? me encantaria saber como

[celim]

en eso si que ya debes trabajr con la grabadora de macros

[Sirena]

okey, muchas gracias

[pajuma]

agrega esta linea de codigo para darle un formato.

tlp.Format xlReport2

Rem " si no te gusta usa esta tlp.Format xlReport6"

asi quedaria.

Set tlp = Hoja.PivotTables.Add(PivotCache:=TData, TableDestination:=Hoja.Range("A1"))

tlp.Format xlReport2

[Sirena]

Pajuma, lo probé y no funciona, me sale error de automatizacion

[pajuma]

alli esta el adjunto.

prueba.rarFetching info...

[Sirena]

muchas gracias, se puede también mediante esa misma forma ajustar el ancho de las columnas? y quitarle el subtotal y total general?

te lo agradecería mucho

[pajuma]

para quitarle el total a tu ejemplo solo añadir esta linea de codigo:

.ColumnGrand = False

despues de esta linea de codigo

.PivotFields("Genero").Orientation = xlRowField