Karşılama mesajı eklemek

[Ercan_ÇELİKOĞLU]

diyelimki elimizde bir program var sayfa 1 de bilgi girişi için kurum adı ve mutemet adını yazdık programı açarken mutemedin adıyla karşılama yapması için bir makro varmı? var ise açıklamasını yapabilirmisiniz. saygılar

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu çalışmanızın ThisWorkbook bölümüne uygulayıp denermisiniz. Hücre adresini kendinize göre düzenleyiniz.

Private Sub Workbook_Open()
    MsgBox "SN. " & Sheets("Sayfa1").Range("A1") & " PROGRAMA HOŞGELDİNİZ !"
End Sub

 

[Ercan_ÇELİKOĞLU]

Selamlar,

Aşağıdaki kodu çalışmanızın ThisWorkbook bölümüne uygulayıp denermisiniz. Hücre adresini kendinize göre düzenleyiniz.

Private Sub Workbook_Open()
    MsgBox "SN. " & Sheets("Sayfa1").Range("A1") & " PROGRAMA HOŞGELDİNİZ !"
End Sub

çok teşekkür ederim çalıştı peki kapatırken aynı şekilde isme göre iy günler dilemenin yolu varmı.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu çalışmanızın ThisWorkbook bölümüne uygulayıp denermisiniz.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    MsgBox "SN. " & Sheets("Sayfa1").Range("A1") & " İYİ GÜNLER !"
End Sub

 

[Ercan_ÇELİKOĞLU]

Selamlar,

Aşağıdaki kodu çalışmanızın ThisWorkbook bölümüne uygulayıp denermisiniz.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    MsgBox "SN. " & Sheets("Sayfa1").Range("A1") & " İYİ GÜNLER !"
End Sub

Bu da çalıştı çok sağolun son bir soru kapat dediğimde program her seferinde değişikliği kaydetmek istiyormusun diye soruyor değişiklikleri otomatik kaydetmesini bir yolu varmı yani kapat dediğimde hemen kapatacak ama değişiklikler kaydolacak tekrar saygılar

 

[Korhan Ayhan]

Selamlar,

Farkettiğim kadarıyla forumda arama yapmadan sorularınızı soruyorsunuz. Arama özelliği ile tüm sorularınızın cevaplarını bulabilirsiniz. Arama yapıp sonuca ulaşamadığınız durumlarda sorularınızı sorarsanız daha faydalı olacaktır.

Aşağıdaki kodu kullanabilirsiniz.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ThisWorkbook.Save
    'ActiveWorkbook.Close 'Sadece aktif olan excel uygulamasını kapatır.
    Application.Quit 'Tüm excel uygulamalarını kapatır.
End Sub

 

[Ercan_ÇELİKOĞLU]

Selamlar,

Farkettiğim kadarıyla forumda arama yapmadan sorularınızı soruyorsunuz. Arama özelliği ile tüm sorularınızın cevaplarını bulabilirsiniz. Arama yapıp sonuca ulaşamadığınız durumlarda sorularınızı sorarsanız daha faydalı olacaktır.

Aşağıdaki kodu kullanabilirsiniz.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ThisWorkbook.Save
    'ActiveWorkbook.Close 'Sadece aktif olan excel uygulamasını kapatır.
    Application.Quit 'Tüm excel uygulamalarını kapatır.
End Sub

maalesef kodunuz çalışmadı hata veriyor

 

[Korhan Ayhan]

Selamlar,

Sanırım bir önceki mesajımda vermiş olduğum kapanışta mesaj kodu ile aynı dosyada kullanıyorsunuz. Eğer bu şekilde kullanıyorsanız iki kodu birleştirmek gerekecektir. Aynı kitap içinde aynı olaya birden fazla kod uygulayamazsınız. Bu durumda aşağıdaki kodu kullanmanız daha uygun olacaktır.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ThisWorkbook.Save
    'ActiveWorkbook.Close 'Sadece aktif olan excel uygulamasını kapatır.
    MsgBox "SN. " & Sheets("Sayfa1").Range("A1") & " İYİ GÜNLER !
    Application.Quit 'Tüm excel uygulamalarını kapatır.
End Sub

 

[Ercan_ÇELİKOĞLU]

Selamlar,

Sanırım bir önceki mesajımda vermiş olduğum kapanışta mesaj kodu ile aynı dosyada kullanıyorsunuz. Eğer bu şekilde kullanıyorsanız iki kodu birleştirmek gerekecektir. Aynı kitap içinde aynı olaya birden fazla kod uygulayamazsınız. Bu durumda aşağıdaki kodu kullanmanız daha uygun olacaktır.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ThisWorkbook.Save
    'ActiveWorkbook.Close 'Sadece aktif olan excel uygulamasını kapatır.
    MsgBox "SN. " & Sheets("Sayfa1").Range("A1") & " İYİ GÜNLER !
    Application.Quit 'Tüm excel uygulamalarını kapatır.
End Sub

Özürü bir borç biliyor teşekkür ediyorum bu sefer oldu ben exceli yeni öğreniyorum o yüzden lütfen cahilliğimi bağışlarmısınız.

 

[alaybeyli]

Cost kontrol arkadaşım bende teşekkür edeyim.
katkılarından istifade ettim. sağol işin gücün rast gelsin.

 

[starmetin]

Selam arkadaşlar macrolar sorunsuz çalışıyor teşekkürler ama yalnız böyle bir şey yapmak mümkün olabilirmi fazla bir şeymi istemiş olurum
kapanış ve açılış mesajlarında ,
belirli saat aralıklarında mesajlar farklı gelicek örnek olarak ;
sabah 08 ve 11 arası ( Günaydın Sn.Metin)
11 ve 16 arası ( iyi günler Sn.Metin)
17 ve ondan sonrası ( iyi akşamlar gibi ) otomatik mesajlar saate göre değişebilirmi bunu ayarlayabilirmiyiz..
aynı şekilde kapanış mesajıda bu şekilde dizayn edilebilirmi
teşekkürler arkadaşlar....

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[starmetin]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

aynen bu şekilde istediğim gibi olmuş kardeş eline sağlık...teşekkürler

hürmetler...

 

[baydeniro]

Teşekkürler

 

[fahri_antebi]

çok teşekkür ediyorum benim de çok işime yaradı.