Help me out on VBA code

[dhkdwk7198]

Hi all,

I want to extract x-y coordinates of colored cells with specific value inside. Let's say there is cells filled with "A" and they are colored either red or green.
If I want to extract x-y coordinates for cells with "A" and green, what will be the VBA code?

Hope someone can help me on this!!

Thank you in advance.

 

[Gokhan Aycan]

I may not be able to follow up, but some questions...

x-y coordinates with respect to what (application, screen, A1 top-left)? And in what measurement (pixels, points)?

 

[dhkdwk7198]

I may not be able to follow up, but some questions...

x-y coordinates with respect to what (application, screen, A1 top-left)? And in what measurement (pixels, points)?

Thank you for fast response. I am looking for coordinates 1,1(A1), 2,1(B2), 3,1(B3), 1,2(A2), 2,2(B2), 3,1(B3) and so on.

 

[dhkdwk7198]

I may not be able to follow up, but some questions...

x-y coordinates with respect to what (application, screen, A1 top-left)? And in what measurement (pixels, points)?

Sorry there was typo. I am looking for coordinates 1,1(A1), 2,1(B1), 3,1(C1), 1,2(A2), 2,2(B2), 3,2(C2) and so on.

 

[Gokhan Aycan]

Range("C2").Row will give the row number (2)
Range("C2").Column will give the column number (3)

Actually .Row and .Column will give top and left cell of any range respectively.

You can check for the condition like (not an actual code):

If Range.Value = "A" and Range.Interior.Color = ColorCode then
    ' What to do
End If

Above Range.Value = "A" would be case sensitive.

You can get the color codes by selecting on of the colored cells and in Immediate window:
? ActiveCell.Interior.Color
or
? Selection.Interior.Color

? is the same as debug.print