Este fórum está sendo desativado

[Teresa]

Bom dia a todos, preciso de ajuda tenho um ficheiro que tem um campo 'Data', eu queria que esse campo fosse automático, ou seja, a cada dia que se abre o dito ficheiro, esse campo colocasse a data em que é aberto.
Podem-me ajudar, eu envio o ficheiro. Obrigada.

[AfonsoMira]

Boas veja se ajuda.

Cada vez que abre o ficheiro a data é atualizada para o dia atual.

[osvaldomp]

Olá, Teresa.

Você pode utilizar a função HOJE() e aí todas as células com essa função inserida em datas passadas serão atualizadas para a data do dia.
No entanto, se você não quer que as datas inseridas anteriormente sejam atualizadas então instale uma cópia do código abaixo no módulo de EstaPastaDeTrabalho, assim:
1. copie o código daqui
2. a partir de qualquer planilha tecle 'Alt+F11' para acessar o editor de VBA
3. no lado esquerdo da tela dê duplo clique em EstaPastaDeTrabalho
4. cole o código na janela em branco que vai se abrir
5. feito! 'Alt+Q' para retornar para a planilha

Código: Selecionar todos

Private Sub Workbook_Open()
 Dim LR As Long
  With Sheets("Registo_Saídas").Range("Tabela2")
   LR = IIf(.Cells(1, 2) = "", 1, .Cells(0, 2).End(4).Row)
   .Cells(LR, 2).Value = Date
  End With
End Sub

funcionamento - ao abrir o arquivo o código irá inserir a data do dia na primeira célula vazia da coluna Data da Tabela2; para testar após colar o código, salve (Habilitado para Macros), feche e reabra o arquivo.

EDIT: oops ... o @AfonsoMira chegou antes com a sua Ferrari

[Teresa]

Boa tarde, atualiza para data atual, mas o registo do dia anterior altera e o que pretendo é que o dia anterior se mantenha