Control button to change cell(s) colour

[Boyyobach]

Hi,

I've got a spreadsheet where I'm using it to visually display data on a "plot plan".

I have various shapes on the plan and set up Message boxes so that they display what they are.

This is where I've go stuck, I also want the corresponding row to be highlighted ( the Row contains more data)

So basically what I want is:

- When the shape is clicked the corresponding row to be highlighted
- When the same shape is clicked again the row is "un"highlighted

Can this be done?

Any help would be appreciated.

Cheers

Cammy

 

[onlyadrafter]

Hello,

There must be a better way than this, specially if you have many 'shapes'. You can assign a macro to each shape

Sub SHAPE_1_COLOUR()
    If Range("A5").Interior.Color = vbRed Then
        Range("A5:D5").Interior.ColorIndex = xlNone
    Else
        Range("A5:D5").Interior.Color = vbRed
    End If
End Sub

Any use?

 

[Fluff]

You could assign this to each shape & it will fill the row containg the topleft corner of the shape

Sub Boyyoback()
   With ActiveSheet.Shapes(Application.Caller).TopLeftCell
      If Range("A" & .Row).Interior.Color = rgbGreen Then
         Rows(.Row).Interior.ColorIndex = xlNone
      Else
         Rows(.Row).Interior.Color = rgbGreen
      End If
   End With
End Sub

 

[Boyyobach]

Hello,

There must be a better way than this, specially if you have many 'shapes'. You can assign a macro to each shape

Sub SHAPE_1_COLOUR()
    If Range("A5").Interior.Color = vbRed Then
        Range("A5:D5").Interior.ColorIndex = xlNone
    Else
        Range("A5:D5").Interior.Color = vbRed
    End If
End Sub

Any use?

Good morning onlyadrafter, cheers for the quick reply

Ok added in a new shape to test the above code, and it works.

Brilliant work.

Cheers

Cammy