Instrucción BV Excel que busque un dato y se posicione ahí
Tengo un Userform con un campo de texto tipo fecha. Se debe buscar le fecha tecleada dentro de la hoja activa y posicionar el cursor en el dato encontrado.
1 Respuesta
Respuesta de Elsa Matilde
3
Te dejo una macro que en mi ejemplo se ejecuta desde un botón de comando, pero bien puede ser al cambio en ese control que tengas para fecha.
Private Sub CommandButton1_Click()
'si el control queda vacío no se ejecuta
If TextBox1 = "" Then Exit Sub
'se convierte texto en fecha
dato = CDate(TextBox1.Value)
'se busca ese dato en col A 'AJUSTAR
Set busco = ActiveSheet.Range("A:A").Find(dato, LookIn:=xlValues, lookat:=xlWhole)
'si la fecha fue encontrada se posiciona en la col A de esa fila
If Not busco Is Nothing Then Range("A" & busco.Row).Select
End Sub
Si necesitas ayuda para adaptarla a tu modelo pasame todos los detalles necesarios.
