Rastrear nome de usuário e data quando a folha abrir

Question

Estou usando o VBA para exibir uma mensagem de boas-vindas com o nome de usuário. Além disso, quero manter o controle do nome de usuário (obtido de variáveis de ambiente), data e hora em uma das planilhas.

Por exemplo: se eu abrir o arquivo do Excel, ele deve ser rastreado como segue em uma das planilhas

skiran 11/13/2014 2:00 AM

Meu código até agora

Private Sub Workbook_Open1()
  Dim sName As String
  Dim sTxt As String
  Dim CurrTime As Long
  sName = Environ("UserName")

  CurrTime = Hour(Now)
  Select Case CurrTime
  Case Is > 18
    sTxt = "Good evening, "
  Case Is > 12
    sTxt = "Good afternoon, "
  Case Is < 6
    sTxt = "Good morning, "
  End Select
  msgbox sTxt & sName

End Sub

    

Answer 1

Basta adicionar o seguinte ao final do seu código:

dim nextrow as integer

 if Range("'Sheet2'!A2").value = "" then
  nextrow = 2
 else
  nextrow = Range("'Sheet2'!A1").End(xlDown).Row + 1
 end if


Range("'Sheet2'!A" & nextrow ).value = sName
Range("'Sheet2'!B" & nextrow ).value = CurrTime

Altere Sheet2 para o nome da folha.

Além disso, suponho que você teria cabeçalhos para a planilha que vai usar. Espero que isto faça sentido. Se não pedir e eu vou tentar esclarecer.