Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿Cómo hacer que el nombre de la pestaña de la hoja sea igual al valor de celda en Excel?

En algunos casos, es posible que necesite cambiar el nombre de una hoja de trabajo en función de un valor de celda especificado. En este artículo, le mostraremos los métodos para hacer que el nombre de la pestaña de hoja sea igual al valor de celda en Excel.

Haga que el nombre de la pestaña de la hoja sea igual al valor de la celda con el código VBA

Haga que el nombre de la pestaña de hoja sea igual al valor de celda con Kutools para Excel


Cree fácilmente un índice de hoja enumerando todos los nombres de hoja en Excel:

Haz click Kutools Más> Hoja de trabajo > Crear lista de nombres de hoja para enumerar fácilmente todos los nombres de la hoja de trabajo en una nueva hoja de trabajo en Excel. Y puede pasar a la hoja de trabajo correspondiente directamente haciendo clic en el nombre de la hoja.

Kutools for Excel: con más de 200 útiles complementos de Excel, de prueba sin límite en días 60. Descargue la versión de prueba gratuita Ahora!

Ficha Office Habilite la edición y navegación con pestañas en Office y haga su trabajo mucho más fácil ...
Kutools for Excel trae las características avanzadas de 300 a Excel y aumenta su productividad en 80%
  • Texto automático: Cree sus gráficos, imágenes, celdas, fórmulas complejas y reutilizar ellos rápidamente en el futuro.
  • Más de características de texto 20: Extraer número de la cadena de texto; Extraer o eliminar parte de los textos; Convertir números y monedas a palabras en inglés ...
  • Herramientas de fusión: Múltiples libros de trabajo y hojas en uno; Fusionar múltiples celdas / filas / columnas y guardar datos; Combinar filas duplicadas y sumar ...
  • Herramientas divididas: Dividir datos en varias hojas en función del valor; Un libro de trabajo para múltiples archivos Excel, PDF o CSV; De una columna a varias columnas ...
  • Saltar pasta Filas ocultas / filtradas; Cuenta y suma por color de fondo; Crear lista de correo y Enviar correos electrónicos por el valor de la celda...
  • Súper filtro: Cree esquemas de filtro avanzados y aplique a cualquier hoja; Tipo de Propiedad por semana, día, frecuencia y más; Filtrar por negrita, fórmulas, comentario ...
  • Más de potentes funciones de 300; Funciona con Office 2007-2019 y 365; Soporta todos los idiomas; Fácil despliegue en compañía; Funciones completas de prueba gratuita de 60-day.

flecha azul burbuja derecha Haga que el nombre de la pestaña de la hoja sea igual al valor de la celda con el código VBA


Con el siguiente código VBA, puede hacer que el nombre de la pestaña de hoja sea igual al valor de celda automáticamente.

1. Haga clic con el botón derecho en la pestaña de la hoja en la que desea que el nombre de la hoja sea igual al valor de celda, luego haga clic Ver código desde el menú contextual. Ver captura de pantalla:

2. Copie y pegue el código a continuación en la ventana Código, y luego presione otro + Q teclas simultáneamente para cerrar la ventana de Microsoft Visual Basic para Aplicaciones.

Código de VBA: haga que la pestaña de la hoja sea igual al valor de celda

Private Sub Worksheet_Change(ByVal Target As Range)
	If Not Intersect(Target, Range("A1")) Is Nothing Then
		ActiveSheet.Name = ActiveSheet.Range("A1")
	End If
End Sub

Nota: En el código, A1 es la celda que contiene el valor que necesita usar como nombre de hoja. Puedes cambiarlo como lo necesites.

De ahora en adelante, cuando el valor en la celda A1 haya cambiado, el nombre de la pestaña de la hoja también cambiará igualmente.


flecha azul burbuja derecha Haga que el nombre de la pestaña de hoja sea igual al valor de celda con Kutools para Excel

En esta sección, te presentamos el Cambiar el nombre de varias hojas de trabajo utilidad de Kutools for Excel. Con esta utilidad, puede cambiar fácilmente el nombre de las hojas de cálculo por el valor de cierta celda en Excel.

Kutools for Excel : con más de 300 útiles complementos de Excel, gratis para probar sin limitaciones en los días 60.

1. Hacer clic Kutools Más > Hoja de trabajo > Cambiar el nombre de varias hojas de trabajo. Ver captura de pantalla:

2. En el Cambiar el nombre de varias hojas de trabajo cuadro de diálogo, debe hacer lo siguiente.

1). Compruebe los nombres de la hoja de cálculo que desea cambiar el nombre en el Hojas de trabajo cuadro (puede seleccionar una hoja o varias hojas).

2). Seleccionar Reemplazar nombre original de la hoja en el cuadro Cambiar el nombre de las opciones .

3). Si desea cambiar el nombre de una hoja de cálculo o varias hojas de cálculo con el valor de celda especificado, seleccione la Desde un rango específico opción, y seleccione el rango de celdas sobre el que desea cambiar el nombre de las hojas.

3). Haga clic en el OK botón. Ver captura de pantalla:

Puede ver que las hojas de trabajo seleccionadas se renombran por el valor de rango especificado inmediatamente como se muestra a continuación.

Notas:

1. Puedes usar el Filtrar función para filtrar fácilmente la hoja de trabajo necesaria si existen muchas hojas de cálculo.

2. Si desea cambiar el nombre de varias hojas de cálculo con un cierto valor de celda en cada hoja. Por ejemplo, sheet1 será igual al valor de su celda A1, y sheet2 también será igual al valor de su celda A1. Por favor, seleccione hojas de trabajo en el Hojas de trabajo cuadro, luego seleccione el Cambiar el nombre de las hojas de trabajo con una celda específica opción, y especifique celda A1 en el cuadro.

3. El nombre de la hoja no se cambiará automáticamente con los cambios en el valor de la celda.


flecha azul burbuja derecha Haga que el nombre de la pestaña de hoja sea igual al valor de celda con Kutools para Excel

Kutools for Excel incluye más de las útiles herramientas de Excel de 300. Gratis para probar sin limitaciones en los días 60. ¡Descargue la versión de prueba gratuita ahora!


Kutools for Excel: la mejor herramienta de productividad de Office aumenta su productividad en un 80%

  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células 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 Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Más de potentes funciones de 300. Funciona con Office 2007-2019 y 365. Soporta todos los idiomas. Fácil despliegue en compañía. Funciones completas de prueba gratuita de 60-day.
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

  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
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.
    Nilanjan Pal · 1 years ago
    You can rather use simple macro



    Sub Macro3()
    Dim index As Integer
    For index = 1 To 18

    Sheets(index).Name = Sheets(index).Range("A2").Value

    Next index



    End Sub
  • To post as a guest, your comment is unpublished.
    JAS · 1 years ago
    I got the whole code, and it worked. Thank you so much for your help!
  • To post as a guest, your comment is unpublished.
    jJJ · 1 years ago
    I am getting this code to work, but it does not automatically update the tab name when the cell it pulls the name from if referencing another cell (and that cell changes).


    I.e. I change a cell in a master list, which changes the cell text in a specific cell on each tab, which the code is referencing as the tab name, BUT the tab doesn't update its name correspondingly.
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Good day,
      The following VBA code can solve your problem. Thank you for your comment1

      Private Sub Worksheet_Change(ByVal Target As Range)
      Dim xRg As Range, xCell As Range
      On Error Resume Next
      If Not Intersect(Target, Range("A1")) Is Nothing Then
      ActiveSheet.Name = ActiveSheet.Range("A1")
      End If
      Application.EnableEvents = False
      Set xRg = ActiveSheet.Range("A1").Precedents
      If Not xRg Is Nothing Then
      For Each xCell In xRg
      ActiveSheet.Name = ActiveSheet.Range("A1")
      Next
      End If
      Application.EnableEvents = True
      End Sub
      • To post as a guest, your comment is unpublished.
        NOOR · 5 months ago
        I change a cell in a master list, which changes the cell text in a specific cell on each tab, which the code is referencing as the tab name, BUT the tab doesn't update its name correspondingly.

        ---- it's not work
      • To post as a guest, your comment is unpublished.
        John Hammonds · 6 months ago
        I need to use this code but I've never entered vba code before. Any guidance would be appreciated.
      • To post as a guest, your comment is unpublished.
        JAS · 1 years ago
        Still doesn't work. I'm having the same issue as jJJ. crystal: Is the whole code shown in your reply?
        The last line shown in your comment is "Set xRg = ActiveSheet.Range("A1").Precedents"
        • To post as a guest, your comment is unpublished.
          crystal · 1 years ago
          Dear JAS,
          Please click the Read more button on the right side of the comment to display the whole comment.
          • To post as a guest, your comment is unpublished.
            Alex · 1 years ago
            Still have the same issue.

            I have A1 of the new sheet point to another cell in a different tab. It updates the first time (when you execute) but then no change when editing the master cell
            • To post as a guest, your comment is unpublished.
              Rj · 19 days ago
              Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
              Set Target = Range("A1")
              If Target = "" Then Exit Sub
              On Error GoTo Badname
              ActiveSheet.Name = Left(Target, 31)
              Exit Sub
              Badname:
              MsgBox "Please revise the entry in A1." & Chr(13) _
              & "It appears to contain one or more " & Chr(13) _
              & "illegal characters." & Chr(13)
              Range("A1").Activate
              End Sub
  • To post as a guest, your comment is unpublished.
    Jason · 1 years ago
    I pasted this in as instructed but it didn't show up in my list of available Macros. I tried to manually run it by keying in the Macro name. When it attempted to run the Macro, an error message came up "Argument no optional".

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
    ActiveSheet.Name = ActiveSheet.Range("A1")
    End If
    End Sub

    Has anyone else run this code and had the same issue?

    As a test I ran more basic code and it worked fine so the value in "A1" isn't causing the problem. When I run the code below I can see the Macro name "myTabName" in the Macro list. The code above doesn't appear and I'm assuming this is because of the bug/missing argument.

    Sub myTabName()
    ActiveSheet.Name = ActiveSheet.Range("A1")
    End Sub

    Thanks for your help as I'd very much like to use the code as intended for automating tab name changes based on a cell value..
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Dear Jason,
      The code works well in my case. Would you please provide your Office version? Thank you for your comment.