2
Contributors
2
Replies
7
Views
3 Years
Discussion Span
Last Post by Aurax
Featured Replies
  • 1

    This should working : Private Sub Command1_Click() xSearch = Text1.Text For i = 0 To Grid.Rows - 1 If xSearch = Grid.TextMatrix(i, 1) Then Grid.Row = Grid.TextMatrix(i, 1) For j = 1 To Grid.Cols - 1 Grid.Col = j Grid.CellBackColor = vbCyan Next j End If Next i End Sub Read More

1

This should working :

Private Sub Command1_Click()
xSearch = Text1.Text
For i = 0 To Grid.Rows - 1
    If xSearch = Grid.TextMatrix(i, 1) Then
        Grid.Row = Grid.TextMatrix(i, 1)
        For j = 1 To Grid.Cols - 1
            Grid.Col = j
            Grid.CellBackColor = vbCyan
        Next j
    End If
Next i
End Sub
Comments
Thanks!!!
This question has already been answered. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.