Selecting rows in a matrix

This code contains your solution.

It iterates over each line in a SYSTEM matrix, and tests for a value in a column. If the value in the column is in a list, it will select that row by executing a 'Click' on the first column in the list.

It has multiple selection logic in it as well, as more than one row in the list may be valid.

NumberOfReceiptsFoundInMatrix = 0

For RowIndex = 1 To ReceiptMatrix.RowCount

Debug.Print ReceiptMatrix.Columns("DocNum").Cells(RowIndex).Specific.Value

If ExistsInCollection(CLng(ReceiptMatrix.Columns("DocNum").Cells(RowIndex).Specific.Value), ReceiptNumbers) = True Then

If NumberOfReceiptsFoundInMatrix = 0 Then

'

' Single select

'

Call ReceiptMatrix.Columns(1).Cells(RowIndex).Click(ct_Regular)

Else

'

' Multiple select for all further Receipts

'

Call ReceiptMatrix.Columns(1).Cells(RowIndex).Click(ct_Regular, mt_CTRL)

End If

'

' Track the number of Receipts that have been found, so the searching can stop once all

' the Receipts have been selected.

'

NumberOfReceiptsFoundInMatrix = NumberOfReceiptsFoundInMatrix + 1

End If

If NumberOfReceiptsFoundInMatrix = ReceiptNumbers.Count Then

'

' Break out of for loop early if all of the Receipts have been found.

'

Exit For

End If

Next RowIndex