Macro para travar data da função =HOJE

[Wendell Menezes]

Prezados,

Gostaria de saber como faço para que a coluna "D" ative a função =HOJE quando sua respectiva célula da coluna "C" for diferente de nada.

Até aí é fácil, mas como travar a data para que não seja atualizada quando eu iserir um valor na coluna "C" novamente ?

Obrigado e Abraços

[eduzsrj]

o melhor é você criar uma macro que insira um texto em formato de data

é tranquilo de fazer

já que a função "hoje" realmente vai mudar a data todo dia.

Sheets("Plan1").Range("A5").Value = Format(Now(), "DD/MM/YYYY")

[Wendell Menezes]

Boa tarde eduzsrj

Muito interessante essa macro.

Seria pedir muito para adaptala a minha necessidade ?

Sou leigo em relação à VBA.

Preciso que a macro seja ativada na coluna D quando um valor for inserido na coluna A

Seria mais um menos como uma planilha de atendimento, sempre que usuário final colocar o nome do cliente, a data da ligação é preenchida automaticamente na coluna D da mesma linha.

Obrigado

[Patropi]

Boa tarde Wendell Menezes

Qual a versão do teu excel?

Se você quiser postar a tua planilha num site gratuíto como

http://www.4shared.com/?signout=1

Depois colar o link da planilha aqui no FÓRUM eu posso colocar um código diretamente na tua planilha.

Aguardo retorno.

Um abraço

[eduzsrj]

Exemplo:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

application.EnableEvents = False

If Target.Column = 1 Then Range("$D$" & Target.Row).Value = Format(Now(), "DD/MM/YYYY")

application.EnableEvents = True

End Sub

Este codigo deve estar no obejeto PLANILHA 1 (ou o nome da planilha respectiva) e nao no Modulo1.

[Wendell Menezes]

Funciounou Perfeitamete !!

Muito obrigado !

Patropi,

Só não havia postado porque a planilha está no meu trabalho, mas as próximas postarei

Abraços

[Flavio Soares]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.