Este fórum está sendo desativado

[MarceloAdriano]

Olá
Gostaria de uma ajuda de vocês, pois não estou conseguindo tornar a minha MsgBox dinâmica, conforme preenchimento da célula – da plan (Dados) célula C1 da planilha em anexo e ilustração. Espero te feito enteder a minha necessidade.

Grato, Marcelo Adriano

IMG] http://gurudoexcel-forum.s3.amazonaws.c ... 773460.gif [/IMG]

[Kledison]

Olá Marcelo,

seria isso ?

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) _
     & Chr(13) & "Seja Bem Vindo!" & "   " & Plan1.Range("C1").Value _
     & Chr(13) & "À Planilha Administrativa da Pisicopedagoga Flávia Kern!", vbInformation, "Psicopedagogia Mente Brilhante_Versão#002"
    ThisWorkbook.Worksheets("Painel_de_Controle").Select 'use esta linha
End Sub

Att

[MarceloAdriano]

Olá Kledison
Sempre você me ajudando, muito obrigado!
Pode deixar que irei estudar os códigos em vba.
Este fórum é ótimo!

Obrigado,
Marcelo Adriano