Veja se desta forma atende:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 3 Then
Exit Sub
ElseIf UCase(Target.Value) <> "OK" Then
Exit Sub
Else
Cells(Target.Row, 2) = Cells(Target.Row, 2).Value
End If

End Sub

Olá Edson, não deu certo, pois eu tenho a celula de situação para colocar o OK em varias colunas, e linhas, não funciona para todas elas.
Obrigado!

Aurimar, a sugestão do colega Edson, funciona corretamente conforme sua solicitação no primeiro post.

Seria o caso de adapta-la às novas situações, se não conseguir, procure postar todas as situações possíveis, pois, somente : pois eu tenho a celula de situação para colocar o OK em varias colunas, e linhas . não nos dá subsidios suficientes, tipo : quais Colunas ? Quais Linhas ?

abraços

Olá Mauro anexo o modelo que eu gostaria de adaptar, se vcs puderem me ajudar, fico agradecido.
Abraços!

Supondo que o "ok" seja sempre atribuído nas células abaixo de Sit.:
(se não for apenas este o caso, esclarecer.)

Private Sub Worksheet_Change(ByVal Target As Range)

If UCase(Target.Value) <> "OK" Then
Exit Sub
Else
Cells(Target.Row, Target.Column - 2) = Cells(Target.Row, Target.Column - 2).Value
End If

End Sub

Olá Mauro! me desculpe mas ou eu sou muito burro ou não estou entendendo aonde aplicar este codigo, pois estou colocando em um mod. e não está funcionando, coloquei na planilha e não funciona, vc pode me dizer o que devo fazer para este cod. funcionar.
Obrigado!

Aurimar,
copie o código mais recente que postei.
No arquivo, clique com o botão direito sobre a guia ADMINISTRAÇÃO, selecione Exibir código e cole o código copiado.

Salve o arquivo com a extensão xlsm.

Digite "Ok", por exemplo, em AN12 e veja se a célula AL12 fica com valor.

Caso contrário, indique se ocorreu algum erro de depuração, se a célula AL12 não ficou com valor ou alguma outra mensagem que pode ter sido emitida...

Olá Edson, fiz tudo o que vc me mandou, mas veja; no modelo que postei, se vc colocar a data de 25/05/11 como exemplo no no Prazo de entrega do Professor; hoje o contador esta em "5" pois falta 5 dias para ele me entregar o livro, digamos que se o prof. me entregasse hoje eu iria colocar o OK. Amanhã se eu abrir a planilha eu quero que este "5" fique ali, eu colei o cod. e mudei a data no relogio do meu pc para dia 21/05/11 e ele mudou para "4" o que deveria continuar em "5" pois eu coloquei o OK, mas o contador continua...

OK...!

Digitou OK em qual célula e em qual célula hoje mudança na contagem?

Eu coloquei o OK na celula AN12 que é a situação, em AL12 aparece o nr. 5 caso vc tenha feito o teste e colocado a data em AD12 que é o prazo do professor eu coloquei hoje a data 25/05/11 então faltam 5 dias para acabar o prazo. Se vc mudar a data no seu pc para o dia 21/05/11 o contador ira aparecer como 4, ele continua regredindo.

Aurimar,

alguma coisa está errada no seu procedimento, de acordo com o exemplo.

A partir do momento que a macro é executada (com o "OK"), a fórmula em AL12 'some' e fica o valor, portanto, independente da data do Windows ou da data do Prazo final de entrega.

Refaça o procedimento: "OK" em AN12 e verifique se a fórmula em AL12 'some' e fica apenas o Valor.

Caso contrário, verifique se seu Excel está habilitado para Macros.

Olá Edson, eu refiz todo o procedimento e deu certo, porém eu observei que se eu excluir o OK a função não volta mais, é isto mesmo! Vc poderia me ajudar neste critério também.
Obrigado!

Edson, Mauro... Vocês são Demais...

Quando eu penso que já vi de tudo vocês aparecem com essas soluções, parabéns, fico muito feliz em sermos colegas aqui no fórum.

Eron, grato pela consideração, tambem fico feliz pelos colegas que fiz no Forum e por ter sido aceito no mesmo, mas os creditos aqui são para o Edson, ele iniciou o desenvolvimento para a questão do colega Aurimar.

abraços