Buen día, espero me puedan ayudar. Recién estoy empezando con las Macros, grabe una macro para realizar un reporte con 2 tablas dinámicas de diferentes base de datos en una misma hoja, para que la macro me corriera le elimine el nombre de la hoja, dejándolo en blanco (TableDestination:=""), y la tabla dinámica la renombre para que me ponga una en especifico (TableName:=Crédito ACI By DCH y TableName:=Contado ACI By DCH). La macro corre sin problemas pero en vez de crearme el reporte en una misma hoja, me crea 2 hojas diferentes. Pienso que el error esta al momento de crear la 2da tabla dinámica que en el nombre de la hoja no le pongo un nombre en especifico por eso me crea otra hoja diferente a la primer tabla ya que le dejo igual (TableDestination:=""), quiero que la siguiente tabla dinámica la inserte en el Rango "E1" Anexo Macro y espero me puedan ayudar, de antemano agradezco la ayuda! Sub FLUJOACISA() ' ' FLUJOACISA Macro ' ' ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="CXP" _ , Version:=xlPivotTableVersion10).CreatePivotTable TableDestination:= _ "", TableName:="Crédito ACI By DCH", DefaultVersion:= _ xlPivotTableVersion10 ActiveWorkbook.ShowPivotTableFieldList = True With ActiveSheet.PivotTables("Crédito ACI By DCH").PivotFields("PROVEEDOR") .Orientation = xlRowField .Position = 1 End With With ActiveSheet.PivotTables("Crédito ACI By DCH").PivotFields("NUM DE FACT.") .Orientation = xlRowField .Position = 2 End With ActiveSheet.PivotTables("Crédito ACI By DCH").AddDataField ActiveSheet.PivotTables _ ("Crédito ACI By DCH").PivotFields("A PAGAR"), "Cuenta de A PAGAR", xlCount With ActiveSheet.PivotTables("Crédito ACI By DCH").PivotFields("A PAGAR") .Orientation = xlPageField .Position = 1 End With ActiveSheet.PivotTables("Crédito ACI By DCH").PivotFields("A PAGAR").CurrentPage _ = "(All)" With ActiveSheet.PivotTables("Crédito ACI By DCH").PivotFields("A PAGAR") .PivotItems("0").Visible = False .PivotItems("(blank)").Visible = False End With ActiveSheet.PivotTables("Crédito ACI By DCH").PivotFields("A PAGAR"). _ EnableMultiplePageItems = True Columns("D:D").ColumnWidth = 2.29 ActiveSheet.PivotTables("Crédito ACI By DCH").PivotFields("A PAGAR").Caption = _ "FACTURAS A CREDITO" Range("A1").Select With Selection.Font .Name = "Calibri" .Size = 14 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 .ThemeFont = xlThemeFontMinor End With Selection.Font.Bold = True With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Range("A6").Select With ActiveSheet.PivotTables("Crédito ACI By DCH").PivotFields("Cuenta de A PAGAR" _ ) .Caption = "Suma de A PAGAR" .Function = xlSum .NumberFormat = "_-$* #,##0.00_-;-$* #,##0.00_-;_-$* ""-""??_-;_-@_-" End With ActiveSheet.PivotTables("Crédito ACI By DCH").PivotFields("PROVEEDOR").Subtotals _ = Array(False, False, False, False, False, False, False, False, False, False, False, False _ ) Range("B6").Select ActiveSheet.PivotTables("Crédito ACI By DCH").PivotFields("NUM DE FACT."). _ Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _ False, False) Range("E1").Select ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "SOLICAFA", Version:=xlPivotTableVersion10).CreatePivotTable _ TableDestination:="", TableName:="Contado ACI By DCH", _ DefaultVersion:=xlPivotTableVersion10[/color] With ActiveSheet.PivotTables("Contado ACI By DCH").PivotFields("PROVEEDOR") .Orientation = xlRowField .Position = 1 End With With ActiveSheet.PivotTables("Contado ACI By DCH").PivotFields("NUM DE FACTURA") .Orientation = xlRowField .Position = 2 End With With ActiveSheet.PivotTables("Contado ACI By DCH").PivotFields("CONCEPTO") .Orientation = xlRowField .Position = 3 End With ActiveSheet.PivotTables("Contado ACI By DCH").AddDataField ActiveSheet.PivotTables _ ("Contado ACI By DCH").PivotFields("A PAGAR"), "Cuenta de A PAGAR", xlCount With ActiveSheet.PivotTables("Contado ACI By DCH").PivotFields("Cuenta de A PAGAR" _ ) .Caption = "Suma de A PAGAR" .Function = xlSum .NumberFormat = "_-$* #,##0.00_-;-$* #,##0.00_-;_-$* ""-""??_-;_-@_-" End With With ActiveSheet.PivotTables("Contado ACI By DCH").PivotFields("A PAGAR") .Orientation = xlPageField .Position = 1 End With ActiveSheet.PivotTables("Contado ACI By DCH").PivotFields("A PAGAR").Caption = _ "SOLICITUDES DE CHEQUE" Range("E2").Select ActiveSheet.PivotTables("Contado ACI By DCH").PivotFields("SOLICITUDES DE CHEQUE") _ .CurrentPage = "(All)" With ActiveSheet.PivotTables("Contado ACI By DCH").PivotFields( _ "SOLICITUDES DE CHEQUE") .PivotItems("0").Visible = False .PivotItems("(blank)").Visible = False End With ActiveSheet.PivotTables("Contado ACI By DCH").PivotFields("SOLICITUDES DE CHEQUE") _ .EnableMultiplePageItems = True Range("E1").Select With Selection.Font .Name = "Calibri" .Size = 14 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 .ThemeFont = xlThemeFontMinor End With Selection.Font.Bold = True With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Range("E5").Select ActiveSheet.PivotTables("Contado ACI By DCH").PivotFields("PROVEEDOR").Subtotals _ = Array(False, False, False, False, False, False, False, False, False, False, False, False _ ) Range("F5").Select ActiveSheet.PivotTables("Contado ACI By DCH").PivotFields("NUM DE FACTURA"). _ Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _ False, False) ActiveWindow.ScrollColumn = 1 Range("E22").Select ActiveWindow.Zoom = 90 Range("C12").Select Range("H8").Select Range("E16").Select Application.PrintCommunication = False With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With Application.PrintCommunication = True ActiveSheet.PageSetup.PrintArea = "" Application.PrintCommunication = False With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.7) .RightMargin = Application.InchesToPoints(0.7) .TopMargin = Application.InchesToPoints(0.75) .BottomMargin = Application.InchesToPoints(0.75) .HeaderMargin = Application.InchesToPoints(0.3) .FooterMargin = Application.InchesToPoints(0.3) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .PrintQuality = 600 .CenterHorizontally = False .CenterVertically = False .Orientation = xlLandscape .Draft = False .PaperSize = xlPaperLetter .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = 100 .PrintErrors = xlPrintErrorsDisplayed .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .ScaleWithDocHeaderFooter = True .AlignMarginsHeaderFooter = True .EvenPage.LeftHeader.Text = "" .EvenPage.CenterHeader.Text = "" .EvenPage.RightHeader.Text = "" .EvenPage.LeftFooter.Text = "" .EvenPage.CenterFooter.Text = "" .EvenPage.RightFooter.Text = "" .FirstPage.LeftHeader.Text = "" .FirstPage.CenterHeader.Text = "" .FirstPage.RightHeader.Text = "" .FirstPage.LeftFooter.Text = "" .FirstPage.CenterFooter.Text = "" .FirstPage.RightFooter.Text = "" End With Application.PrintCommunication = True Application.PrintCommunication = False With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With Application.PrintCommunication = True ActiveSheet.PageSetup.PrintArea = "" Application.PrintCommunication = False With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.708661417322835) .RightMargin = Application.InchesToPoints(0.708661417322835) .TopMargin = Application.InchesToPoints(0.748031496062992) .BottomMargin = Application.InchesToPoints(0.748031496062992) .HeaderMargin = Application.InchesToPoints(0.31496062992126) .FooterMargin = Application.InchesToPoints(0.31496062992126) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .PrintQuality = 600 .CenterHorizontally = False .CenterVertically = False .Orientation = xlLandscape .Draft = False .PaperSize = xlPaperLetter .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 .PrintErrors = xlPrintErrorsDisplayed .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .ScaleWithDocHeaderFooter = True .AlignMarginsHeaderFooter = True .EvenPage.LeftHeader.Text = "" .EvenPage.CenterHeader.Text = "" .EvenPage.RightHeader.Text = "" .EvenPage.LeftFooter.Text = "" .EvenPage.CenterFooter.Text = "" .EvenPage.RightFooter.Text = "" .FirstPage.LeftHeader.Text = "" .FirstPage.CenterHeader.Text = "" .FirstPage.RightHeader.Text = "" .FirstPage.LeftFooter.Text = "" .FirstPage.CenterFooter.Text = "" .FirstPage.RightFooter.Text = "" End With Application.PrintCommunication = True ActiveSheet.Name = "FLUJO ACI" End Sub

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

