Macro tabla dinamica

Buenos días me pregunto si me podrías ayudar con una duda lo que pas a es que tengo un código que me genera una tabla dinmica en una hoja nueva y lo que quiero es que me haga la tabla dinámica en la misma hoja y no en una nueva pero no se como referenciar la hoja en el código. Este es el código
Wend
Rango = "DATOS!R1C1:R" + CStr(cont - 1) + "C5"
Range("A1").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
Rango).CreatePivotTable TableDestination:="", TableName:= _
"Tabla dinámica1"
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("Tabla dinámica1").AddFields RowFields:="Escuela", _
ColumnFields:="Item"
ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Cantidad").Orientation _
= xlDataField
ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Grupo").Orientation = xlPageField
.Position = 1
Cells.Select
Rows("4:4").Select
Selection.RowHeight = 102.6
Rows("4:4").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Cells.Select
Cells.EntireColumn.AutoFit
With Selection.Font
.Name = "Arial"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Cells.EntireColumn.AutoFit
Range("A1").Select
End Sub

3 Respuestas

Respuesta
1

OJO esta pregunta ya fue respondida, sin embargo la volveré a responder.

Buenas noches amigo

Para que la tabla se cree en la misma pagina debería bastar con indicar la hoja y la celda de destino, quedaría algo como esto:
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
Rango).CreatePivotTable TableDestination:="DATOS!R2C8", TableName:= _
"Tabla dinámica1"

Nota: "R2C8" equivale a la celda "H2"

te coloque la otra pregunta repetida como excelente pero sin embargo no me funciona y todavía no entiendo por que.

Hagamos algo, enviame el archivo a la dirección [email protected] para revisarlo.

Respuesta
1

Para crearla en la misma hoja debes agregar la ubicación en la hoja donde estés trabajando en tu código, me explico

--Tú código-----

Wend
Rango = "DATOS!R1C1:R" + CStr(cont - 1) + "C5"
Range("A1").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
Rango).CreatePivotTable TableDestination:="Hoja1!R1C7", TableName:= _
"Tabla dinámica1"

.. Resto del código

Nota que agregue el Hoja1! R1C7, donde se encuentra el nombre de la hoja y R1C7 significan el número de la fila R1 y el número de la columna C7, "R1C7" hace referencia a la celda G1.

Respuesta
1

Tienes que cambiar el parámetro TableDestination a algo como esto:

TableDestination:="[Libro1]Hoja1!R1C1"

En este caso en la hoja actual en A1. Libro y hoja serán los que tengas en tu caso.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

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

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

Generar Tablas Dinámicas con Macros

Como estas yo de nuevo con otra pregunta... Dentro de la Tremenda macro que estoy haciendo del cual tu participas ayudándome, tengo que generar una tabla dinámica, resulta que durante el día genero varias tablas dinámicas y la macro esta editada de...
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

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

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 -...
1 respuesta

Tablas dinámicas con dos criterios

He leído muchas de tus respuestas (una parecida a la cuestión que te formulo) y poco a poco me voy iniciando en el macromundo. Me encuentro con que precisaría construir una macro que generase una tabla dinámica de acuerdo con los siguientes...
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

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