............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

ABRIR LIBRO POR LA HOJA CON NOMBRE DE LA FECHA ACTUAL

Ver el tema anterior Ver el tema siguiente Ir abajo

ABRIR LIBRO POR LA HOJA CON NOMBRE DE LA FECHA ACTUAL

Mensaje por davidsagal el Miér Ene 05, 2011 12:10 pm

Hola amigos. Tengo un libro por cada mes del año. Cada libro contiene tantas hojas como dias tiene ese mes...(es decir, 01-01-11; 02-02-11...)Quisiera que al abrir el libro de "Enero", p.ej. me situara en la hoja que corresponde a ese dia del mes. Tendria que utilizar una macro, verdad?
Muchas gracias.
pd. Feliz Año Nuevo a todo el Mundo.

davidsagal

Masculino Cantidad de envíos : 19
Edad : 40
Ciudad - Pais : ESPAÑA
Version de Excel : 2010
Fecha de inscripción : 05/01/2011

Volver arriba Ir abajo

Re: ABRIR LIBRO POR LA HOJA CON NOMBRE DE LA FECHA ACTUAL

Mensaje por moises melgar el Miér Ene 05, 2011 4:25 pm

hola amigo
si se necesitaria una macro escribo un ejemplo sencillo:

Código:
Private Sub Workbook_Open()
Dim Hoy As Date
Hoy = Format(Now(), "dd-mm-yyyy")
If Month(Hoy) = Month(Hoja1.Name) Then
    For Each s In Sheets
        Select Case s.Name
        Case Hoy
            s.Activate
        End Select
    Next s
        If ActiveSheet.Name <> Hoy Then
                Sheets.Add After:=Sheets(Sheets.Count)
                    ActiveSheet.Name = Format(Now(), "dd-mm-yyyy")
                    ActiveSheet.Range("A1").Select
        End If
Else: MsgBox "este libro no contiene la hoja con fecha de " & Format(Now(), "dd-mm-yyyy")
End If
End Sub

adjunto un ejemplo un poco mas complejo


avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 551
Edad : 29
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: ABRIR LIBRO POR LA HOJA CON NOMBRE DE LA FECHA ACTUAL

Mensaje por moises melgar el Miér Ene 05, 2011 4:32 pm

el archivo adjunto tiene dos condicionantes este verifica la fecha de la hoja uno para ver si se abre el libro con las fechas del mes actual, si se abre el libro en un mes distinto a enero este arroja un mensaje sobre que no seencuentra la hoja con la fecha actual, ahora si es enero y la hoja del dia de hoy no existe este se creara solo y se activara en ella.
eso es todo
cuidate bye
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 551
Edad : 29
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: ABRIR LIBRO POR LA HOJA CON NOMBRE DE LA FECHA ACTUAL

Mensaje por davidsagal el Dom Ene 09, 2011 8:43 am

Gracias. Funciona perfectamente. Ahora tengo un problema añadido Moisés. Quiero poner un condicional para que AL ABRIR EL LIBRO, si en A1 o B1 o C1 o D1 están en BLANCO, me abra un Userform, que ya tengo hecho. El problema es que lo he probado y no me funciona, es decir, aunque No estén en Blanco, no abre el Userform. Donde tengo que colocar la condición? Mira el ejemplo que no funciona:
Private Sub Workbook_Open()
Dim Hoy As Date
Dim VALOR1, VALOR2, VALOR3 as Range
VALOR1 =activesheet.range("a1").value
VALR2=activesheet.range("b1").value
VALOR3=activesheet.range("c1").value
Hoy = Format(Now(), "dd-mm-yyyy")
'If Month(Hoy) = 'Month(Hoja1.Name) Then
    For Each s In Sheets
        Select Case s.Name
        Case Hoy
            s.Activate
If VALOR1<>"" or VALOR2<>""or VALOR3<>"" then
Userform.show
End If
        End Select
    Next s
End sub

davidsagal

Masculino Cantidad de envíos : 19
Edad : 40
Ciudad - Pais : ESPAÑA
Version de Excel : 2010
Fecha de inscripción : 05/01/2011

Volver arriba Ir abajo

Re: ABRIR LIBRO POR LA HOJA CON NOMBRE DE LA FECHA ACTUAL

Mensaje por GalileoGali el Dom Ene 09, 2011 9:38 am

Código:
Private Sub Workbook_Open()
Dim Hoy As Date
Hoy = Format(Now(), "dd-mm-yyyy")
'If Month(Hoy) = 'Month(Hoja1.Name) Then
    For Each s In Sheets
        Select Case s.Name
        Case Hoy
            s.Activate
If Application.countA(Range("A1:D1")< 4  then Userform1.show
        End Select
    Next s
End sub.

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: ABRIR LIBRO POR LA HOJA CON NOMBRE DE LA FECHA ACTUAL

Mensaje por davidsagal el Lun Ene 10, 2011 7:03 am

Ahora Sí funciona. Pero me gustaría saber porque el método que yo incluí No?
Donde esta el fallo amigos?
Gracias

davidsagal

Masculino Cantidad de envíos : 19
Edad : 40
Ciudad - Pais : ESPAÑA
Version de Excel : 2010
Fecha de inscripción : 05/01/2011

Volver arriba Ir abajo

Re: ABRIR LIBRO POR LA HOJA CON NOMBRE DE LA FECHA ACTUAL

Mensaje por GalileoGali el Lun Ene 10, 2011 7:46 am

Haz correr la Macro "Paso a Paso" con F8, y fíjate donde se traba el proceso, por lo general tu analisis no puede ser global, "ESTO NO FUNCIONA", sino que debes asumir un rol analítico, para presentar tu problema "ítem por item"

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: ABRIR LIBRO POR LA HOJA CON NOMBRE DE LA FECHA ACTUAL

Mensaje por davidsagal el Lun Ene 10, 2011 11:12 am

El ejemplo que puse yo no es que se trabe Gali, la macro la ejecuta, simplemente es que cuando ese rango (<> "") la primera vez que abre el libro no lo ejecuta y la segunda si. Esto es precisamente lo que me confunde...

davidsagal

Masculino Cantidad de envíos : 19
Edad : 40
Ciudad - Pais : ESPAÑA
Version de Excel : 2010
Fecha de inscripción : 05/01/2011

Volver arriba Ir abajo

Re: ABRIR LIBRO POR LA HOJA CON NOMBRE DE LA FECHA ACTUAL

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.