Selamlama

[eminuslu]

Arkadaşlar hepinize iyi geceler yine sizler için kolay benim için zor olan bir soru soracağım ekte gönderdiğim karşılama dosyasına tıklayıncası çıkan selamlamada sürekli olarak bu günün karşısı perşembe olarak yazmaktadır oysa bu gün cumartesi bu makroda günleri aynı yere otomatik olarak getirmekte yardımcı olan herkese teşekkürler

 

[Zeki Gürsoy]

Merhaba,

Küçük bir değişiklik sorununuzu çözecektir.

Sub Auto_open()
Application.ScreenUpdating = False
Application.Visible = False
    MsgBox "HOŞGELDİNİZ!" & vbCrLf & vbCrLf & _
    "TARİH" & Space(5) & Date & vbCrLf & _
    "BUGÜN" & Space(4) & [COLOR=Blue][B]Format(Date, "dddd"[/B])[/COLOR] & vbCrLf & _
    "SAAT" & Space(7) & Time & vbCrLf & vbCrLf & _
    "İYİ GÜNLER DİLERİM.", vbInformation
UserForm1.Show

End Sub

 

[eminuslu]

Teşekkür ederim