Este fórum está sendo desativado

[CAMILOALVES01]

Boa Tarde!
O pedido de ajuda:
Realçar células alterando a cor de fundo destas quando selecionada.
E logo após uma nova seleção estas voltarem com o fundo padrão do Excel.
OBS: Maiores detalhes na planilha anexo.
Desde já agradeço.

[osvaldomp]

Salve CAMILOALVES01 » 14 Mar 2022 às 13:58.

Segue uma ideia, veja se aproveita.

Instale uma cópia do código abaixo no lugar dos 3 códigos existentes e vincule os 3 botões da planilha MENU a esse código.

Código: Selecionar todos

 Sub Cadastro()
 Sheets("CADASTRO").Activate
 Range("C5:E5,C8:E8,C11:E11").Interior.Color = xlNone
 Select Case Sheets("MENU").Shapes(Application.Caller).TextFrame.Characters.Text
  Case "Função": [C5:E5].Select
  Case "Área": [C8:E8].Select
  Case "Gestor": [C11:E11].Select
 End Select
 Selection.Interior.Color = vbYellow
End Sub

[CAMILOALVES01]

Prezado osvaldomp - 14 Mar 2022 às 15:30
Como sempre cirúrgico, era exatamente isso.
DEUS continue lhe dando sabedoria para multiplicar seus conhecimentos
OBS: Como já deve ser de seu conhecimento, não está sendo permitido clicar na opção “obrigado”
Porem deixo registrado aqui o meu muito obrigado.
Atenciosamente

[osvaldomp]

DEUS continue lhe dando sabedoria para multiplicar seus conhecimentos
Obrigado, a você também.

OBS: Como já deve ser de seu conhecimento, não está sendo permitido clicar na opção “obrigado”
Que bom que você encontrou uma solução.
Verdade. Esse defeito vem se arrastando. Aguardamos providências da Diretoria.