## Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.

• Help others & share knowledge
• Earn cash & points
Solved

# Find duplicated values in 4 columns MSHFlexgrid

Posted on 2014-01-14
293 Views
Hi All

I would like to indicate in column (1) if i have duplicated values in column (3) - (5) - (9) - (15).

With MSHFlexGrid1
.Col = 3
.Sort = flexSortGenericAscending
.ColSel = 5
.Sort = flexSortGenericAscending
.ColSel = 9
.Sort = flexSortGenericAscending
.ColSel = 15
.Sort = flexSortGenericAscending
.ColSel = 46
.Sort = flexSortGenericAscending
End With

Now if i have duplicated values, I want to had "DUPLICATE" in the column (1)

How can i do that?

Thanks again.
0
Question by:Wilder1626
• 2
• 2

LVL 45

Expert Comment

ID: 39781265
1. Do you need to search multiple rows for the possible duplicate values or will you only need to check the values in the specified columns on the same row?

2. What is the data you are storing in these three columns?
0

LVL 11

Author Comment

ID: 39781281
Hi aikimark

1. Do you need to search multiple rows for the possible duplicate values or will you only need to check the values in the specified columns on the same row?

Answer:  yes. I may have multiple rows with the same value.

Ex;

row 3
column 3 = TEST1

Column 5 = TEST2

column 9 = TEST3

column 15 = TEST4

row 15
column 3 = TEST1

Column 5 = TEST2

column 9 = TEST3

column 15 = TEST4

These 2 rows would be Duplicate since column 3 - 5 - 9 and 15 of both rows have same values.

2. What is the data you are storing in these three columns?

Answer: column 3 and 15 are all text and column 5 and 9 are numbers
0

LVL 45

Accepted Solution

aikimark earned 500 total points
ID: 39782949
1. change your sort code to limit the columns to those you are going to check for duplications
2. Loop through your rows, looking for duplicates, updating column 1
3. sort by col 46

========
Notes:
* determining duplicates should be relatively easy, since the values will be on adjacent rows.
* concatenate the values in the 3,5,9,15 columns and assign to a string variable.
* assign the concatenated value to a separate variable to minimize the number of concatenation operations.
* Include some delimiter character between the columnar values.
Example:
``````strCurrentRow = g.textmatrix(lngRow, 3) & "^" & g.textmatrix(lngRow, 5) & "^" & _
g.textmatrix(lngRow, 9) & "^" & g.textmatrix(lngRow, 15)
if strPriorRow = strCurrentRow Then
g.textmatrix(lngRow - 1, 1) = "Dup"
g.textmatrix(lngRow, 1) = "Dup"
End If
strPriorRow = strCurrentRow
``````
0

LVL 11

Author Closing Comment

ID: 39790702
Perfect thanks, i was able to follow your steps and now, it work.
0

## Featured Post

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

If you have ever used Microsoft Word then you know that it has a good spell checker and it may have occurred to you that the ability to check spelling might be a nice piece of functionality to add to certain applications of yours. Well the code that…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…