Kod ile bilgisayar isminin başlığına merhaba yazdırmak

[ASLAN7410]

Merhaba arkadaşlar hayırlı sabahlar.

Aşağıdaki kod ile sayfayı her açtığımda C2 hücresine Merhaba Aslan yazıyor.

Private Sub Workbook_Open()
Sheets(1).Activate
Range("C2") = "Merhaba " & Application.UserName 
End Sub

Benim istediğim aşağıdaki saatler arasında sayfa açıldığında C2 hücresine aşağıdaki gibi yazmasını istiyorum. Acaba bu şekilde yapılabilir mi?

Saat 07:00 - 10:00 arasında İyi sabahlar Aslan yazsın.
Saat 10:00 - 17:00 arasında İyi günler Aslan yazsın.
Saat 17:00 - 23:00 arasında İyi akşamlar Aslan yazsın.
Saat 23:00 - 07:00 arasında İyi geceler Aslan yazsın.

Yardım edecek arkadaşlara teşekkür ederim.

 

[Necdet]

Merhaba,

Private Sub Workbook_Open()

    If Hour(Time) >= 7 And Hour(Time) < 10 Then
        MsgBox "Günaydın " & Application.UserName
    ElseIf Hour(Time) >= 10 And Hour(Time) < 17 Then
        MsgBox "İyi Günler " & Application.UserName
    ElseIf Hour(Time) >= 17 And Hour(Time) < 23 Then
        MsgBox "İyi Akşamlar " & Application.UserName
    Else
        MsgBox "İyi Geceler " & Application.UserName
    End If

End Sub

 

[ASLAN7410]

Sayın Necdet Bey ilginize çok teşekkür ederim, vardiyalı çalıştığım için bilgisayar başına yeni geçtim, ellerinize sağlık tam istediğim gibi oldu.

Hayırlı çalışmalar.