KarŞilama Mesaji

[argo619]

Arkadaşlar yine bu değerli forum sayfasından elde ettiğim ve bir dosyamda kullandığım karşılama mesajları kodlarını aldım yalnız bu kodlar gün olarak bir sonraki günü veriyor
tarih doğru gün olarak (formüldeki bugün) bir sonraki günü veriyor hatayı düzeltme hussunda yardımlarınızı talep ederim
kodlar şöyle:
----------------------------------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "GÜLE GÜLE EFENDİM!" & vbCrLf & vbCrLf & _
"TARİH" & Space(5) & Date & vbCrLf & _
"BUGÜN" & Space(4) & Format(Day(Date), "dddd") & vbCrLf & _
"SAAT" & Space(7) & Time & vbCrLf & vbCrLf & _
"HAYIRLI GÜNLER", vbInformation, "Süleyman DİNÇ"
End Sub

Private Sub Workbook_Open()
MsgBox "Süleyman DİNÇ!"

MsgBox "HOŞGELDİNİZ EFENDİM!" & vbCrLf & vbCrLf & _
"TARİH" & Space(5) & Date & vbCrLf & _
"BUGÜN" & Space(4) & Format(Day(Date), "dddd") & vbCrLf & _
"SAAT" & Space(7) & Time & vbCrLf & vbCrLf & _
"İYİ ÇALIŞMALAR", vbInformation, "Süleyman DİNÇ"

End Sub

 

[Orion1]

Bu kodlar bu günün tarihini veriyor.
Siz bilgisayarınızın sistem saatini bu güne ayarlayınız.

 

[argo619]

evren hocam bilgisayarın tarih sistemine dikkat ettim problem yok
bilgisayarım bu günü gösteriyor
formülde eksiklik var diye düşündüm
tarihi doğru veriyor sadese bugün salı olarak veriyor

 

[Orion1]

Haklısınız.
Aşağıdaki kodu kullanınız.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "GÜLE GÜLE EFENDİM!" & vbCrLf & vbCrLf & _
"TARİH" & Space(5) & Date & vbCrLf & _
"BUGÜN" & Space(4) & Format(Day(Date), "dddd") & vbCrLf & _
"SAAT" & Space(7) & Time & vbCrLf & vbCrLf & _
"HAYIRLI GÜNLER", vbInformation, "Süleyman DİNÇ"
End Sub

 

[argo619]

ilginize teşekkür
hocam yine salı gününü veriyor

 

[Orion1]

ilginize teşekkür
hocam yine salı gününü veriyor

Hay Allah yanlış yollamışım.
Aşağıdaki kodları kullanınız.

MsgBox "Süleyman DİNÇ!"

MsgBox "HOŞGELDİNİZ EFENDİM!" & vbCrLf & vbCrLf & _
"TARİH" & Space(5) & Date & vbCrLf & _
"BUGÜN" & Space(4) & Format(Date, "dddd") & vbCrLf & _
"SAAT" & Space(7) & Time & vbCrLf & vbCrLf & _
"İYİ ÇALIŞMALAR", vbInformation, "Süleyman DİNÇ"

 

[argo619]

hocam çok teşekkür ederim sğl
mükemmelsin
allah razı olsun

 

[Orion1]

hocam çok teşekkür ederim sğl
mükemmelsin
allah razı olsun

Rica ederim.
O sizin mükemmelliğiniz.
İyi çalışmalar.