Guru do Excel e Power BI

Enviado: **24 Mar 2016 às 11:17**

Olá
Gostaria de melhorar o código MGSBOX abaixo inserido, complementando com a data e horário atualizada, após a saudação de BOM DIA!...
Segue figua ilustrativa do MgsBox em questão.

Imagem

Grato antecipadamento

Código VBA:

Código Private Sub Workbook_Open()
Dim dHora As Integer
dHora = Hour(Now)

Select Case dHora
Case Is >= 18
sSaudacao = "Boa Noite"
Case Is >= 12
sSaudacao = "Boa Tarde"
Case Is >= 0
sSaudacao = "Bom Dia"
End Select

MsgBox sSaudacao & "!" _
& Chr(13) & "Seja Bem Vindo, " & Range("$c$10") & "!" _
& Chr(13) & "E.E.Vinícius de Moraes_Diário Excel!#002!", vbInformation, "Intelecto_Excel"
ThisWorkbook.Worksheets("Controle").Select 'use esta linha
End Sub

Enviado: **24 Mar 2016 às 11:52**

Bom dia,

seria assim:

Imagem

Código: Selecionar todos

Private Sub Workbook_Open()
Dim dHora As Integer
dHora = Hour(Now)

Select Case dHora
Case Is >= 18

sSaudacao = "Boa Noite"
Case Is >= 12
sSaudacao = "Boa Tarde"
Case Is >= 0
sSaudacao = "Bom Dia"
End Select

MsgBox sSaudacao & "!" _
& Chr(13) & Date & "  -  " & Time() & Chr(13) _
& "Seja Bem Vindo, " & Range("$c$10") & "!" & Chr(13) _
& "E.E.Vinícius de Moraes_Diário Excel!#002!", vbInformation, "Intelecto_Excel"
'ThisWorkbook.Worksheets("Controle").Select 'use esta linha
End Sub

Enviado: **24 Mar 2016 às 12:07**

Olá Kledison Lana!
Exatamento o que necessitava...
Obrigado
Marcelo Adriano

Guru do Excel e Power BI

Inserir a Data e Hora atual no código descrito

Inserir a Data e Hora atual no código descrito

Re: Inserir a Data e Hora atual no código descrito

Inserir a Data e Hora atual no código descrito