Açılışta mesaj

[kaynak73]

yapmış olduğum excel dosyasının açılışına mesaj yazıdrmak istiyorum. yani msgbox
excel dosyası açıldığında otomatik gelsin
yardım lütfen acill

 

[mesuttasar]

Boş bir modüle aşağıdaki kodları ekleyin.

Sub Auto_Open()
Msgbox "...........Mesajınızı Yazın............."
End Sub

Bu kadar

 

[kaynak73]

Teşekkür ederim sayın mesuttasar

 

[baydeniro]

Merhaba. Bu mesajın 20 saniye ekranda kalmasını sağlamak mümnkün mü ?

 

[Erhan Köseoğlu]

Bir çalşmadan alıp kendi çalışmamda kullanmıştım

Private Sub UserForm_Activate()

baslik = ""
Dim X As Integer
Dim current As Variant
Dim Y As String
Y = UserForm1.Caption
UserForm1.Caption = ""
For X = 0 To Len(Y)
If X = 0 Then
UserForm1.Caption = ""
current = Timer
Do While Timer - current < 0.1
DoEvents
Loop
GoTo bitti
Else: End If
UserForm1.Caption = Left(Y, X)
current = Timer
Do While Timer - current < 0.20
DoEvents
Loop
bitti:
Next X
End Sub

 

[baydeniro]

Sayın kuluncak. Ben kodu aktive edemedim. Biraz daha detay bilgi verir misiniz !!