Fecha en el nombre de la pestaña
Hola:
Me gustaría que me echaseis una mano a ser posible con esto... Necesitaría una macro que me renombrase las pestañas que voy creando con la fecha del día actual; ejemplo: ejecuto macro hoja nueva y me crea una nueva pestaña limpia y de nombre el día actual y que se coloque en ultima posición. Lo de crear una hoja nueva y limpia lo tengo listo pero me falta que ponga la fecha en la pestaña y la coloque seguido de la ultima así el ultimo día de cada mes tendré un libro de todos los días del mes ordenados del 1 al 30; el formato de la fecha seria 10-5-08.
Gracias!
Me gustaría que me echaseis una mano a ser posible con esto... Necesitaría una macro que me renombrase las pestañas que voy creando con la fecha del día actual; ejemplo: ejecuto macro hoja nueva y me crea una nueva pestaña limpia y de nombre el día actual y que se coloque en ultima posición. Lo de crear una hoja nueva y limpia lo tengo listo pero me falta que ponga la fecha en la pestaña y la coloque seguido de la ultima así el ultimo día de cada mes tendré un libro de todos los días del mes ordenados del 1 al 30; el formato de la fecha seria 10-5-08.
Gracias!
1 respuesta
Respuesta de vorkosigan
1
Prueba este código:
Sub CrearHoja()
Dim NombreHoja As String
NombreHoja = Date$
Sheets.Add.Name = NombreHoja
Sheets(NombreHoja).Move after:=Sheets(Sheets.Count)
End Sub
No lo uses 2 veces en un día porque te dará error al intentar insertar 2 hojas con el mismo nombre
Sub CrearHoja()
Dim NombreHoja As String
NombreHoja = Date$
Sheets.Add.Name = NombreHoja
Sheets(NombreHoja).Move after:=Sheets(Sheets.Count)
End Sub
No lo uses 2 veces en un día porque te dará error al intentar insertar 2 hojas con el mismo nombre
