Guru do Excel e Power BI

Julisbas escreveu:... a planilha que estiver sendo usada, ~~~> você quer dizer a planilha ativa ?

no menu onde esta descrito seu número mudaria de cor, para a cor vermelha, ~~~> você se refere às guias com os nomes das planilhas ?

informando que essa esta com informações digitadas. ~~~> somente a mudança da cor da guia não permite essa conclusão

Eu pensei usar macro, no entanto, teria que criar 96 macros, ~~~>

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 Sh.Tab.Color = 255
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
 Sh.Tab.Color = xlNone
End Sub

osvaldomp escreveu:Sugiro que você disponibilize uma amostra do seu arquivo Excel contendo a situação antes e a situação desejada depois de executar a macro, com as explicações nas próprias planilhas.

osvaldomp escreveu:Cole o código abaixo no lugar dos códigos que eu passei antes.

Código: Selecionar todos

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 Dim hy As Range
 If Sh.Name = "Menu" Or Target.Column <> 2 Then Exit Sub
  Set hy = Sheets("Menu").[C:C].Find(Sh.Name, lookat:=xlWhole)
  hy.Font.Color = IIf(Sh.Cells(Rows.Count, 2).End(3).Row > 3, vbRed, vbBlue)
End Sub

obs.
1. antes de colar o código desfaça a mesclagem de células ao menos da planilha "Menu" da linha 4 para baixo (sugiro que você desfaça as mesclagens de todas as planilhas e nunca mais volte a mesclar células, pois células mescladas são desnecessárias, inúteis e podem provocar erros em fórmulas e em macros; como alternativa utilize os recursos de ajustar a largura de coluna e a altura de linha. Em lugar de mesclar células na horizontal você pode conseguir um efeito visual equivalente assim ~~~> ex. digite algo em F5 / selecione as células F5:K5 / Formatar Células / Alinhamento / Horizontal / Centralizar seleção / OK)
2. o código irá retornar erro se o nome da planilha alterada não for encontrado na coluna C da planilha "Menu"