Home Foros FOROS PARA AYUDAROS ENTRE VOSOTROS. EL PROFESOR AQUÍ NO RESPONDE Foro de Excel Macros para crear tabla dinámica con reciente error '5'

Macros para crear tabla dinámica con reciente error '5'

Viendo 1 entrada (de un total de 1)
  • Autor
    Entradas
  • #5395

    Hola Chicos, hace algún tiempo atrás hice el siguiente procedimiento para crear una tabla dinámica, me funciona bien y de un momento a otro sin modificar nada me da error ‘5’ en tiempo de ejecución en la parte que resalto en negrita:

    Sub Crear_dinamica()

     

    Range(«A1:J1»).Select

    Range(Selection, Selection.End(xlDown)).Select

     

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

            Selection, Version:=6).CreatePivotTable TableDestination:= _

            «Asistencia!R1C1″, TableName:=»TablaDinámica1», DefaultVersion:=6

     

    Sheets(«KPI’s»).Select

    Cells(1, 1).Select

     

    With ActiveSheet.PivotTables(«TablaDinámica1»).PivotFields(«Registro»)

    .Orientation = xlPageField

    .Position = 1

    End With

    With ActiveSheet.PivotTables(«TablaDinámica1»).PivotFields(«Estado»)

    .Orientation = xlRowField

    .Position = 1

    End With

    With ActiveSheet.PivotTables(«TablaDinámica1»).PivotFields(«Nivel»)

    .Orientation = xlRowField

    .Position = 2

    End With

    ActiveSheet.PivotTables(«TablaDinámica1»).AddDataField ActiveSheet.PivotTables( _

    «TablaDinámica1»).PivotFields(«Rut Nº «), «Cuenta de Rut Nº «, xlCount

    End Sub

    hay alguien que me ayude por favor

Viendo 1 entrada (de un total de 1)
  • Debes estar registrado para responder a este debate.