¿Cómo copiar una hoja en Excel y cambiarle el nombre según el valor de una celda?
Normalmente, puede utilizar la función Mover o copiar para duplicar una hoja de cálculo y, a continuación, asignarle manualmente un nombre nuevo según sus necesidades. Pero, ¿ha probado alguna vez a renombrar automáticamente la hoja en función del valor de una celda tras copiarla? En este artículo le explicamos cómo cambiar el nombre de la hoja de forma automática según el valor de una celda al realizar una copia.
Copiar una hoja de cálculo y cambiarle el nombre según un valor de celda con código VBA
Copiar una hoja de cálculo y cambiarle el nombre según un valor de celda con código VBA
El siguiente código VBA le permite copiar una hoja de cálculo y asignarle automáticamente un nuevo nombre basado en el valor de una celda específica. Siga estos pasos:
1. Active la hoja de cálculo que desea copiar y, a continuación, mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo y pegue el siguiente código en la ventana del Módulo.
Código VBA: Copiar una hoja de cálculo y cambiarle el nombre según un valor de celda:
Sub Copyrenameworksheet()
'Updateby Extendoffice
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. A continuación, pulse la tecla F5 para ejecutar este código. Tras hacerlo, su hoja de trabajo actual se habrá copiado al libro de trabajo actual, colocándose después de todas las hojas existentes, y se le habrá asignado el nombre correspondiente al valor de la celda que especificó. Vea la captura de pantalla:
Nota: En el código anterior, la referencia de celda A1 es el valor de la celda que desea usar para renombrar la nueva hoja copiada; puede modificarla según sus necesidades.
Copiar una hoja de cálculo varias veces y cambiarle el nombre según valores de celda con Kutools para Excel
El código anterior solo permite renombrar con un único valor de celda. Si necesita copiar la hoja varias veces y asignarles nombres basados en una lista de valores de celda, la función Kutools para Excel «Crear hoja de secuencia» puede ayudarle a completar esta tarea en el menor tiempo posible.
Tras instalar Kutools para Excel, siga estos pasos:
1. Haga clic en KUTOOLS PLUS > Hoja de cálculo > Crear hojas de cálculo de secuencia. Vea la captura de pantalla:
2. En el cuadro de diálogo Crear hoja de secuencia, realice las siguientes operaciones:
(1.) Seleccione la Nombre de la hoja de cálculo que desea copiar en la lista desplegable Basado en hoja de cálculo;
(2.) Seleccione la opción Datos dentro de la selección en la sección Nombre de hoja de cálculo basado en y haga clic en el botón 
para seleccionar los valores de las celdas según los cuales desea renombrar las hojas copiadas.
3. A continuación, haga clic en el botón Aceptar y la hoja de cálculo especificada se habrá copiado varias veces y renombrado con los valores de las celdas que seleccionó en un nuevo libro de trabajo. Vea la captura de pantalla:
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos