Buscador fechas en CALENDARIO HORIZONTAL
Publicado por Quico (106 intervenciones) el 02/10/2019 07:04:44
Tengo un excel con una hoja llamada 'Calendario proyecto' en la que he montado en la fila 3, un CALENDARIO HORIZONTAL con muchos años.
El problema es que moverse en horizontal es un tanto engorroso.
Mi idea es poner 2 botones con macro:
Dado que la fechas recorren la fila hacia la derecha, definí el rango: Range("B3:MBS3").
Por el momento solo he intentado el botón que busca una fecha haciendo esto, pero no me funciona:
¿Cómo puedo establecer esa búsqueda?
¿Y la búsqueda de la fecha del sistema en otro botón?
Gracias
El problema es que moverse en horizontal es un tanto engorroso.
Mi idea es poner 2 botones con macro:
- 1 botón del tipo 'NOW' que reconozca la fecha del sistema y me lleve a la celda coincidente.
- 1 botón que me permita introducir una fecha en formato 01/08/2025 y me lleve a la celda coincidente.
Dado que la fechas recorren la fila hacia la derecha, definí el rango: Range("B3:MBS3").
Por el momento solo he intentado el botón que busca una fecha haciendo esto, pero no me funciona:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Buscar_Fecha()
Dim fcha As Range
Fecha = Application.InputBox("Ingrese la fecha", "Buscador de fechas")
With Worksheets("Calendario proyecto").Activate
'Range(Selection, Selection.End(xlToRight)).Select
Set fcha = .Range("B3:MBS3").Find(What:=Fecha, LookAt:=xToRight)
If Not fcha Is Nothing Then
fcha.Offset(, -1).Activate
End If
End With
End Sub
¿Cómo puedo establecer esa búsqueda?
¿Y la búsqueda de la fecha del sistema en otro botón?
Gracias
Valora esta pregunta
0