Foro Excel

Hola.

Tengo varias plantillas en el trabajo que tiene al inicio una hoja resumen con los diferentes meses y varios datos. Me gustaría saber si se puede especificar que se abra el libro siempre en esa página y en el mes correspondiente según la fecha actual. Dejo un ejemplo para dejarlo mas claro.

Hola, examina el adjunto, probalo cambiando el mes del sistema (PC).

Gracias Adrian.

Me podrías comentar los pasos. Es lo que necesitaba sin más.
Una consulta, ¿ahora el archivo excel tendrá siempre en el icono ese aviso amarillo?
Gracias nuevamente.


Option Explicit

Private Sub Workbook_Open()
Application.ScreenUpdating = False
On Error GoTo x
Hoja1.Select
Columns("A:A").Select
Selection.Find(What:=MonthName(Month(Date)), After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Select
Application.ScreenUpdating = True
Exit Sub
x:
'Si se borra algún mes (por las dudas)
Application.ScreenUpdating = True
MsgBox "verifique nombre de los meses", 64, ""
End Sub

Hola,

Código: Seleccionar todo

Option Explicit 'obliga a declarar las variables

Private Sub Workbook_Open()
Application.ScreenUpdating = False '  "apaga" el parpadeo que se produce al seleccionar celdas o rango o moverse por hoja
On Error GoTo x ' si ocurre un error va donde esta la x (o cualquier otra letra o letras)
Hoja1.Select 'selecciono la primera hoja
Columns("A:A").Select 'selecciono columna A donde voy a buscar
Selection.Find(What:=MonthName(Month(Date)), After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate 'busca el mes (en letras) y si lo encuentra se "para" ahí
ActiveCell.Select 'selecciono la celda activa
Application.ScreenUpdating = True "prende"
Exit Sub 'siempre que se usa on error hay un exit sub
x:
'Si se borra algún mes (por las dudas) 'si se produjo un errror hace esto
Application.ScreenUpdating = True
MsgBox "verifique nombre de los meses", 64, ""
End Sub

Pero es poco fructifero que te ponga comentario SINO te pones a estudiar con un manual o ayuda de VBA los comandos.

Esto es un libro con macro y depende como se configure excel saldrá ee cartel, pero eso es otro tema y largo.

Hola Adrian.

Gracias por tus respuestas. No soy un profesional de excel, pero estoy estudiando formulas y macros con dos manuales. Por eso me ha venido muy bien que me comentes como funciona la macro.

Repasando el archivo, me ha surgido una duda:
Al abrir el archivo (previo cambio de la fecha en el pc, ej: junio) sale el mes seleccionado pero no se se sube para mostrarlo en la parte superior de la hora. Es decir, si junio está en A40, que esta se desplace para verlo en la parte superior. Así los usuarios se la encuentran arriba.

Espero que se entienda, te mando el archivo con el ejemplo.

Gracias por tu interés y si sabes de algún tutorial o manual para estudiar estas cosas, coméntamelo.

Pueba así:

Código: Seleccionar todo

Private Sub Workbook_Open()
Application.ScreenUpdating = False
On Error GoTo x
Hoja1.Select
Columns("A:A").Select
Selection.Find(What:=MonthName(Month(Date)), After:=ActiveCell, LookIn:=xlFormulas, _
 LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
 MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Select
[b]ActiveWindow.ScrollRow = ActiveCell.Row[/b]
Application.ScreenUpdating = True
Exit Sub
x:
'Si se borra algún mes (por las dudas)
Application.ScreenUpdating = True
MsgBox "verifique nombre de los meses", 64, ""
End Sub


Donde dice:
[ b ]ActiveWindow.ScrollRow = ActiveCell.Row [ / b ]

se pone solo
ActiveWindow.ScrollRow = ActiveCell.Row

OTRA FORMA:

Application.GoTo Range("A" & ActiveCell.Row), True

Gracias de nuevo Adrian.

Esto me servirá para muchos archivos del trabajo, así, cada vez que un usuario consulte el archivo o lo edite, no tendrá que buscar entre los doce meses. Lo había solucionado poniendo un calendario en las cabeceras y ca cada mes un link interno, pero al abrir así es más útil.

Gracias por tu tiempo y tu interés.