Macro para crear y luego eliminar tabla dinámica

Agradezco si alguien me puede colaborar diciéndome como puedo modificar una macro para que me permita crear una hoja dinámica, seleccionar los datos de esta, pasarlos a otra hoja y luego eliminarlos, modifique el código para que me permita crear la tabla dinámica cada vez que lo necesito, sin embargo no he podido saber como modificarlo para eliminar la tabla, ya que al no encontrar la hoja me sale un error 9, y la eliminar esa fila donde esta el error, me elimina la hoja de donde tengo la información que requiero. Muchas gracias.

La Macro es la siguiente: Al final en negrilla esta la parte que requiere modificar para que me elimine la tabla dinámica, o creo yo que es donde se debe modificar.

Sub Pedido_CR()
'
' Pedido_CR Macro
' Lista los pedidos cliente recoge para seleccionar los que se van a despachar

...
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Cliente Recoge!R4C2:R539C25", Version:=xlPivotTableVersion14). _
CreatePivotTable TableDestination:="", TableName:= _
"Tabla dinámica1", DefaultVersion:=xlPivotTableVersion14
Cells(3, 1).Select
With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("numero")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("nombre_cliente")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("fecha_pedido")
.Orientation = xlRowField
.Position = 3
End With
ActiveSheet.PivotTables("Tabla dinámica1").AddDataField ActiveSheet.PivotTables _
("Tabla dinámica1").PivotFields("cantidad_pendiente"), _
"Suma de cantidad_pendiente", xlSum
With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("CLIENTE RECOGE")
.Orientation = xlPageField
.Position = 1
End With
ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("CLIENTE RECOGE"). _
ClearAllFilters
ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("CLIENTE RECOGE"). _
CurrentPage = "SI"
With ActiveSheet.PivotTables("Tabla dinámica1")
.InGridDropZones = True
.RowAxisLayout xlTabularRow
End With
Range("A5").Select
ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("numero").Subtotals = _
Array(False, False, False, False, False, False, False, False, False, False, False, False)
Range("B6").Select
ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("nombre_cliente"). _
Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
False, False)
Range("A5:D5").Select
Range(Selection, Selection.End(xlDown)).Select
Range("A5:D76").Select
Selection.Copy
Sheets("Cliente Recoge").Select
ActiveWindow.LargeScroll ToRight:=3
ActiveWindow.SmallScroll ToRight:=-3
Range("AA5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Hoja1").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
End Sub

1 Respuesta

Respuesta
1

El problema lo tienes porque no sabes si será Hoja1 la que tienes que borrar, puede ser hoja2, hoja3, etc. Para solucionarlo, guarda el nombre de la hoja al crearla y después usa este nombre para seleccionar la hoja, antes de borrarla.

Asi:

Sub Pedido_CR()
'
' Pedido_CR Macro
' Lista los pedidos cliente recoge para seleccionar los que se van a despachar
Sheets.Add
'Guarda el nombre de la hoja creada'
h = ActiveSheet.Name
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Cliente Recoge!R4C2:R539C25", Version:=xlPivotTableVersion14). _
CreatePivotTable TableDestination:="", TableName:= _
"Tabla dinámica1", DefaultVersion:=xlPivotTableVersion14
Cells(3, 1).Select
With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("numero")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("nombre_cliente")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("fecha_pedido")
.Orientation = xlRowField
.Position = 3
End With
ActiveSheet.PivotTables("Tabla dinámica1").AddDataField ActiveSheet.PivotTables _
("Tabla dinámica1").PivotFields("cantidad_pendiente"), _
"Suma de cantidad_pendiente", xlSum
With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("CLIENTE RECOGE")
.Orientation = xlPageField
.Position = 1
End With
ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("CLIENTE RECOGE"). _
ClearAllFilters
ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("CLIENTE RECOGE"). _
CurrentPage = "SI"
With ActiveSheet.PivotTables("Tabla dinámica1")
.InGridDropZones = True
.RowAxisLayout xlTabularRow
End With
Range("A5").Select
ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("numero").Subtotals = _
Array(False, False, False, False, False, False, False, False, False, False, False, False)
Range("B6").Select
ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("nombre_cliente"). _
Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
False, False)
Range("A5:D5").Select
Range(Selection, Selection.End(xlDown)).Select
Range("A5:D76").Select
Selection.Copy
Sheets("Cliente Recoge").Select
ActiveWindow.LargeScroll ToRight:=3
ActiveWindow.SmallScroll ToRight:=-3
Range("AA5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' Seleccionamos la hoja creada'
Sheets(h).Select
'Desactivamos los mensajes para que no muestre el de que se va a borrar una hoja'
Application.DisplayAlerts = False
'Borramos la hoja, he dejado la instrucción que tenías en tu código'
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
'Activamos los mensajes otra vez'
Application.DisplayAlerts = True
End Sub

Si te ha valido la respuesta.

Mejor de esta forma, así ves los comentarios:

Sub Pedido_CR()
' Pedido_CR Macro'
' Lista los pedidos cliente recoge para seleccionar los que se van a despachar'
'Añadimos la hoja'
Sheets.Add
'Guarda el nombre de la hoja creada'
h = ActiveSheet.Name
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Cliente Recoge!R4C2:R539C25", Version:=xlPivotTableVersion14). _
CreatePivotTable TableDestination:="", TableName:= _
"Tabla dinámica1", DefaultVersion:=xlPivotTableVersion14
Cells(3, 1).Select
With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("numero")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("nombre_cliente")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("fecha_pedido")
.Orientation = xlRowField
.Position = 3
End With
ActiveSheet.PivotTables("Tabla dinámica1").AddDataField ActiveSheet.PivotTables _
("Tabla dinámica1").PivotFields("cantidad_pendiente"), _
"Suma de cantidad_pendiente", xlSum
With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("CLIENTE RECOGE")
.Orientation = xlPageField
.Position = 1
End With
ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("CLIENTE RECOGE"). _
ClearAllFilters
ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("CLIENTE RECOGE"). _
CurrentPage = "SI"
With ActiveSheet.PivotTables("Tabla dinámica1")
.InGridDropZones = True
.RowAxisLayout xlTabularRow
End With
Range("A5").Select
ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("numero").Subtotals = _
Array(False, False, False, False, False, False, False, False, False, False, False, False)
Range("B6").Select
ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("nombre_cliente"). _
Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
False, False)
Range("A5:D5").Select
Range(Selection, Selection.End(xlDown)).Select
Range("A5:D76").Select
Selection.Copy
Sheets("Cliente Recoge").Select
ActiveWindow.LargeScroll ToRight:=3
ActiveWindow.SmallScroll ToRight:=-3
Range("AA5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' Seleccionamos la hoja creada'
Sheets(h).Select
'Desactivamos los mensajes para que no muestre el de que se va a borrar una hoja'
Application.DisplayAlerts = False
'Borramos la hoja, he dejado la instrucción que tenías en tu código'
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
'Activamos los mensajes otra vez'
Application.DisplayAlerts = True
End Sub

Marcial muchísimas gracias por tu colaboración, Le di muchas vueltas pero al final me genero la macro sin ningún problema.

Te cuento también que en la solución que me diste solo falto incluir que al crear la tabla dinámica, se debía definir que la tabla de destino era la "n".

De nuevo muchas gracias por tu colaboración tan valiosa y lo pronto que fue la misma! :)

La pregunta no admite más respuestas

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

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

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 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

Error en macro con tabla dinamica

Ok te explico el problema hice una macro donde se genera una tabla dinamica en el lugar de pagina de la tabla dinamica utilizo una variable que la da el usuario por medio de un inputbox le solicita el dato pero como la variable es numerica puede que...
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

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

Agrupar y totalizar datos en excel

Necesito agrupar y sumar los datos de una tabla y copiarlos a otra en lo posible en otra hoja dentro del mismo libro. Ejemplo tengo la tabla 1: Mes importe enero $100 enero $50 febrero $25 marzo $100 enero $100 febrero $25 abril $200 mayo $150 mayo...
1 respuesta