Este fórum está sendo desativado

[MarceloAdriano]

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.


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

[Kledison]

Bom dia,

seria assim:

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

[MarceloAdriano]

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