Foro Excel

ivanmolina · por **ivanmolina** » 21 Jun 2006 07:18

Tengo que hacer un libro con una hoja DIARIO, para cada día del mes, en la que hay que anotar cada día cierta cantidad. Por defecto, sólo DIARIO 1 -el primer día del mes- estará visible, y cuando tenga que trabajar con otro día, a través de un formulario en el que aparecen los 31 posibles días del mes, seleccionaría el que necesito (XX) y una macro abriría la hoja (hasta ahora no visible) DIARIO XX.

El problema es doble:
â€” tendría que tener en el libro â€“aunque no estén visibles- 31 hojas, muchas de las cuales no voy a utilizar;
â€” el formulario también sería enorme, para contemplar los 31 posibles días del mes.

Para evitar que el libro ocupe demasiado tamaño, y para simplificar el código del mismo, necesito una macro que, al ejecutarla, haga lo siguiente:
1Âº. Una copia de la hoja DIARIO 1, que deberá renombrar a DIARIO 2 (en sucesivas instancias debería copiarla y renombrarla como DIARIO 3, etc.), y seleccionar esta hoja.
2Âº. Abrir el formulario con dos únicos campos, el número del día correspondiente y la cantidad a introducir.
3Âº. Pasar los datos del formulario a la última hoja DIARIO X, que deberá ser la que está activa.

opermty · por **opermty** » 15 Jul 2006 09:13

Estamos pendientes aun

Por ahora solo estamos con lo de las hojas y la seleccion a travez de una barra personalizada

Saludos

GR · por GR » 15 Jul 2006 15:40

HOLA BUEN DIA A TODOS

OPERMTY SERIA POSIBLE QUE PUEDIERAS PROPORCIONAR LA CLAVE (CONTRASEÑA) PARA PODER VER EL CODIGO.

GRACIAS

opermty · por **opermty** » 16 Jul 2006 18:16

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Menu").Delete
End Sub

Private Sub Workbook_Open()
If Worksheets.Count = 1 Then Call aviso
If Worksheets.Count = 1 Then Sheets(1).Select: Call MenuBar: Exit Sub
Call MenuBar
Call seleccion
End Sub

Sub inicializa()
Application.ScreenUpdating = False
If Sheets.Count = 1 Then Sheets(1).Name = "Diario" & Sheets.Count: Exit Sub
Application.DisplayAlerts = False
For i = 1 To Worksheets.Count
Worksheets(i).Visible = True
Next i
For Each ws In Worksheets
If Worksheets.Count < 2 Then Sheets(1).Name = "Diario" & Sheets.Count: Exit Sub
ws.Delete
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Sub nuevas()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
If Worksheets.Count = 31 Then Exit Sub
If Worksheets.Count > 1 Then Exit Sub
For i = 2 To 31
Worksheets.Add(, Sheets(Sheets.Count)).Name = "Diario" & i
Next i
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Call seleccion
End Sub
Sub seleccion()
Dim aws
On Error Resume Next
midia = Day(Date)
aws = "Diario" & midia
For Each ws In Worksheets
ws.Visible = True
If ws.Name <> aws Then ws.Visible = False
Next ws
Sheets(aws).Select
End Sub

Sub aviso()
respuesta = MsgBox("El libro contiene : " & Worksheets.Count & " hoja(s), desea agregar hojas", vbYesNo, "Seleccione una opción")
If respuesta = vbYes Then Call nuevas
If Worksheets.Count > 1 Then Call seleccion
End Sub

A grandes rasgos este es el codigo sin la barra de menus

Saludos
[/u][/i][/b][/align][/tt][/table]

opermty · por **opermty** » 16 Jul 2006 18:44

Una pequeña modificacion de la barra

Foro Excel

Macro para copiar hojas... y más

Macro para copiar hojas... y más

Re: Macro para copiar hojas... y más

Re: Macro para copiar hojas... y más

Re: Macro para copiar hojas... y más

Re: Macro para copiar hojas... y más

¿Quién está conectado?