MACRO CON DOS TABLAS DINAMICAS EN UNA HOJA

Autor del tema Fantasma77
Fecha de inicio 24 Nov 2015

Fantasma77

New member

24 Nov 2015

Buen día, espero me puedan ayudar.

Recién estoy empezando con las Macros, grabe una macro para realizar un reporte con 2 tablas dinámicas de diferentes base de datos en una misma hoja, para que...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Pregunta

Macro para actualizar dos tablas de datos

Respuestas: 6

5 Jun 2019

Kiory666

Pregunta

Macro para sumar valores relacionados en diferentes tablas

Respuestas: 0

28 Oct 2016

anderlozano

Pregunta

macro que permita generar tablas a partir datos ingresados

Respuestas: 1

17 Feb 2013

hc3115

Pregunta

Macro no arroja todos los resultados de búsqueda de un código

Respuestas: 8

12 Feb 2026

marMoTin

Pregunta

como puedo medir el tiempo de ejcucion de una macro en miliseundos?

Respuestas: 3

29 Dic 2025

Frank2021

Pregunta

macro para identificar valores duplicados en e hojas de excel

Respuestas: 17

22 Nov 2025

jairorodri

Resuelto

Macro para distribuir dados de forma aleatória

Respuestas: 9

26 Ago 2025

Be_So_Al

Pregunta

Macro para copiar y pegar datos filtrados mediante boton

Respuestas: 2

12 Jul 2025

Leopoldo Blancas

Pregunta

Macro COMPARAR diferencias entre dos hojas del mismo libro.

Respuestas: 11

28 May 2025

Josecho

Resuelto

Macro para no permitir ingresos Duplicados

Respuestas: 2

3 Mar 2025

jcvelez

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba