Hola expertos, como están? Les muestro la macro que llevo hasta ahora. Necesito nombrar la pestaña en donde se encuentra la Pivot porque voy a crear otro módulo con una macro que corra dos pivots en la misma pestaña (en diferentes momentos), con la misma fuente de información, pero con diferentes funciones, y por ende, diferente formato. Voy a agragar dos botones para correr las macro de las pivots. El problema es que cada vez que corro la macro, cambia el número de pestaña de la pivot (e.g. Sheet2, Sheet3, etc) Por lo que, siento que necesito cambiar el nombre de la pestaña de la pivot, para poder correr las macros las veces que sean necesarios, sin que me salga el error "Fuera de rango". He intentado con active.worksheet pero no me funciona. Alguien me ayuda a crear una forma más eficiente de nombrar esta pestaña? Mil gracias de antemano!! :) Sub TP_Maker() Sheets("ARP").Select Sheets("ARP").Copy After:=Sheets(1) Columns("A:A").Select Selection.Clear Columns("D:D").Select Selection.Cut Destination:=Columns("A:A") Columns("E:E").Select Selection.Cut Destination:=Columns("D:D") Columns("H:H").Select Selection.Cut Destination:=Columns("E:E") Columns("F:F").Select Selection.Delete Shift:=xlToLeft Columns("H:L").Select Selection.Cut Destination:=Columns("G:K") Columns("O:O").Select Selection.Cut Destination:=Columns("L:L") Columns("O:O").Select Selection.Delete Shift:=xlToLeft Rows("1:1").RowHeight = 24 Range("A1:Q1").Select With Selection.Interior .ThemeColor = xlThemeColorAccent5 .TintAndShade = 0.399975585192419 .PatternTintAndShade = 0 End With ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ ("$A:$Q"), Version:=xlPivotTableVersion12).CreatePivotTable _ TableDestination:="", TableName:="PivotTable1", DefaultVersion _ :=xlPivotTableVersion12 With Sheets("ARP").Select End With vnl = ActiveWorkbook.Name vpp = VBA.InStr(1, vnl, ".", vbTextCompare) - 1 vnh = "Salida ARP SPri" & " " & VBA.Right(VBA.Left(vnl, vpp), 5) Worksheets(1).Name = vnh With Sheets("ARP (2)").Select End With Worksheets("ARP (2)").Move After:=Sheet1 vnl = ActiveWorkbook.Name vpp = VBA.InStr(1, vnl, ".", vbTextCompare) - 1 vnh = "TP SPri" & " " & VBA.Right(VBA.Left(vnl, vpp), 5) Worksheets("ARP (2)").Name = vnh 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.

AYUDA! Nombrar pestaña de Pivot

Autor del tema JennBL
Fecha de inicio 20 Oct 2014

JennBL

New member

20 Oct 2014

Hola expertos, como están?

Les muestro la macro que llevo hasta ahora. Necesito nombrar la pestaña en donde se encuentra la Pivot porque voy a crear otro módulo con una macro que corra dos...

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

Ayuda con Macros

Respuestas: 6

17 Jul 2026

Víctor1

Pregunta

Ayuda con Macro Excel

Respuestas: 2

1 Jul 2026

Leopoldo Blancas

Resuelto

Ayuda con macro para buscar y modificar datos de un listbox

Respuestas: 5

28 May 2026

katto

Pregunta

Ayuda con mi macro

Respuestas: 2

20 May 2026

Leopoldo Blancas

Pregunta

ayuda configurar tekitera

Respuestas: 3

29 Abr 2026

kehaces

Pregunta

Ayuda, necesito crear una tabla de registro

Respuestas: 4

27 Abr 2026

JSD

Pregunta

macros ayuda

Respuestas: 5

16 Dic 2025

FGV

Resuelto

Ayuda con esa macro ejecutar con enter y boton

Respuestas: 3

11 Nov 2025

Miltiño

Pregunta

ayuda Formularios

Respuestas: 1

23 Oct 2025

hc3115

Resuelto

Ayuda con agrupación de datos

Respuestas: 7

14 Oct 2025

Andrew2021

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