Criando eletrônico no excel

[Boudais]

Olá pessoal,

 

Estou tentando criar um catálogo de peças no excel.

Para facilitar o entendimento eu anexei um arquivo de exemplo e minha ideia é a seguinte: quando o usuário selecionar o item(coluna F), por exemplo, a célula F7(item 1), o balão ao lado indicando no desenho este item deve mudar de cor de fundo para vermelho, assim fica fácil para o usuário identificar qual item é o selecionado. Um problema que vejo é que, por exemplo no caso do item 3 (arruela, na célula F8) há 2 balões que indicam este item e neste caso os 2 precisaria mudar a cor do fundo para vermelho.

Se alguém tiver algum exemplo da VBA para fazer isso, por favor posta aqui.

 

Obrigado

 

Exemplo Catalogo eletrônico R0.xlsx

[Basole]

Boudais, segue em anexo o exemplo c/ vba.

 

Veja se é isso que precisa. 

 

abx. 

 

 

Exemplo Catalogo eletrônico R0-v1.zip

[Boudais]

Basole,

 

Valeu pela força. Eu modifiquei um pouco o código, pois a quantidade itens do catálogo é muito extensa em torno de 2000 itens.

Então o código ficou assim.

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  'Basole: http://forum.clubedohardware.com.br/forums/topic/1104573-criando-eletr%C3%B4nico-no-excel/
With Sheets("plan1")
Select Case Target.Address
Case Is = "$F$6"
.Shapes("Elipse 9").Fill.ForeColor.RGB = RGB(255, 0, 0)
Case Else
.Shapes("Elipse 9").Fill.ForeColor.RGB = RGB(255, 255, 255)
End Select
Select Case Target.Address
Case Is = "$F$7"
.Shapes("Elipse 8").Fill.ForeColor.RGB = RGB(255, 0, 0)
Case Else
.Shapes("Elipse 8").Fill.ForeColor.RGB = RGB(255, 255, 255)
End Select
Select Case Target.Address
Case Is = "$F$8"
.Shapes("Elipse 11").Fill.ForeColor.RGB = RGB(255, 0, 0)
.Shapes("Elipse 12").Fill.ForeColor.RGB = RGB(255, 0, 0)
Case Else
.Shapes("Elipse 11").Fill.ForeColor.RGB = RGB(255, 255, 255)
.Shapes("Elipse 12").Fill.ForeColor.RGB = RGB(255, 255, 255)
End Select
Select Case Target.Address
Case Is = "$F$9"
.Shapes("Elipse 10").Fill.ForeColor.RGB = RGB(255, 0, 0)
Case Else
.Shapes("Elipse 10").Fill.ForeColor.RGB = RGB(255, 255, 255)
End Select
End With
End Sub

 

Creio que para muitos itens seja melhor.

Se você achar que possa criar algum problema, por favor me avise.

 

Desde já te agradeço