Notifications
Clear all

Formula para data  

  RSS

Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
27/05/2010 9:20 am  

Bom dia,

Eu gostária de saber se tem alguma formula que eu colocasse em um campo para sempre que eu salve um documento ela salve tambem a da que o documento foi salvo.

Estou usando a formula =AGORA(), mais deste jeito sempre que eu abro o documento esta a data atual do sistema e eu quero a ultima data que o documento foi salvo.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
27/05/2010 12:13 pm  

Só por macro ou VBA.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
27/05/2010 6:02 pm  

Rafael, eu não sou muito familiarisado com vba ou macro, você poderia dar uma explicação de como faço isto tanto em macro quanto em vba.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
05/06/2010 4:57 pm  

Boa Noite Italo

Eu tenho uma macro que na coluna A coloca a data e a hora que abrimos a planilha e mantém os dados là, exemplo:
A1= 03/05/2010 / 16:35:12
A2= 03/05/2010 / 20:35:02
A3= 05/05/2010 / 10:15:12

Se vc quiser eu coloco a macro aqui e te ensino como aplicá-la.

Abraços

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
10/06/2010 8:04 am  

Bom dia Patropi
Por favor faz isto.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
12/06/2010 8:03 pm  

Boa noite Italo.

Bom eu tenho duas diferentes.
Uma macro coloca a data na célula A1 quando vc abre a planilha e habilita a Macro.
A outra ao vc digitar alguma coisa na coluna A a data e o horário são registrados na coluna B.
Vamos a primeira:
Com a planilha aberta, e sem nada digitado na célula A1, clique ALT+F11 para abrir o editor de VBA, no menu Inserir, Módulo.
No módulo clique em geral vai abrir a lista clique em Worksheet;
copie e cole este código no logo após a primeira linha, ou seja logo após Private Sub Workbook_Open() e antes de End Sub.

'Definir a planilha na qual será inserida a data
Set ws = ActiveSheet
'Definir a célula na qual será inserida a data
ws.Range("A1") = Date

Depois clique em F11 novamente para voltar a planilha e salve a planilha e feche.
Quando vc abrir novamente e habilitar a macro vai aparecer a data na célua A1

Abraços

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
13/06/2010 6:45 am  

Bom dia Italo

Essa daqui que tem a ver mais com o que vc quer:

Deixe as células das colunas A e B em branco, pois nelas que serão registradas as entradas.
Siga os mesmo procedimentos da resposta anterior e copie e cole este código:
If Target.Column = 1 Then Cells(Target.Row, 2) = Now

O código todo ficará assim:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Cells(Target.Row, 2) = Now
End Sub

Clique em ALT+ F11 novamente para voltar a planilha e salve a planilha e feche.
Quando vc abrir novamente e habilitar a macro vc digita teu nome na célula A1 e a data e o horário serão lançados automaticamente na cédula B1.
Qunado vc entrar no vamente na planilha coloque teu nome na célula A2 e na célula B2 aparecerá a nova dta e horário e assim por diante.

Abraços

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
13/06/2010 11:38 am  

Boa tarde Italo

Fui testar o primeiro código, aquela da resposta com data de 12/06 e vi que ele não mantém a data anterior então desconsidere aquele código e cole este aqui.

Option Explicit
Private Sub Workbook_Open()
Dim strDate As String

strDate = Format(Date, "dd-mm-yyyy") & " / " & Format(Time, "hh:mm:ss")
Range("A1").Select
If Range("A2") = "" Then
Range("A2") = strDate
Else
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = strDate
End If

End Sub

Com este código na coluna A vc terá a data e a hora que a planilha foi acessada.

Abraços

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
14/06/2010 3:14 am  

Mais do meio deste ultimo poste, quando eu for acessar não vai ficar a minha data e hora tambem, eu gostaria de um codigo que me desse a data e a hora da ultima modificação na planilha.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
15/07/2010 7:12 pm  

Boa noite,
Alguem pode ajudar? preciso criar um controle de atualizacao por data. Por exemplo o meu pessoal do comercial tem uma base de clientes e eles terao a tarefa de atualizar todos os clientes. Para eu controlar essa atualizacao minha ideia é em cada linha de clientes ter uma coluna com obs onde ele preenche a atualizacao e outra coluna onde assim q ele digitar na obs atualize com a data atual, porem mantenha esta data fixa ate a proxima atualizacao e nao atualize sempre q abrir a planilha com a data atual do micro.ok Sera q fui claro. Dessa forma poderei acompanhar a data q estao trabalhando nesta carteira.
obrigado. abraco

Everton Cardoso
everton_Cardoso@hotmail.com

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
23/07/2010 5:55 pm  

Everton....veja se é assim!!!
Segue exemplo

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
23/07/2010 8:31 pm  

Pelo que entendi Everton, basta capturar a data da ultima modificação da planilha nesta sua data fixa, tipo, a medida que sua planilha sofre qualquer alteração e é salva essa data precisa ser atualizada. Por essa lógica utilize a função que criei abaixo.

Public Function UltimaAtualizacao()
UltimaAtualizacao = Format(FileDateTime(ThisWorkbook.FullName), "dd/mm/yy h:m ampm")
End Function

Na célula que 'fixará' a data da ultima atualização basta difitar a fórmula criada acima

UltimaAtualizacao()

Abraço

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel


ResponderCitar (Quote)
Compartilhar: