Este fórum está sendo desativado

[Danieli]

Alguém pode me ajudar?

Tenho uma "planilha 1" com uma lista de nomes de empresas, sendo que cada uma está pintada de uma cor de acordo com o funcionário que cuida dela.
Porém todos os meses essa planilha vem em branco.

Teria alguma fórmula que pintasse a "planilha 2" com as mesmas cores da "planilha 1"?

EXEMPLO EM ANEXO.

Desde já, agradeço.

[Deciog]

Danieli , Boa Tarde

Confere se é desta forma que desejas, coloque em formatação de células

Se minha resposta foi útil, clique em obrigado é uma forma de agradecimento da ajuda

Decio

[Danieli]

Olá, então...criar uma regra na formatação condicional até ajudaria, porém são muitas empresas pra estar criando uma por uma entende?

Agradeço por responder.

[osvaldomp]

Segue uma solução via macro. Veja se aproveita.

Código: Selecionar todos

Sub PintaCélulas()
 Dim emp2 As Range, emp1 As Range
  For Each emp2 In Range("A2:A" & Cells(Rows.Count, 1).End(3).Row)
   Set emp1 = Sheets("Planilha1").[A:A].Find(emp2.Value)
   If Not emp1 Is Nothing Then
    emp2.Interior.ColorIndex = emp1.Interior.ColorIndex
   End If
  Next emp2
End Sub