Bir Excel Dosyası Açtığımızda Karşımıza Mesaj Çıksın.

[Ulucdinc]

Herkese iyi akşamlar çok acil yardıma ihtiyacım var arkadaşlar bir yardım lütfen... Ben bir excel dosyası açtığımda karşıma her açılışta aynı hareketi yapacak şekilde bir karşılama mesajı çaıkartmak itiyorum. Sub Autpen ile olmuyor. Nasıl yazarım? lütfen acil:yardim:

 

[Levent Menteşoğlu]

Auto_open prosedürünün olduğu dosyayı eklenti olarak kaydedin.

 

[talatcd]

Sub Autpen()
MsgBox "Bugün " & Format(Date) & " BURAYA MESAJINIZI YAZINIZ", vbInformation, "Merhaba"
End Sub

 

[Ulucdinc]

Dosyayı açar açmaz bu çıkmalı ama olmuyor.

Sayın Talat, çok teşekkür ediyorum yardımcı yanınız için çok teşekkür ederim herkes sizin gibi değil açıkçası. Neyse konumuza döner isek; bu şekilde, ilgili excel dosyam açılır açılmaz bu mesaj formu çıkmalı. Ama bu yazılanla olmuyor. Bundan başak bir yönteminiz var mı bunla ilgili olara? Kolay gelsin iyi çalışmalar. :???:

 

[alpi]

Yeni bir Excel dosyası açın ThisWorkbook kod editorunu açın
aşağıdaki kodları buraya yazın

Private Sub Workbook_Open()
    MsgBox "Mesaj Metni"
End Sub

Dosyanızı farklı kaydet ile eklenti (*.xla) olarak kaydedin. Dosyayı kapatın

Yeni bir Excel dosyası açın Araçlar/Eklentiler i tıklatın açılan pencerede Gözat ı tıklatın önceki kaydewttiğimiz eklenti dosyasını bulun ve seçin. Listede bu dosyanın yanındaki onay kutusunun seçili olduğundan emin olduktan sonra tamam ı tıklatın.
Bundan sonra herhangi bir excel dosyasını açtığınızda "Mesaj Metni" mesajı ile karşılaşacaksınız.

 

[Ulucdinc]

Alpi size teşekkür ediyorum.

Alpi size teşekkür ediyorum. İşiniz rast gitsin.

 

[alpi]

Bende teşekkür ederim sorununuzun çözülmesine sevindim.