Buscar datos
Hola Elsa.
Necestido colocar en u UserForm un botón "Buscar", el cual debe buscar el valor que se introduzca en un TexBox (TexCodigo), si lo encuentra entonces que me active la celda en la que se encuentra de lo contrario devolver un MsgBox.
Rango A1:A5000
Muchas Gracias
Necestido colocar en u UserForm un botón "Buscar", el cual debe buscar el valor que se introduzca en un TexBox (TexCodigo), si lo encuentra entonces que me active la celda en la que se encuentra de lo contrario devolver un MsgBox.
Rango A1:A5000
Muchas Gracias
1 Respuesta
Respuesta de Elsa Matilde
1
La rutina para ese botón es la siguiente:
Private Sub cmdBuscar_Click()
rango = "A1:A5000"
abuscar = Val(txtCodigo.Value) 'txtCodigo es el nombre del textbox
Set micodigo = ActiveSheet.Range(rango).Find(abuscar, LookIn:=xlValues, LookAt:=xlWhole)
If micodigo Is Nothing Then
MsgBox "NO ENCONTRADO"
Else
ubica = micodigo.Address(False, False)
Range(ubica).Select
Me.Hide
End If
Set micodigo = Nothing
End Sub
Chau, no olvides finalizar la consulta.
Private Sub cmdBuscar_Click()
rango = "A1:A5000"
abuscar = Val(txtCodigo.Value) 'txtCodigo es el nombre del textbox
Set micodigo = ActiveSheet.Range(rango).Find(abuscar, LookIn:=xlValues, LookAt:=xlWhole)
If micodigo Is Nothing Then
MsgBox "NO ENCONTRADO"
Else
ubica = micodigo.Address(False, False)
Range(ubica).Select
Me.Hide
End If
Set micodigo = Nothing
End Sub
Chau, no olvides finalizar la consulta.
Hola.
El código marca un error en la linea
rango = "A1:A5000"
Y le he hecho algunas modificaciones pero noconsigo que ande.
Muchas gracias
El código marca un error en la linea
rango = "A1:A5000"
Y le he hecho algunas modificaciones pero noconsigo que ande.
Muchas gracias
La causa posible es que tengas que estés obligado a definir las variables. En ese caso falta:
Dim rango as string
Como es una rutina parte de otras fíjate que no tengas otra variable con ese mismo nombre.
Dim rango as string
Como es una rutina parte de otras fíjate que no tengas otra variable con ese mismo nombre.
