Copiar una hoja y poner la fecha en la hoja copiada
Necesito una macro que copia la hoja entera y el la solapa ponga la fecha que se hizo la operación.
1 respuesta
Respuesta de Elsa Matilde
2
No queda claro dónde debe pegarse la hoja copiada.
Si fuese en el mismo libro este ejemplo te servirá, sino aclarame este detalle.
Se copia la hoja activa y se agrega una hoja al final dándole nombre de la fecha del día en formato permitido para nombres de hojas. Podés elegir otro pero no debe contener barras.
Sub copiaHoja() 'x Elsamatilde 'copia la hoja activa y la pega al final ActiveSheet.Copy Before:=Sheets(Sheets.Count) 'la renombra con la fecha en formato permitido para nombres de hojas ActiveSheet.Name = Format(Date, "dd-mm-yyyy") End Sub
Si la respuesta resuelve tu consulta no olvides valorarla (Excelente o Buena).
Sdos.
Elsa
