Página 1 de 1

Data automática

Enviado: 23 Nov 2020 às 08:07
por 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.

Re: Data automática

Enviado: 23 Nov 2020 às 09:18
por AfonsoMira
Boas veja se ajuda.

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

Re: Data automática

Enviado: 23 Nov 2020 às 09:21
por 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

Re: Data automática

Enviado: 24 Nov 2020 às 09:54
por Teresa
Boa tarde, atualiza para data atual, mas o registo do dia anterior altera e o que pretendo é que o dia anterior se mantenha