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
1 Respuesta
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
