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

Double Numbers
 

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

In article ,
says...
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

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

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!