Status Bara mesaj ekleme

[kurmayy]

Merhaba..

Bu kodu daha önce kullanmıştım ama şimdi hatırlamıyorum..

Status bara mesaj eklemek istiyorum.Örenek: excell dosyası açıldığında sol alt köşede farklı mesajlar vermek istiyorum..

Yardımlarınız için şimdiden çok teşekkürler..

 

[PLİNT]

Merhaba..
Status bara mesaj eklemek istiyorum.Örenek: excell dosyası açıldığında sol alt köşede farklı mesajlar vermek istiyorum..

Merhaba
Aşağıdaki gibi deneyin

Application.StatusBar = "kurmayy"

 

[kurmayy]

Merhaba
Aşağıdaki gibi deneyin

Application.StatusBar = "kurmayy"

Sayın Plint Çok teşekkürler cevabınız için office 2010 kullanıyorum makroları etkinlenştirip kaydetmem ramen mesej çıkmadı neden olabilir..

 

[PLİNT]

Kapalı olabilir
Şöyle deneyelim.

 Application.DisplayStatusBar = True
Application.StatusBar = "kurmayy"

 

[kurmayy]

Kapalı olabilir
Şöyle deneyelim.

 Application.DisplayStatusBar = True
Application.StatusBar = "kurmayy"

Malesef olmuyor..Tüm seçenekleri denedim verdiğiniz kod ile neden kaynaklanıyor olabilir..

 

[kurmayy]

Malesef olmuyor..Tüm seçenekleri denedim verdiğiniz kod ile neden kaynaklanıyor olabilir..

Kodu ekleyip kaydediyorum ama kapatıp tekrar açtığım kod görünmüyor.. Sanırım bundan kaynaklanıyor Ne yapabilirim..

 

[PLİNT]

Dosyanızı; kodları yazdıktan sonra
"farklı kaydet" ten "excel çalışma kitabı" yerine "makro içerebilen excel çalışma kitabı" olarak kaydetmeyi denedinizmi?

 

[kurmayy]

Dosyanızı; kodları yazdıktan sonra
"farklı kaydet" ten "excel çalışma kitabı" yerine "makro içerebilen excel çalışma kitabı" olarak kaydetmeyi denedinizmi?

Evet Denedim..

Excel Macro enabled workbook olarak kaydediyorum ama sonuç aynı

 

[PLİNT]

O zaman
Kodları çıplak kullanıyosunuz,
Bir düğme, butona bağlamalı veya varsa kullandığınız kodların arasına katmalısınız.
http://s3.dosya.tc/server7/og1818/status.zip.html

Private Sub CommandButton1_Click()

Application.DisplayStatusBar = True
Application.StatusBar = "kurmayy"
End Sub

 

[cayaso]

Ben genelde Sub Autpen() ekliyorum gayet iyi çalışıyor.

 

[kurmayy]

Macroları otomatik etkinleştir yapmama ramen çıkmıyor manuel olarak çalıştırdığımda mesajım çıkıyor..
Bunu nasıl çözeceğiz??

 

[PLİNT]

Merhaba
Mesajın hangi durumlarda verilmesini istediğinizi belirterek; bir örnek dosya ekleyip indirme
adresini verirmisiniz? http://s3.dosya.tc/

 

[kurmayy]

Merhaba
Mesajın hangi durumlarda verilmesini istediğinizi belirterek; bir örnek dosya ekleyip indirme
adresini verirmisiniz? http://s3.dosya.tc/

Merhaba..

Dosya ekte mesajın excell dosyası açılırken otomatik olarak çıkmasını istiyorum..Daha önce kullandığım dosyalarda sorun olmuyor ama şimdi nedense bu sorunu yaşamaya başladım..

http://s3.dosya.tc/server7/pfjnsw/EA.rar.html

Teşekkürler..

 

[PLİNT]

"Thisworkbook" sayfasına şöyle deneyin:

Private [COLOR="Red"]Sub Workbook_Open()[/COLOR]
 Application.DisplayStatusBar = True
Application.StatusBar = "Kurmayy"
End Sub

http://s3.dosya.tc/server7/x3wvhp/EA2.zip.html

"Sub auto_open" Kullanacağınız zaman bir modül ekleyip modüle yazınız.

 

[kurmayy]

"Thisworkbook" sayfasına şöyle deneyin:

Private [COLOR="Red"]Sub Workbook_Open()[/COLOR]
 Application.DisplayStatusBar = True
Application.StatusBar = "Kurmayy"
End Sub

http://s3.dosya.tc/server7/x3wvhp/EA2.zip.html

"Sub auto_open" Kullanacağınız zaman bir modül ekleyip modüle yazınız.

Bilginize emeğinize sağlık hocam iyiki varsınız çok teşekkürler...