Claudia, utilza esta sentencia en un boton buscar y te deberia funcionar.
Dim i As Long
Dim Cadena As String
Dim DesdePos As Long
If TextBuscarNom.Text <> "" Then
Cadena = TextBuscarNom.Text
For i = 1 To GrillaChequesTerceros.Rows - 2
If Mid(GrillaChequesTerceros.TextMatrix(i, 4), 1, 1) =
Mid(Cadena, 1, 1) Then
GrillaChequesTerceros.row = i
GrillaChequesTerceros.RowSel = i
GrillaChequesTerceros.ColSel = 7
GrillaChequesTerceros.TopRow = i
Exit For
End If
Next i
Else
Mensaje "Debe ingresar texto para la búsqueda"
TextBuscarNom.SetFocus
End If
Saludos cordiales, Diego Spinedi
_____
De: [email protected] [mailto:[email protected]] En nombre de Claudia Abad
Enviado el: viernes, 23 de enero de 2009 19:32
Para: vbusers List Member
Asunto: [vbusers] MSHFlexgrid
Gente,
Ustedes siempre me salvan! A ver si me dan una mano con esto
Tengo una MSHFlexgrid y un textbox en un formulario
El usuario ingresa en el textbox el texto que quiere buscar en la grilla
si?
Bueno, lo que quiero lograr es que la grilla se mueva hasta la fila donde se
encontró el texto buscado.
Onda como hace el Excel cuando buscas algo.
Saben como hacerlo?
Desde ya, miles de gracias!!!
Claudia.
No virus found in this incoming message.
Checked by AVG - http://www.avg.com
Version: 8.0.176 / Virus Database: 270.10.13/1912 - Release Date: 23/01/2009
18:54
