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...
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
43,020
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Ekte örnek bir dosya hazırladım incelermisiniz.Kodlar "ThisWorkbook" bölümündedir. Umarım faydası olur.
 
Katılım
3 Mayıs 2006
Mesajlar
46
Excel Vers. ve Dili
Office Excel 2003 Türkçe
Çok teşekkür ederim Cost Control..!

Uyguladım ve oldu..
 
Katılım
21 Şubat 2007
Mesajlar
20
Excel Vers. ve Dili
iş :excel 2003 tr
ev:openoffice tr
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.
 

musculus2

Altın Üye
Altın Üye
Katılım
23 Şubat 2007
Mesajlar
112
Excel Vers. ve Dili
2013 türkçe
Altın Üyelik Bitiş Tarihi
09-06-2027
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:
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
43,020
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Sn. ncevik,

Ekteki örnek dosyayı incelermisiniz. Umarım faydası olur.
 
Katılım
21 Şubat 2007
Mesajlar
20
Excel Vers. ve Dili
iş :excel 2003 tr
ev:openoffice tr
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..
 
Katılım
21 Şubat 2007
Mesajlar
20
Excel Vers. ve Dili
iş :excel 2003 tr
ev:openoffice tr
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...
 
Katılım
3 Mart 2007
Mesajlar
66
Excel Vers. ve Dili
VBa
Altın Üyelik Bitiş Tarihi
03.03.2023
Selamlar,

Sn. ncevik,

Ekteki örnek dosyayı incelermisiniz. Umarım faydası olur.
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...
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
43,020
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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
 
Katılım
21 Şubat 2007
Mesajlar
20
Excel Vers. ve Dili
iş :excel 2003 tr
ev:openoffice tr
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...
 

Rulemaster

Altın Üye
Katılım
27 Mart 2006
Mesajlar
152
Excel Vers. ve Dili
EXCEL 2019 TÜRKÇE
Altın Üyelik Bitiş Tarihi
08-02-2026
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.
 
Katılım
3 Mart 2007
Mesajlar
66
Excel Vers. ve Dili
VBa
Altın Üyelik Bitiş Tarihi
03.03.2023
Ö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...
 
Katılım
7 Aralık 2005
Mesajlar
9
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?
 

Rulemaster

Altın Üye
Katılım
27 Mart 2006
Mesajlar
152
Excel Vers. ve Dili
EXCEL 2019 TÜRKÇE
Altın Üyelik Bitiş Tarihi
08-02-2026
Bu kapatıp açmaları yapmadan diğer bilgisayarların benim yaptığım güncellemeleri görmeleri gibi bir fonksiyon var mı excel de?
Bunun Excelle bir ilgisinin olacağını zannetmiyorum.
Ağ Bağlantıları ile ilgilidir.
 
Katılım
18 Haziran 2009
Mesajlar
6
Excel Vers. ve Dili
2003 TR
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..
 
Üst