generar hoja automatica en excel

Iniciado por systemita, 30 Marzo 2009, 20:52 PM

0 Miembros y 1 Visitante están viendo este tema.

systemita

Hola, quisiera saber si se puede hacer con macros o una formula que se genere automaticamente la copia de una hoja por medio de la fecha del computador o que yo le coloque la hora y fecha en que esta se va a generar. Espero haya sido explicita y me puedan ayudar. Desde ya muchas Gracias.

Novlucker

#1
No me queda claro lo que quieres hacer  :-X

Partimos de la base de que tienes una hoja de excel, y quieres crear una nueva hoja ... esa nueva hoja es copiada? o es nueva? se va a crear automaticamente al abrir el libro y con la fecha que figura en la pc? Debes de tener una hoja por cada día?

Lo más sencillo sería que al abrir el libro se hayan creado tantas hojas como días en el mes, y si estamos a 25, entonces que hayan 25 hojas  :P

Saludos  :P
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD

"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein

systemita

#2
Gracias.
la pc esta encendida todo el dia, y el libro tambien.Tengo una hoja con un formato x, donde x cada dia debo copiar la misma hoja con el mismo formato pero con fecha actual que figure la pc, y que algunas celdas del formato esten limpias o sin valores, es decir se genere otra copia de la hoja con el mismo formato pero con fecha diferente y la celdas que siempre se modifican esten lista para ser llenadas. Me hice entender? :-\

Novlucker

#3
Lo muevo a VB porque la respuesta son macros (y son lo más parecido)  :P

Código (vb) [Seleccionar]
Sub Completardia()
On Error Resume Next

Nombrehoja = Format(Now(), "ddmmm")

Sheets(Nombrehoja).Select

If Err.Number > 0 Then
    Sheets(1).Copy After:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = Nombrehoja
    Sheets(Nombrehoja).Range("A1").Value = ""
    'Ejemplo de una celda que sería borrada
    Err.Clear
Else
    MsgBox "Ya existe una hoja para la fecha actual"
End If

End Sub


Buenas, la macro sería algo así, espero entiendas algo de esta para poder modificarla a tu gusto  ;)

Si te manejas más o menos con estas entonces sabrás que para ejecutarlas o bien lo haces desde el editor de visual basic (integrado en el office), desde el listado de macros, desde un botón con la macro asignada, o bien lo metes en:

Código (vb) [Seleccionar]
Private Sub Workbook_Open()
'Aqui el resto
End Sub

Y de este modo se ejecuta en cada apertura del libro  :P

Saludos
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD

"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein