Macro para Copiar Hoja con Nombre Consecutivo
Necesito de su ayuda con esto por favor, les explico:
Tengo un Libro llamado Prestaciones sociales en el cual tengo una hoja con todo los cálculos lo que necesito es una macro para copiar dicha hoja con los cálculos y que se cambie el nombre de manera consecutiva por cada trabajador que se encuentre en mi listado que tambien esta dentro del Libro pero en otra Hoja, solo necesito eso
Lo que solicitas es que se copie la hoja "prestaciones" y que a esta hoja se le cambien el nombre por la del listado que tiene osea
Juan
Pedro
María ...
Si es así seria de esta manera
Sub Copi_Hoja_Modelo()
Application.ScreenUpdating = False
Dim celda As Range
For Each celda In Worksheets("hoja1").Range("a2:a50")
If celda = "" Then
Exit Sub
Else
Worksheets("modelo").Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = celda
End If
Next
End Sub
Donde:
Hoja1 en el nombre de la hoja donde estas el listado
A2:a50 es el rango donde están los nombre
Modelo es el njombre de la hoja que se va a copiar
Si te silve no olvides valora para cerrar la pregunta
Buenos días, Muchas Gracias por tu respuesta
Al momento de ejecutar el comando me da error en: ActiveSheet.Name = celda
Buenos días, Muchas Gracias por tu respuesta
Al momento de ejecutar el comando me da error en: ActiveSheet.Name = celda si me pudieras ayudar con este error
Estos puede ser que ya hoja ya exista con ese hombre
Verifica eso a ver
