necesito hacer un formulario de busqueda en excel que busque un dato ingresado en un textbox y al encontrarlo me de un msj con la informacion que esta ingresada en la misma fila pero 21 columnas mas a la derecha
Tengo lo siguiente
Private Sub CommandButton5_Click()
If TextBox5 = "" Then
MsgBox "Ingresar RUT"
Else
docid = TextBox5.Value
With Worksheets("hoja1").Cells
Set dato = .Find(docid)
If Not dato Is Nothing Then
MsgBox dato.Offset(0, 21)
Else
MsgBox "No se encontró registro"
End If
End With
End If
End Sub
funciona, pero el problema es que si ese RUT se encuentra ingresado en la planilla mas de una vez, solo me muestra el primer resultado encontrado y necesito que me los vaya mostrando todos, uno por uno...y no doy con la solucion :apthy:
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Estimados
necesito hacer un formulario de busqueda en excel que busque un dato ingresado en un textbox y al encontrarlo me de un msj con la informacion que esta ingresada en la misma fila pero 21 columnas mas a la derecha
Tengo lo siguiente
Private Sub CommandButton5_Click()
If TextBox5 = "" Then
MsgBox "Ingresar RUT"
Else
docid = TextBox5.Value
With Worksheets("hoja1").Cells
Set dato = .Find(docid)
If Not dato Is Nothing Then
MsgBox dato.Offset(0, 21)
Else
MsgBox "No se encontró registro"
End If
End With
End If
End Sub
funciona, pero el problema es que si ese RUT se encuentra ingresado en la planilla mas de una vez, solo me muestra el primer resultado encontrado y necesito que me los vaya mostrando todos, uno por uno...y no doy con la solucion :apthy: