Hi All,
I found the code
Code:
Private Sub Command1_Click()
Dim target_name As String
Dim r As Integer
target_name = InputBox("PODAJ NAZWĘ", "NAZWA", "")
If Len(target_name) = 1 Then Exit Sub
target_name = LCase$(target_name)
For r = 1 To MSHFlexGrid1.Rows - 1
If LCase$(MSHFlexGrid1.TextMatrix(r, 7)) = target_name Then
MSHFlexGrid1.Row = r
MSHFlexGrid1.RowSel = r
MSHFlexGrid1.Col = 0
MSHFlexGrid1.ColSel = MSHFlexGrid1.Cols - 1
MSHFlexGrid1.TopRow = r
Exit Sub
End If
Next r
Beep
End Sub
The code works fine, but the condition introduced in InputBox shows me the first line in MSHFLEXGRID selected search words and I want to see all. Exit Sub I removed, but showed last line, which satisfies the condition. Can you help me?