Macro para Tabla Dinámica

Favor necesito de su ayuda para crear una macro que genere una tabla dinámica,

Pero la información base siempre se esta modificado. Me explico solo se modifican las cantidades de lineas no de tipo, asi que le muestro un ejemplo:

Segmento - folio - numero - modelo - pedido - marca

Negocios - 70233 - 400000 - Nokia X8 - 135486 - Nokia

Empresas - 70324 - 500000 - Galaxy S2 - 456466 - Samsung

Bueno la tabla dinámica debe ir ordenada por segmento-pedido-modelo y cuenta de modelo.

Favor de su ayuda y recuerden que las cantidades de datos se modifican pero no los encabezados.

1 Respuesta

Respuesta
1

La siguiente macro, lee los datos empezando en la celda A1.

Borra las columnas K, L y M y te pone la tabla dinámica actualizada en la celda K2.

Sub tabla()
'Por.DAM
Columns("K:M").Clear
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _
    SourceData:=Range("A1:F" & Range("A" & Rows.Count).End(xlUp).Row), _
    Version:=xlPivotTableVersion12).CreatePivotTable _
    TableDestination:=Range("K2"), _
    TableName:="TD1", _
    DefaultVersion:=xlPivotTableVersion12
With ActiveSheet.PivotTables("TD1")
    .PivotFields("SEGMENTO").Orientation = xlRowField
    .PivotFields("PEDIDO").Orientation = xlRowField
    .AddDataField ActiveSheet.PivotTables("TD1"). _
        PivotFields("MODELO"), _
        "Cuenta de MODELO", xlCount
    .PivotFields("MODELO").Orientation = xlRowField
End With
End Sub

Saludos.Dante Amor
Si es lo que necesitas.

DAM, si funciona pero lo que pasa es que es mucha mas información y solo te envíe un poco de columnas. La tabla dinámica debe hacerla en otra hoja.

¿tienes algún correo? asi te envío el archivo completo y como debe quedar la tabla dinámica sin alterar la primera hoja de datos.

Envíame tu archivo, me dices en qué hoja están los datos y cuál hoja quieres el resultado.

En el asunto del correo escribe tu nombre de usuario y el título de esta pregunta.

Mi correo [email protected]
Saludos. Dante Amor

No pude abrir las macros de tu archivo, porque tiene password.

Pero utilicé la información, debes ejecutar la macro en la hoja "logística" y también debes tener una hoja llamada "Hoja1"

Esta es la nueva macro

Sub tabla()
'Por.DAM
Set h1 = Sheets("Hoja1")
h1.Cells.Clear
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _
    SourceData:=Range("A1:BL" & Range("A" & Rows.Count).End(xlUp).Row), _
    Version:=xlPivotTableVersion12).CreatePivotTable _
    TableDestination:=h1.Range("A3"), _
    TableName:="TD1", _
    DefaultVersion:=xlPivotTableVersion12
h1.Select
With ActiveSheet.PivotTables("TD1")
    .PivotFields("SEGMENTO").Orientation = xlRowField
    .PivotFields("PEDIDO").Orientation = xlRowField
    .AddDataField ActiveSheet.PivotTables("TD1"). _
        PivotFields("MODELO"), _
        "Cuenta de MODELO", xlCount
    .PivotFields("MODELO").Orientation = xlRowField
End With
End Sub

Saludos.Dante Amor
Si es lo que necesitas.

DAM.

Muchas gracias, me funciona perfecto en excel 2007, pero como debo hacerlo para que me funcione en 2003.

Favor, seria mi ultima duda.

nuevamente Muchas Gracias.

Busca en la macro esto

XlPivotTableVersion12

Y cámbialo por esto

XlPivotTableVersion10

(Aparece en 2 líneas)

Prueba y me comentas

Estimado,

me aparece error "438" y al poner depurar me salen estas lineas en amarillo

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _
SourceData:=Range("A1:BL" & Range("A" & Rows.Count).End(xlUp).Row), _
Version:=xlPivotTableVersion10).CreatePivotTable _
TableDestination:=h1.Range("A3"), _
TableName:="TD1", _
DefaultVersion:=xlPivotTableVersion10

Prueba con esta macro en ambas versión 2003 y 2007

Sub tabla()
'Por.DAM
Set h1 = Sheets("Hoja1")
h1.Cells.Clear
u = Range("A" & Rows.Count).End(xlUp).Row
ver = Application.Version
Select Case ver
    Case "14.0" 'Versión 2010
        ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _
            SourceData:=Range("A1:BL" & u), _
            Version:=xlPivotTableVersion14).CreatePivotTable _
            TableDestination:=h1.Range("A3"), _
            TableName:="TD1", _
            DefaultVersion:=xlPivotTableVersion14
    Case "12.0" 'Versión 2007
        ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _
            SourceData:=Range("A1:BL" & u), _
            Version:=xlPivotTableVersion12).CreatePivotTable _
            TableDestination:=h1.Range("A3"), _
            TableName:="TD1", _
            DefaultVersion:=xlPivotTableVersion12
    Case "11.0" 'Versión 2003
        ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _
            SourceData:=Range("A1:BL" & u)).CreatePivotTable _
            TableDestination:=h1.Range("A3"), _
            TableName:="TD1", _
            DefaultVersion:=xlPivotTableVersion10
End Select
h1.Select
With ActiveSheet.PivotTables("TD1")
    .PivotFields("SEGMENTO").Orientation = xlRowField
    .PivotFields("PEDIDO").Orientation = xlRowField
    .AddDataField ActiveSheet.PivotTables("TD1"). _
        PivotFields("MODELO"), _
        "Cuenta de MODELO", xlCount
    .PivotFields("MODELO").Orientation = xlRowField
End With
End Sub

Saludos.Dante Amor

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Como hacer una macro que cree una tabla dinámica

Tengo un problema con una macro que grabe que me crea una tabla dinámica, me daba error 5, entre al foro donde indicaban que era fallas de microsoft, que debía modificar un poco el código, cosa que hice, pero ahora me da un error diferente, 1004...
1 respuesta

Tabla dimamica ejecutada desde una macro

La pregunta eslasiguiete, como hacer que se ejecute una tabla dinamicadesdeunamacroque cree, ladesarrollocorrectamente pero me aparece un error y no mesale la tabla ya intente de todoperono he podido. Este es elerror que me genera ' ' Macro1 Macro '...
1 respuesta

Error en Macro que crea una Tabla Dinámica

Alguien me podría ayudar con lo siguiente, hice una macro que crea una tabla dinámica el problema es que me esta marcando error 1004 en tiempo de ejecución, referencia no valida ya revise en la página de Microsoft y seguí las instrucciones que ahí...
1 respuesta

Macro grabada que crea tabla dinámica

He intentado grabar en excel una macro que crea una tabla dinámica de una base de datos en el mismo excel pero al ejecutarla manda el error 5 en tiempo de ejecución SIEMPRE, ya busque en la página de Microsoft donde dicen como retocar el código para...
1 respuesta

Crear tabla dinámica con rango de datos variable

Debo crear una tabla dinámica que en la celda Z9, que tenga como Filtro del informe:"Type"; como Etiquetas de fila: "Pozo", "BHA No.", "Assembly name" y en sumatoria de valores "Suma de Lenght" y "Máx. De MD out". El rango de datos para crear la...
1 respuesta

Macro crea tabla dinámica

De la manera más amable solicito ayuda para crear una macro que me haga una tabla dinámica en uan hoja especifica. Lo que ocurre es que he intentado con unos códigos visto en internet y aquí en este mismo foro pero no me han servido me sale un error...
1 respuesta

Filtro en Tabla dinámica con referencia a un Rango

Quiero saber si me puedes ayudar en lo siguiente, trato de hacer una macro que me filtre una tabla dinámica pero para que me haga dicho filtro quiero que tome los datos que tengo en un rango de datos y que solo me mustre esos y todos los demás no, no...
1 respuesta

No se puede obtener la propiedad pivotetables

Elsa soy nuevo en todoExpertos y decidí registrarme al ver que me puedes ayudar. El tema es el siguiente tengo una macro que importa un .txt primero y luego con los datos obtenidos genera una tabla dinámica, lo primero que hago es grabarla y luego la...
1 respuesta

Generar tabla dinámica en diferentes archivos

Me encuentro en una situación donde necesito crear una tabla dinámica en otro archivo de excel, ya fui capaz de generar la tabla dinamica; el detalle es que uso diferentes archivos que cambian de nombre, pero mantienen el mismo formato mi pregunta va...
1 respuesta

Tabla dinámica en macro

Tengo inconvenientes en el funcionamiento de una macro que utilizo y que paso a comentarte Todos los meses corro una macro que toma datos de una planilla excel y los convierte en una tabla dinámica. La cantidad de registros se incrementa mes a mes y...
1 respuesta