Ir a la fecha al abrir
Hola valedor !
Gracias por el tiempo que me dedicas. Esto del excel es una pasada aunque soy bastante principiante.
Hace días que le doy vueltas a una cosa y me pregunto sí me puedes echar una mano.
Tengo un fichero excel que es como un fichador. En la primera columna de cada libro tengo puestas fechas (Columna A.- Libro 1 (Enero).- Del 1 al 30 de Enero
Columna A.- Libro 2 (Febrero).- Del 1 al 28 de febrero.
Al abrir este fichero me gustaría que fuese el cursor a la fecha que es ese día. Por ejemplo que al abrirlo hoy se fuera a 13 de Enero.
No sé mucho de macros ni de visual, pero quizás puedas orientarme.
Un saludo desde Gerona y gracias por tu tiempo
Winnie the Pooh
Gracias por el tiempo que me dedicas. Esto del excel es una pasada aunque soy bastante principiante.
Hace días que le doy vueltas a una cosa y me pregunto sí me puedes echar una mano.
Tengo un fichero excel que es como un fichador. En la primera columna de cada libro tengo puestas fechas (Columna A.- Libro 1 (Enero).- Del 1 al 30 de Enero
Columna A.- Libro 2 (Febrero).- Del 1 al 28 de febrero.
Al abrir este fichero me gustaría que fuese el cursor a la fecha que es ese día. Por ejemplo que al abrirlo hoy se fuera a 13 de Enero.
No sé mucho de macros ni de visual, pero quizás puedas orientarme.
Un saludo desde Gerona y gracias por tu tiempo
Winnie the Pooh
1 respuesta
Respuesta de valedor
1
Lo que quieres es sencillo, el requisito indispensable en el código que te anexo es que los meses estén en orden de izquierda a derecha Enero... Diciembre...
Option Explicit
Private Sub Workbook_Open()
On Error Resume Next
Worksheets(Month(Now)).Select
Cells(Day(Now), 1).Activate
End Sub
Este código lo tienes que copiar "dentro" del libro donde quieras que funciones, pero como mencioanas que sabes mucho de macro, puedes solicitar el ejemplo a mi correo y si es lo que quieres te agradeceré si finalizas esta pregunta, saludos desde México...
Mauricio Baeza
Todo lo que no es dado es perdido
Mbs A inbox P net
Quita los espacios y sustituye A = @ y P = .
Option Explicit
Private Sub Workbook_Open()
On Error Resume Next
Worksheets(Month(Now)).Select
Cells(Day(Now), 1).Activate
End Sub
Este código lo tienes que copiar "dentro" del libro donde quieras que funciones, pero como mencioanas que sabes mucho de macro, puedes solicitar el ejemplo a mi correo y si es lo que quieres te agradeceré si finalizas esta pregunta, saludos desde México...
Mauricio Baeza
Todo lo que no es dado es perdido
Mbs A inbox P net
Quita los espacios y sustituye A = @ y P = .
