Hojas con agregar hojas con nombre de meses
Tengo una hoja llamada "resumen" en donde diario capturo movimientos de un fondo de caja, ahora necesito que al finalizar el mes la hoja resumen me quede vacía para iniciar el mes y se cree una hoja con el nombre del mes que finalizo y así sucesivamente
Respuesta de Elsa Matilde
1
ESta rutina que adjunto la tenés que colocar en un módulo.
Luego podes asignarle un atajo de teclado o dibujar un botón con la barra Formularios del menú Ver, Barras de Herramientas, y asignarle esta macro.
Sub hojaMes()
' Macro grabada el 16/11/2009 por Elsamatilde
'
'establecer nbre de hoja - Ver otras opciones (*)
nbrehoja = ActiveSheet.Range("B2")
'se copia la hoja activa colocándola a continuación de la última
ActiveSheet.Copy After:=Sheets(Sheets.Count)
'se le asigna el nombre
ActiveSheet.Name = nbrehoja
'se vuelve a la hoja1 borrando el rango de datos.
Sheets("Hoja1").Select
ActiveSheet.Range("A2:M200") = ""
'opcional: celda para el ingreso del primer dato
ActiveSheet.Range("A2").Select
End Sub
(*)El nbre de la hoja puede ser tomado de alguna celda o ser solicitada con un InputBox. Si necesitas ayuda para esto escribime nuevamente.
Las celdas solo se borran, manteniendo los formatos.
Luego podes asignarle un atajo de teclado o dibujar un botón con la barra Formularios del menú Ver, Barras de Herramientas, y asignarle esta macro.
Sub hojaMes()
' Macro grabada el 16/11/2009 por Elsamatilde
'
'establecer nbre de hoja - Ver otras opciones (*)
nbrehoja = ActiveSheet.Range("B2")
'se copia la hoja activa colocándola a continuación de la última
ActiveSheet.Copy After:=Sheets(Sheets.Count)
'se le asigna el nombre
ActiveSheet.Name = nbrehoja
'se vuelve a la hoja1 borrando el rango de datos.
Sheets("Hoja1").Select
ActiveSheet.Range("A2:M200") = ""
'opcional: celda para el ingreso del primer dato
ActiveSheet.Range("A2").Select
End Sub
(*)El nbre de la hoja puede ser tomado de alguna celda o ser solicitada con un InputBox. Si necesitas ayuda para esto escribime nuevamente.
Las celdas solo se borran, manteniendo los formatos.
