Note: The other languages of the website are Google-translated. Back to English
Iniciar sesión  \/ 
x
or
x
Inscríbete  \/ 
x

or

¿Cómo cambiar el nombre de las hojas de trabajo según los valores de celda en Excel?

El cambio de nombre de las hojas de trabajo generalmente se aplica en nuestro trabajo de Excel, pero ¿alguna vez ha intentado cambiar el nombre de las hojas de trabajo en función de los valores de celda? Por supuesto, puede cambiar el nombre de las hojas de trabajo manualmente, pero aquí este tutorial presenta algunos trucos para cambiar rápidamente el nombre de varias hojas de trabajo según los valores de las celdas, lo que puede ahorrarle tiempo de trabajo.

Cambiar el nombre de las hojas de trabajo según una celda específica con VBA

Cambiar el nombre de las hojas de trabajo en función de una celda específica con Cambiar el nombre de varias hojas de trabajo buena idea3

Cambie el nombre de las hojas de trabajo en función de un rango de contenido de celda con Cambiar el nombre de varias hojas de trabajo buena idea3


Con VBA a continuación, puede cambiar el nombre de la hoja de trabajo relativa en función de una celda específica.

1. Seleccione la celda en la que desea cambiar el nombre de la hoja de trabajo, en este caso seleccione Celda A1. Ver captura de pantalla:

doc renombrar hoja de trabajo 1

2. Prensa Alt + F11 llaves para abrir Microsoft Visual Basic para aplicaciones ventana.

3. Hacer clic recuadro > Módulo, luego pegue debajo del código VBA en el nuevo Módulo ventana.

VBA: cambie el nombre de las hojas de trabajo según los valores de una celda específica.

Sub RenameSheet()
'UpdatebyKutools20191129
Dim xWs As Worksheet
Dim xRngAddress As String
Dim xName As String
Dim xSSh As Worksheet
Dim xInt As Integer
xRngAddress = Application.ActiveCell.Address
On Error Resume Next
Application.ScreenUpdating = False
For Each xWs In Application.ActiveWorkbook.Sheets
    xName = xWs.Range(xRngAddress).Value
    If xName <> "" Then
        xInt = 0
        Set xSSh = Nothing
        Set xSSh = Worksheets(xName)
        While Not (xSSh Is Nothing)
            Set xSSh = Nothing
            Set xSSh = Worksheets(xName & "(" & xInt & ")")
            xInt = xInt + 1
        Wend
        If xInt = 0 Then
            xWs.Name = xName
        Else
            If xWs.Name <> xName Then
                xWs.Name = xName & "(" & xInt & ")"
            End If
        End If
    End If
Next
Application.ScreenUpdating = True
End Sub

4. Prensa F5 clave para ejecutar el código VBA. Luego, todas las hojas de trabajo han sido renombradas por cada valor relativo de celda A1.

doc renombrar hoja de trabajo 2


Si tienes Kutools for Excel, no necesita guardar el código VBA, puede usar el Cambiar el nombre de varias hojas de trabajo función para cambiar rápidamente el nombre de todas las hojas de trabajo en función de sus celdas relativas.

Kutools for Excel, con más de 300 funciones prácticas, facilita su trabajo. 

Después instalación gratuita Kutools para Excel, haga lo siguiente:

1. Habilite el libro de trabajo al que desea cambiarle el nombre de sus hojas de trabajo.

2. Hacer clic Kutools Plus > Hoja de trabajo > Cambiar el nombre de las hojas de trabajo. Ver captura de pantalla:

doc renombrar hoja de trabajo 11

3. Luego, en el cuadro de diálogo emergente, marque las hojas a las que desea cambiar el nombre Hojas de trabajo panel y seleccione uno de los Opción de cambio de nombre lo necesita, aquí reemplazaré el nombre de la hoja, luego verificar Cambiar el nombre de las hojas de trabajo con una celda específicay seleccione la celda por la que necesita cambiar el nombre. Ver captura de pantalla:

doc renombrar hoja de trabajo 9

4. Hacer clic Ok. Ahora se cambia el nombre de las hojas con contenido de celda específico.

doc renombrar hoja de trabajo 2

Pero a veces, lo que necesita es cambiar el nombre de varias hojas de trabajo en función de un rango de valores de celda como se muestra a continuación, en este caso, puede elegir debajo del método.

doc renombrar hoja de trabajo 3


Con Cambiar el nombre de varias hojas de trabajo of Kutools for Excel, también puede cambiar el nombre de las hojas según un rango seleccionado.

Después instalación gratuita Kutools para Excel, haga lo siguiente:

1. Hacer clic Kutools Plus > Hoja de trabajo > Cambiar el nombre de las hojas de trabajo. Ver captura de pantalla:

doc renombrar hoja de trabajo 11

2. En el Cambiar el nombre de varias hojas de trabajo cuadro de diálogo, debe especificar la configuración de la siguiente manera:

(1) Seleccione las hojas de trabajo de las que necesita cambiar el nombre Lista de hojas de trabajo;

(2) Comprobar De rango específico y seleccione los valores de celda en los que necesita cambiar el nombre;

(3) Especifique el Cambiar nombre de opciones, puedes revisar Insertar antes del nombre de la hoja original, Insertar después del nombre de la hoja originalo Reemplazar el nombre de la hoja original, y puede obtener una vista previa del resultado correspondiente en el cuadro de diálogo.

doc renombrar hoja de trabajo 10

3. Hacer clic Ok, y luego puede ver que todas las hojas de trabajo que seleccionó han cambiado de nombre según los valores de celda especificados.

Reemplazar el nombre de la hoja original

doc renombrar hoja de trabajo 6

Insertar antes del nombre de la hoja original

doc renombrar hoja de trabajo 7

Insertar después del nombre de la hoja original

doc renombrar hoja de trabajo 8

Con la utilidad Cambiar nombre de hojas de trabajo, también puede cambiar el nombre de las hojas de trabajo con un prefijo o sufijo específico. Haga clic aquí para saber más sobre Cambiar el nombre de varias hojas de trabajo.


Las mejores herramientas de productividad de oficina

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Más de 300 potentes funciones. Compatible con Office / Excel 2007-2019 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Características completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
officetab parte inferior
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Don · 4 months ago
    Every time I look for a VBA routine and find an article like this from you guys, I try the sample code and it NEVER works.  It always goes into Debug on the first try.  I am starting to believe you deliberately publish poorly written code to drive people to try and purchase your Add-in.  
  • To post as a guest, your comment is unpublished.
    Henry · 1 years ago
    In the VBA code example, what changes would be made to select A2 as the cell value rather than A1?
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      Hi, Henry, select A2 instead of A1, all sheets will renamed with the value of cell A2.
  • To post as a guest, your comment is unpublished.
    Biplab Das · 2 years ago
    'Updateby20150602
    This code showing error..............Only works ActiveSheet & RunTime Error 1004 [Object_Worksheet faild]
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      Hi, Biplab Das, maybe the original code cannot work at new versions (2013 or later), I have upadated a new code in the tutorial, you could try again.