Excel Mudar a cor da célula depois que for preenchida

[BrunoDimeira]

Olá, preciso de uma ajuda sobre uma planilha que estou criando, para um controle de número de ofícios na prefeitura onde trabalho e não estou conseguindo criar uma formatação condicional pra isso.

O que eu preciso é que as células que estão com numerações mudem para a cor vermelha, quando a suas respectivas células que estão em baixo, sejam preenchidas com o nome ou setor de quem a utilizou.

 

Por exemplo, a célula A3 muda para a cor vermelha (indicando que já foi utilizada), quando for preenchido o nome ou o setor de quem a utilizou na célula em baixo, A4.

Segue a planilha em anexo. Ofício.xlsx

Ofício.xlsx

[ppeterk]

Veja se lhe atende!

 

 

Ofício_Ppeterk.rar

[BrunoDimeira]

Putz cara, isso mesmo!!!

Muito obrigado!!

Tava quebrando a cabeça mas é isso mesmo valeu!!

[BrunoDimeira]

Eu pretendo compartilhar essa planilha na rede, e queria que a célula onde vai o nome ficasse bloqueado para alteração depois de preenchida é possível isso?

[lHenrique_10]

Acho que só através de macro. Achei uma na internet e adaptei. Tenta essa aí:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ColunasA As Range
Set ColunasA = Range("A1:A8")
If Not Application.Intersect(ColunasA, Range(Target.Address)) Is Nothing Then
ActiveSheet.Unprotect ("m")
linha = Target.Row
Range("A" & linha).Locked = True
ActiveSheet.Protect ("m"), DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub

*Considerei o intervalo na coluna "A", entre A1 e A8. Experimente...

[BrunoDimeira]

@lHenrique_10 Não deu certo, ta como se não tivesse nada de diferente pois ainda consigo alterar e excluir dados das células já preenchidas.

adicionado 13 minutos depois

Encontrei essa na Internet e deu certo, porém só funciona na coluna Q queria que funcionasse da celula A3 até a G58, por favor.

 

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ColunasQ As Range
Set ColunasQ = Range("Q4:Q503")
If Not Application.Intersect(ColunasQ, Range(Target.Address)) Is Nothing Then
ActiveSheet.Unprotect ("m")
linha = Target.Row
Range("Q" & linha).Locked = True
ActiveSheet.Protect ("m"), DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub