Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Double Numbers
Need to find duplicate or double numbers per row. Such as
1 2 3 4 5 5 6 7 in which 5 5 are double numbers in error highlite 5 5 in color, move on to the next set of error double numbers. I would like a range of numbers 1 to 70 to be checked at once. The problem is in "MyValue = 1 to 70" Sub LookDoubleAgain() Dim x As Range ' MyValue = Range("A1") MyValue = CInt(MyValue) With Sheets("Sheet1") Set x = .Range(.Range("C2"), .Range("V2201")) End With For Each c In x If c.Value = MyValue Then If c.Value = c.Offset(0, 1).Value Then Range(c, c.Offset(0, 1)).Select With Selection.Interior .ColorIndex = 15 .Pattern = xlSolid End With End If End If Next 'Range("A1").Select End Sub With Thanks Steve |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Double Numbers
"smandula" wrote in message
... Need to find duplicate or double numbers per row. Such as 1 2 3 4 5 5 6 7 in which 5 5 are double numbers in error highlite 5 5 in color, move on to the next set of error double numbers. I would like a range of numbers 1 to 70 to be checked at once. The problem is in "MyValue = 1 to 70" Sub LookDoubleAgain() Dim x As Range ' MyValue = Range("A1") MyValue = CInt(MyValue) With Sheets("Sheet1") Set x = .Range(.Range("C2"), .Range("V2201")) End With For Each c In x If c.Value = MyValue Then If c.Value = c.Offset(0, 1).Value Then Range(c, c.Offset(0, 1)).Select With Selection.Interior .ColorIndex = 15 .Pattern = xlSolid End With End If End If Next 'Range("A1").Select End Sub howzabout for each c in range("A1:G70") 'or whatever range you want to evaluate if c.value = cells(c.row, c.column+1).value then do your colour changes else next c end if end for |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Double Numbers
Looks like I solved the Question myself.
Usefull if you enter the same number twice on the same row. It's esay to do Sub LookDoubleAgain() For Each c In Range("C2:V2201") If c.Value = Cells(c.Row, c.Column + 1).Value Then Range(c, c.Offset(0, 1)).Select With Selection.Interior .ColorIndex = 15 .Pattern = xlSolid End With End If Next Range("A1").Select End Sub Hopes this helps someone! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
sustain numbers with double quotes | Excel Discussion (Misc queries) | |||
How does one double sequential numbers in rows? | Excel Discussion (Misc queries) | |||
recognizing double digit numbers in code | Excel Discussion (Misc queries) | |||
double axis, double problem (i hope only to me) | Charts and Charting in Excel | |||
Macro to mark double numbers in another colour. | Excel Programming |