Duas listas, quanto uma estiver preenchida a outra ficará em branco

[fariaspio]

Bom dia a todos!

 

Tenho duas listas com cores, gostaria de fazer o seguinte: Lista 1 quando tiver preenchida com uma cor, que a mesma permaneça dessa forma, porém quando possuir uma cor na lista 1 e outra cor na lista 2, quero que a cor da lista 1 não apareça.

 

 

Obs: Em anexo  uma planilha de exemplo.

 

Desde já agradeço a atenção de todos!

LISTAS.xls

[Visitante]

Instale o código abaixo no módulo da planilha, assim:
1. copie o código daqui
2. clique com o direito na guia da planilha de interesse e escolha 'Exibir código'
3. cole o código na janela em branco que vai se abrir
4. feito! 'Alt+Q' para retornar para a planilha e testar

Private Sub Worksheet_Change(ByVal Target As Range)  If Not Intersect(Target, Range("A2,A5")) Is Nothing And [A5] <> "" Then    Application.EnableEvents = False      [A2] = ""    Application.EnableEvents = True  End IfEnd Sub

 

[fariaspio]

Instale o código abaixo no módulo da planilha, assim:

1. copie o código daqui

2. clique com o direito na guia da planilha de interesse e escolha 'Exibir código'

3. cole o código na janela em branco que vai se abrir

4. feito! 'Alt+Q' para retornar para a planilha e testar

Private Sub Worksheet_Change(ByVal Target As Range)  If Not Intersect(Target, Range("A2,A5")) Is Nothing And [A5] <> "" Then    Application.EnableEvents = False      [A2] = ""    Application.EnableEvents = True  End IfEnd Sub

 

Muito obrigado pela ajuda!!!!