Double Numbers

[smandula]

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

 

[Tushar Mehta]

Don't need VBA. Use XL's conditional formatting. Select the entire
range (suppose it is A1:F1), then Format | Conditional Formatting...
From the first drop down box select 'Formula Is' and in the adjacent
textbox enter =COUNTIF($A$1:$F$1,A1)>1. Click the Format... button and
set the desired format.

--
Regards,

Tushar Mehta
www.tushar-mehta.com
Excel, PowerPoint, and VBA add-ins, tutorials
Custom MS Office productivity solutions

 

[Damien McBain]

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

 

[smandula]

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!