Saltar al contenido
View in the app

A better way to browse. Learn more.
Ayuda Excel

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

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.

Ir al listado de temas

Configure browser push notifications
Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.