Necesito una macro que copie una hoja y le cambie el nombre por el valor de una celda
Tengo ya una macro, la cual cambia el nombre por la fecha actual
Sub ReplicarHojaActual()
Sheets("Control de tareas").Copy After:=Sheets(ActiveWorkbook.Sheets.Count)
ActiveSheet.Name = Day(Now())
End Sub
En la fila
ActiveSheet.Name = Day(Now())
La cambie por
ActiveSheet.Name = Range ("D14").Value
Tomando en cuenta que quiero que el nombre de la hoja sea el valor de la celda D14, pero no funciona.
2 respuestas
Los códigos que escribes son correctos, pero no esta trayendo la información que necesitas. Te explico al momento de escribir : Sheets("Control de tareas").Copy After:=Sheets(ActiveWorkbook. Sheets. Count) creas una nueva hoja y claro te posesionas en esta nueva hoja en la cual la celda D4 no tiene valores, y al no tener valores no le estas poniendo ninguno a tu hoja. Prueba con la siguiente rutina y fijate en el cambio
Sub ReplicarHojaActual()
nombre = Range("D4").Value
Sheets("Control de tareas").Copy After:=Sheets(ActiveWorkbook.Sheets.Count)
ActiveSheet.Name = nombre
End SubPrimero obtengo el valor de la celda D4 y luego utilizo ese valor para nombrar la nueva hoja creada.
Excelente funciona de maravilla, muchas gracias. No soy muy experto en macros. Ahora tengo una duda como hago para que cuando no haya valor en la celda D4 me aparezca un mensaje que diga no se puede copiar hoja porque no hay un valor en la celda D4?
Mil gracias!!!! de nuevo
Hola! fijate que revise unas de las preguntas que están resultas por tu persona y ya tengo resuelto la segunda pregunta que hice. Ahora solo me queda una mas, como haga que la hoja principal quede en blanco es decir.
Tengo un formulario en donde coloco nombre y cuando copio la hoja la casilla en donde coloque el nombre quede en blanco de nuevo.
Gracias!
Trata de siempre finalizar la pregunta que ya te han respondido, y si tienes otra duda envíala nuevamente al foro, esto lo digo porque te puedes quedar colgado con la pregunta si es que el usuario que esta respondiendo tu pregunta no contesta por mucho tiempo.
En todo caso siguiendo los códigos iniciales la rutina sería:
Sheets("Control de tareas"). Range("D4"). ClearContents
Se puede copiar una hoja, renombrarla, y en la nueva, mantener los vínculos a las celdas, pero de la nueva creada!?