asked on
Private Sub replace_value_Click()
Dim i As Long
Dim LastRow As Long
Dim Found As Boolean
If Len(Trim(search.Text)) = 0 Then Exit Sub
For i = 1 To MSHFlexGrid1.Rows - 1
If search.Text = Mid(MSHFlexGrid1.TextMatrix(i, 2), 1, Len(Trim(search.Text))) Then
LastRow = i
Found = True
If Found = True Then
MSHFlexGrid1.TextMatrix(i, 2) = replace.Text
Exit Sub
Else
End If
End If
Next
End Sub
VB6-search.zip