• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Excel de Açılış mesajı

Katılım
3 Mayıs 2006
Mesajlar
46
Excel Vers. ve Dili
Office Excel 2003 Türkçe
Ben Excel Çalışma Kitabıma açılırken hoşgeldiniz, kapanırkende güle güle gibi bişeyler yazacak bir mesaj kutusu eklemek istiyorum bunun hakkında yardımlarınızı bekliyorum...
 
Selamlar,

Ekte örnek bir dosya hazırladım incelermisiniz.Kodlar "ThisWorkbook" bölümündedir. Umarım faydası olur.
 
Çok teşekkür ederim Cost Control..!

Uyguladım ve oldu..
 
Arkadaşlar Selamlar;

Öncelikle paylaşım için bu forum da ki herkese teşekkür ederim.Bu açılış ve kapanış formülünü birden fazla satırdan oluşan bir msg vermek için nasıl düzeltmeliyim? Teşekkür ederim.
 
teşekkür ederim harika oldu ayrıca ben bütün yazılımı modül içine atmaya çalışıyordum olmuyordu ama worksheetin içinde harika çalıştı
:hihoho:
 
Selamlar,

Sn. ncevik,

Ekteki örnek dosyayı incelermisiniz. Umarım faydası olur.
 
Merhaba

Sn: Cost_Control çok teşekkür ederim kontrol etmeye vaktim olmadı ama olmuştur mutlaka.İlginize teşekkür ediyor iyi çalışmalar ve nice paylaşımlar diliyorum.Hoş ve esen kalın..
 
Anlatamadım

Merhaba Sn: Cost_Control istediğimi anlatamamışım, yazı olarak birkaç satır istiyorum yani 1.satır Merhaba 2.Satır Firma adı 3.satır İrtibat tel 4.satır Gsm tel gibi. Sizin yolladığınız örnekte 1.satırdan sonra sistemden okuduğu tarih,saat, v.s.
Umarım tam istediğimi anlatabildim.Tekrar teşekkür ediyor iyi günlar diliyorum...
 
Selamlar,

Sn. ncevik,

Dosyadaki tarihi, saati örnek olsun diye vermiştim. Size sadece o kısımlara kendi istediğiniz değerleri yazmak kalıyordu. Sanırım kendinize uyarlayamadınız. Örnek dosyadaki açılış mesaj kodunu aşağıdaki ile değiştirip denermisiniz. Umarım açıklayıcı olmuştur.

Kapanış mesajınıda kendiniz yapabilirsiniz sanırım.

Kod:
Private Sub Workbook_Open()
    'Space(6) ifadesi kelimeler arasına eşit boşluk vermek için kullanılmaktadır.
    'vbCrLf ifadesi boş satır eklemek için kullanılmaktadır.
    SATIR_1 = "MERHABA !"
    SATIR_2 = "FİRMA ADI" & Space(6) & " : " & "DENEME FİRMASI"
    SATIR_3 = "İRTİBAT TEL" & Space(4) & " : " & "X-XXX XXX XX XX"
    SATIR_4 = "GSM TEL" & Space(10) & " : " & "Y-YYY YYY YY YY"
    SATIR_5 = "ADRES" & Space(13) & " : " & "ZZZZZZZZZZ ZZZZZZZZZZ"
    MsgBox SATIR_1 & vbCrLf & vbCrLf & SATIR_2 & vbCrLf & _
    SATIR_3 & vbCrLf & SATIR_4 & vbCrLf & SATIR_5 & vbCrLf & vbCrLf & _
    "İYİ ÇALIŞMALAR DİLERİM.", vbInformation, "KARŞILAMA MESAJI"
End Sub
 
Tşkler

Sayın Cost_Control ilginize çok teşekkür ederim.Ben sorunumu satır başlarındaki Msgbox yazılarını(1.satırdan sonraki) kaldırarak çözmüştüm.Böyle düzeltirim.Paylaşım için herkese teşekkürler.
İyi Günler diliyorum...
 
MERHABA BEN YENİYİM BU FORUMDA DA SIZIN VERMIS OLDUGUNUZ LİNKTEKİ EXCELL DOSYASINDA HİC BİRSEY GOREMEDİM. BEN EXCELL 2003 KULLANIYORUM. ACABA FARKLI SURUMDENMI KAYNAKLANIYOR...

Önce bir Excel dosyası açın
Araçlar > Seçenekler > Güvenlik > Macro güvenliği
şeklinde ilerleyin. Güvenlik düzeyini ortaya getirin.
Daha sonra açacağınız dosyalarda macroları Etkinleştiri seçerseniz açılır sanırım.
 
Önce bir Excel dosyası açın
Araçlar > Seçenekler > Güvenlik > Macro güvenliği
şeklinde ilerleyin. Güvenlik düzeyini ortaya getirin.
Daha sonra açacağınız dosyalarda macroları Etkinleştiri seçerseniz açılır sanırım.

COK TEŞEKKUR EDERİM. EMEĞİNİZE SAYGIM BÜYÜK...
 
paylaşım

kolay gelsin ...
öğrenmek istediğim :
şirkette excel de üretim planlama tablosu oluşturuyorum .Fakat ben exceli kapatıp açmadan ve diğer bilgisayarlar da exceli kapatıp açmadan benim son güncellemelerimi diğer bilgisayarlar göremiyorlar. Bu kapatıp açmaları yapmadan diğer bilgisayarların benim yaptığım güncellemeleri görmeleri gibi bir fonksiyon var mı excel de?
 
Selamlar,

Ekte örnek bir dosya hazırladım incelermisiniz.Kodlar "ThisWorkbook" bölümündedir. Umarım faydası olur.

Konuya bir katkıda benden olsun istedim,

Korhan Üstadım tarafından,Açılış mesajı verilmiş, sayfa kapanışında da mesaj isterseniz, aynı kodun başlıgını degiştirerek, yazmanız yeterli olacaktır..

Örnek.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
SATIR_1 = "GÜLE GÜLE !"
SATIR_2 = "FİRMA ADI" & Space(6) & " : " & "DENEME FİRMASI"
SATIR_3 = "İRTİBAT TEL" & Space(4) & " : " & "X-XXX XXX XX XX"
SATIR_4 = "GSM TEL" & Space(10) & " : " & "Y-YYY YYY YY YY"
SATIR_5 = "ADRES" & Space(13) & " : " & "ZZZZZZZZZZ ZZZZZZZZZZ"
MsgBox SATIR_1 & vbCrLf & vbCrLf & SATIR_2 & vbCrLf & _
SATIR_3 & vbCrLf & SATIR_4 & vbCrLf & SATIR_5 & vbCrLf & vbCrLf & _
"İYİ ÇALIŞMALAR DİLERİM.", vbInformation, "KARŞILAMA MESAJI"
End Sub

İyi Forumlar..
 
Geri
Üst