Change cell value next to shape location

[dravanderkruk]

Hello everyone,

I hope someone can help me. I have a column with a round shape in every cell. Now I have written a macro that changes the color of the shape you click on. Now I also want the value of the cell, next to the cell the shape is in, to change value at that same time.

For example: I click the shape. Shape turns green and cell value next to the shape gets a 1.

How do I do this?

Thank you in advance.

[MickG]

Place this sub in a basic Module:-

Please Login or Register  to view this content.

Then select each Shape, Right Click on shape, select "Assign Macro", Macro Dialog box appears, Select code name "Color", selct OK.
When you the click the Shape , colour changes and also related cell Number.

[dravanderkruk]

Oh I see now if I use the .TopLeftCell.Value and combine it with .Offset(0,1) then I can set a value in a cell.
Thanks!