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 copiar hojas y renombrarlas según el valor de celda en Excel?

Normalmente, puedes aplicar el Mover o copiar característica para copiar una hoja de trabajo y luego escriba un nuevo nombre para la copia manualmente según lo necesite. Pero, ¿alguna vez ha intentado cambiar el nombre de la hoja según el valor de una celda después de copiar la hoja de trabajo? En este artículo, voy a hablar sobre cómo cambiar el nombre de la hoja de cálculo en función del valor de la celda de forma automática al hacer una copia.

Copie una hoja de trabajo y cambie el nombre según el valor de la celda con el código VBA

Copie una hoja de trabajo varias veces y cambie el nombre basado en valores de celda con Kutools para Excel


Copie una hoja de trabajo y cambie el nombre según el valor de la celda con el código VBA


El siguiente código de VBA puede ayudarlo a copiar una hoja de trabajo y cambiarle el nombre automáticamente con un valor de celda específico, haga lo siguiente:

1. Active la hoja de trabajo que desea copiar y luego mantenga presionada la tecla ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en Módulo Ventana.

Código de VBA: copie una hoja de trabajo y cambie el nombre con un valor de celda:

Sub Copyrenameworksheet()
'Updateby Extendoffice 20160704
    Dim ws As Worksheet
    Set wh = Worksheets(ActiveSheet.Name)
    ActiveSheet.Copy After:=Worksheets(Sheets.Count)
    If wh.Range("A1").Value <> "" Then
    ActiveSheet.Name = wh.Range("A1").Value
    End If
    wh.Activate
End Sub

3. Y luego presione F5 clave para ejecutar este código, y su hoja de trabajo actual se ha copiado en el libro de trabajo actual después de todas las hojas de trabajo, y se renombra con el valor de celda que ha especificado, vea la captura de pantalla:

doc copy raname por valor 1

Nota: En el código anterior, la referencia de celda A1 es el valor de la celda que desea cambiar el nombre de la nueva hoja copiada, puede cambiarla según su necesidad.


Copie una hoja de trabajo varias veces y cambie el nombre basado en valores de celda con Kutools para Excel

El código anterior solo puede cambiar el nombre con un valor de celda, si necesita copiar la hoja varias veces y cambiarles el nombre en función de una lista de valores de celda, Kutools for Excel, Crear hoja de trabajo de secuencia puede ayudarte a terminar esta tarea lo más rápido que puedas.

Kutools for Excel : con más de 300 útiles complementos de Excel, de prueba sin límite en días 60.

Después de instalar Kutools for Excel, haz lo siguiente:

1. Hacer clic Empresa > Hoja de trabajo > Crear hojas de trabajo de secuencia, mira la captura de pantalla:

doc copy raname por valor 2

doc copy raname por valor 3

2. En la Crear hoja de trabajo de secuencia cuadro de diálogo, realice las siguientes operaciones:

(1.) Seleccione el nombre de la hoja de trabajo que desea copiar del Hoja de trabajo básica la lista desplegable;

(2.) Seleccione Datos en una opción de rango debajo del Nombres de hojas basados ​​en sección y haga clic doc copy raname por valor 5 para seleccionar los valores de celda sobre los que desea cambiar el nombre de las hojas de trabajo copiadas.

Descarga Kutools para Excel ahora!

3. Luego haga clic Ok y la hoja de trabajo específica ha sido copiada varias veces y renombrada con los valores de celda que seleccionó en un nuevo libro, vea la captura de pantalla:

doc copy raname por valor 4

Descargue y pruebe de forma gratuita Kutools for Excel Now!


Demostración: Copie una hoja de trabajo varias veces y cambie el nombre basado en valores de celda con Kutools para Excel

Kutools for Excel: con más de 200 útiles complementos de Excel, de prueba sin límite en días 60. Descargar y prueba gratis 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...
  • Funciona con Office 2007-2019 y 365, y es compatible con todos los idiomas. Es fácil de implementar en su empresa. 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.
    Phil · 2 years ago
    Your code is what I have been looking for, however the cell contents that I wish to use to rename the sheet is a date.

    For example, on the first sheet, cell A2 displays a date as Monday 3 April 2017.

    What I would like to happen is when the next sheet is created by the macro would be to take the date from A2, add 7 to display, for example, "Monday 10 July, 2017" but rename the new sheet in the dd-mm-yy format, so "10-07-17".

    Is this possible?

    By the way, I have Kutools for Excel, but this spreasheet will be a blood pressure record for my dad who doesnt have Kutools.

    Thanks in advance!
  • To post as a guest, your comment is unpublished.
    joe · 2 years ago
    The code below works great. My question is, is it possible to automatically open the new worksheet (based on A1) and delete the content from the previous sheet as it is being used as the template.




    Sub Copyrenameworksheet()
    'Updateby Extendoffice 20160704
    Dim ws As Worksheet
    Set wh = Worksheets(ActiveSheet.Name)
    ActiveSheet.Copy After:=Worksheets(Sheets.Count)
    If wh.Range("A1").Value "" Then
    ActiveSheet.Name = wh.Range("A1").Value
    End If
    wh.Activate
    End Sub