Range & variable problem

Use "Cells":

Cells(Row,Column).Select
Selection.ColorIndex = ....

Hope this helps,

Russell

Hi Russell,
I still have the problem. Now the error is 'Run-time Error 1004. Application defined or object defined error.

This is the code.Did I make any silly mistake ? Thanks for the help
--------------------------
Dim FirstRowNum As Long
Dim FirstNumber As Long
Dim SecondRowNum As Long
Dim SecondNumber As Long
Dim ThirdRowNum As Long
Sub GetNumber()
For FirstRowNum = 1 To 10
FirstNumber = Cells(FirstRowNum, 1)
For SecondRowNum = 1 To 10
SecondNumber = Cells(SecondRowNum, 2)
If FirstNumber = SecondNumber Then AddNum
test
Next SecondRowNum
Next FirstRowNum
End Sub

Sub AddNum()
ThirdRowNum = ThirdRowNum + 1
Cells(ThirdRowNum, 3) = FirstNumber
End Sub

Sub test()
'
' test Macro
' Macro recorded 7/16/2001 by Raj
'

'
Cells(FirstRowNum, SecondRowNum).Select

With Selection.Interior
.ColorIndex = 27
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End Sub

Well, your AddNum function won't know what firstnum or any of the other variables in your first function are. Can you tell me exactly what you are trying to do? test Macro Macro recorded 7/16/2001 by Raj ' With Selection.Interior .ColorIndex = 27 .Pattern = xlSolid .PatternColorIndex = xlAutomatic End With

Russell,

Well basically this is only a test and if I succeed, I will work on something bigger. Just trying to understand the syntax and logic.

Basically I am comparing a set of numbers ( from A1 to A10 ) against another set of numbers ( B1 to B10 ). Should there be any numbers from B1:B10 that matches the numbers in A1:A10, I just want to select that cell ( must be in col B ) and change the color.That's all.

Cheers !

Ok, so you are checking cell A1 against all the cells between B1 and B10 to see if it matches any of them, right? Then you're doing the same with A2? If so, this should work:

For intI = 1 to 10

CellOneValue = Cells(intI, 1).Value

For intJ = 1 to 10

If Cells(intJ, 2) = CellOneValue Then
' Change color
Cells(intI, 1).Select
' Selection.CHANGE COLOR HERE

Exit For ' You've matched, so you don't need to keep checking

End If

Next intJ

Next intI

Russell, Well basically this is only a test and if I succeed, I will work on something bigger. Just trying to understand the syntax and logic. Basically I am comparing a set of numbers ( from A1 to A10 ) against another set of numbers ( B1 to B10 ). Should there be any numbers from B1:B10 that matches the numbers in A1:A10, I just want to select that cell ( must be in col B ) and change the color.That's all. Cheers !

One change

Change one line:

If Cells(intJ, 2).Value = CellOneValue Then Ok, so you are checking cell A1 against all the cells between B1 and B10 to see if it matches any of them, right? Then you're doing the same with A2? If so, this should work: For intI = 1 to 10 CellOneValue = Cells(intI, 1).Value For intJ = 1 to 10 If Cells(intJ, 2) = CellOneValue Then Change color

It Works !! Thanks

Russell,

Cheers mate, it works perfectly. Now I need to include this in the bigger program.

As mentioned before you guys are great ! Who do you guys work for anyway - Ivan, Melc etc ?

Thanks.