- Katılım
- 28 Şubat 2007
- Mesajlar
- 34
- Excel Vers. ve Dili
- Office 2010 Türkçe
Arkadaşlar aşağıdaki kodlar bildiğiniz gibi küçük bir karşılama mesajının kodlarıdır. bu kodlar benim makinamda çalışırken excel dosyasını başka bir bilgisayara kopyaladığımda çalışmadı. Daha sonra makinamı formatlamak zorunda kaldım. İşletim sistemi tekrar kurdum. şimdi bendede çalışmıyor. Bilgili arkadaşlar bakabilirmi.?
Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "GÜLE GÜLE!" & vbCrLf & vbCrLf & _
"TARİH" & Space(5) & Date & vbCrLf & _
"BUGÜN" & Space(4) & Format(Day(Date), "dddd") & vbCrLf & _
"SAAT" & Space(7) & Time & vbCrLf & vbCrLf & _
"**********@hotmail.com", vbInformation, "deneme"
End Sub
Private Sub Workbook_Open()
MsgBox "HOŞGELDİNİZ!" & vbCrLf & vbCrLf & _
"TARİH" & Space(5) & Date & vbCrLf & _
"BUGÜN" & Space(4) & Format(Day(Date), "dddd") & vbCrLf & _
"SAAT" & Space(7) & Time & vbCrLf & vbCrLf & _
"*********@hotmail.com", vbInformation, "deneme"
End Sub
Hatayı kırmızı yazdığım space kodunda gösteriyor.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "GÜLE GÜLE!" & vbCrLf & vbCrLf & _
"TARİH" & Space(5) & Date & vbCrLf & _
"BUGÜN" & Space(4) & Format(Day(Date), "dddd") & vbCrLf & _
"SAAT" & Space(7) & Time & vbCrLf & vbCrLf & _
"**********@hotmail.com", vbInformation, "deneme"
End Sub
Private Sub Workbook_Open()
MsgBox "HOŞGELDİNİZ!" & vbCrLf & vbCrLf & _
"TARİH" & Space(5) & Date & vbCrLf & _
"BUGÜN" & Space(4) & Format(Day(Date), "dddd") & vbCrLf & _
"SAAT" & Space(7) & Time & vbCrLf & vbCrLf & _
"*********@hotmail.com", vbInformation, "deneme"
End Sub
Hatayı kırmızı yazdığım space kodunda gösteriyor.