En una hoja Excel saltar a celda dependiendo del día del año
En una hoja Excel, tengo un calendario escolar donde las filas son los meses del año y las columnas los días del mes.
¿Cómo puedo hacer para que el cursor salte automáticamente a la celda del día y mes actuales?
Muchas gracias por tu interés.
1 respuesta
Imagino que los meses empiezan en A2 (enero) y los días en B1 (día 1)
Entonces lo ideal sería colocar la macro en el evento Activate de la hoja (aunque podes colocarla en otro evento si te parece)
En el Editor, seleccioná con doble clic el objeto HOJA donde tengas este calendario y allí copiá estas líneas:
Private Sub Worksheet_Activate()
'x Elsamatilde
'guardo en variables el mes actual (+ 1 porque empiezo en fila 2)
mesi = Month(Date) + 1
diadi = Day(Date)
'busco en la fila 1 el nro de día y guardo su nro de columna
Set buscodia = Range("B1:AE1").Find(diadi, LookIn:=xlValues, lookat:=xlWhole)
'si el registro no está vacío (lo encontró) selecciona la celda
If Not buscodia Is Nothing Then
Cells(mesi, buscodia.Column).Select
