Buscar fecha aproximada y seleccionar vba

Quería consultarle como realizar una búsqueda de una fecha y si no existe que encuentre la más próxima (antes o después). La fecha a buscar la tengo en un combobox y el rango de fechas a buscar están situadas todas en el primer renglón (encabezado). Encontrando la fecha o su más próxima, debe quedar seleccionado.

1 Respuesta

Respuesta
1

H o l a:

Te anexo la macro

Private Sub CommandButton1_Click()
'Por.Dante Amor
    If Not IsDate(ComboBox1) Then Exit Sub
    '
    fec = CDate(ComboBox1)
    x = 1
    n = Cells(1, Columns.Count).End(xlToLeft).Column
    Do While True
        For i = 1 To n
            If Cells(1, i) = fec Then
                Cells(1, i).Select
                Exit Do
            End If
        Next
        If ban Then
            fec = fec + x
            ban = False
        Else
            fec = fec - x
            ban = True
        End If
        x = x + 1
    Loop
End Sub

':)
'S aludos. D a n t e   A m o r . R ecuerda valorar la respuesta. G racias
':)

Buenos días Dante, ¿cómo estas? Como siempre, muchas gracias por tu predisposición. Te comento que no me corre tu macro, queda como colgado unos instantes y luego solo selecciona a1. a tu código lo cambie de combobox a textbox solamente para la prueba, te adjunto el archivo. las fechas estan extraidas de la celda de abajo con la formula =derecha(j2;10)

Te adjunto link para que veas una muestra.

Agrardo tu comentario.

https://app.box.com/s/fvofvo4wp94qiigjzhcjt6fsxo1dksj5 

La macro funciona con fechas que tengas en las celdas, realiza la prueba con fechas, quita las fórmulas y pon fechas.

También revisa que lo que captures en el textbox sea una fecha con formato "dd/mm/aaaa", ejemplo "18/03/2016"

Si todavía tienes problemas, envíame tu archivo, recuerda poner tu nombre en el asunto del correo.

El archivo esta en el siguiente link:

https://app.box.com/s/fvofvo4wp94qiigjzhcjt6fsxo1dksj5 

Las fechas ya están sin fórmulas, extraje la fecha de, por ejemplo, J2 y luego le quite las fórmulas. las fechas estan en formado AAAA/MM/DD.

Las fechas tienen que estar, como te comenté, en dd/mm/aaaa y el textbox también deberá tener ese formato. Prueba nuevamente.

No puedo descargar el archivo, envíamelo a mi correo.

En el asunto del correo escribe tu nombre de usuario “Paulo Pareja” y el título de esta pregunta.

¿Me envías tu correo?

Mi correo [email protected]

En el asunto del correo escribe tu nombre de usuario “Paulo Pareja” y el título de esta pregunta.

Ya le envíe el archivo.

Gracias.

Tienes que poner fechas en la fila 1, lo que tienes son textos.

La macro funciona desde el principio, solamente que no tenías fechas.


':)
':)

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas