About Me

A minha foto
JRod - PORTUGAL
Microsoft [MVP] - Excel (10º ano consecutivo)
Ver o meu perfil completo
Com tecnologia do Blogger.

Seguidores

Estatisticas

Free Blog Counter

eXTReMe Tracker
2009-12-22

Há dias, num grupo de discussão, colocaram a seguinte questão (adaptada):

“ como posso fazer para criar uma tabela onde por cada entrada me indique a data e hora do momento, mas que de cada vez que  execute a folha, as datas das entradas anteriores não sejam todas  actualizadas?”

Vejamos o exemplo:

image

Podemos, então, construir o seguinte código, que colocaremos no Workbook, de modo a que, logo que o mesmo seja aberto, o execute, para criar uma entrada com data e hora de acesso:

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

Nota: Este código deverá estar no workbook module (Este Livro ou This Workbook)

Tópicos relacionados: