Çözüldü İlk açılışta mesaj gelmesin ToggleButton

[ASLAN7410]

Merhaba hayırlı geceler.

Ekte gönderdiğim excel dosyamı her açtığımda ToggleButton'un çalıştırılarak Beyaz komutunun çalışmasını istiyorum.
Sayfa kaydedildiğinde farklı kayıtlar kaldığından Beyaz komutunun çalışmasını olmasını istiyorum.
Yapmaya çalıştım ancak hata veriyor.

Yardımcı olur musunuz?

 

[muygun]

Merhaba;

Private Sub Workbook_Open()
Sheets(1).Select
Sheets(1).ToggleButton1_Click
ToggleButton1.Caption = "Beyaz"
End Sub

mevcut kodlarınızı boş bir modüle yerleştirerek deneyin.
İyi çalışmalar.

 

[Seyit Tiken]

Bu kod alternatif olabilir.

Sayfa1.ToggleButton1 = 0

 

[ASLAN7410]

Sayın muygun Bey ve Sayın Seyit Bey, ilginiz için çok teşekkür ediyorum, ellerinize yüreğinize sağlık.
Kodu aşağıdaki gibi yapınca istediğim sonucu aldım.

Private Sub Workbook_Open()
Sheets(1).Select
Sheets(1).ToggleButton1 = 0
Sayfa1.ToggleButton1.Caption = "Beyaz"
End Sub

Excel dosyamı açtığımda ekte gönderdiğim 1.resimdeki gibi oluyor buton,
excel dosyamı açtığımda ekte gönderdiğim 2.resimdeki gibi olması için koda nasıl ekleme yapmak gerekir. (Butona tıkladığımda (...) nokta şeklinde çerçeve çıkıyor, dosyayı ilk açtığımda bu şekilde olabilir mi?)

Bu konuda yardımcı olur musunuz?

 

[muygun]

Merhaba;
İsteğinizi yada ToggleButton'un işlevi veya ne yapması gerektiğini tam anladığımı söyleyemem ama;
Noktaların yerine ToggleButton font,yazı tipi vs düzenleyerek ToggleButton'un hangi konumda olduğunu belirleyebilirsiniz.
Ekteki örnek dosyayı sayfada , modülde ve ThisWorkbook alanlarındaki kodları inceleyin.
Bu kod parçacıklarından kendinize uygun kodlar üretebilirsiniz.
İyi çalışmalar.

 

[ASLAN7410]

Sayın muygun Bey, ellerinize sağlık uğraşmışsınız, çok teşekkür ediyorum. Noktalı çerçeve önemli değil o zaman.

Uğraştığım dosyamın bir kopyasını ekte gönderiyorum, dosyamı ilk açtığımda ekrana mesaj geliyor.

Yani yapmak istediğim, dosyayı ilk açtığımda kodlar çalışsın, mesaj vermesin, sayfa üzerinde togglebutton'a bastığımda kodlar çalışsın mesaj versin istiyorum.
Önceki örneklerden aldığım if kontrol gibi denedim ama bir türlü olmadı, bu konuda yardımcı olur musunuz?

 

[ASLAN7410]

Merhaba hayırlı geceler.
Arkadaşlar konuyu çözdüm belki birinin işine yarar diye dosyayı ekliyorum.

 

[muygun]

Syn. ASLAN7410;
Çözüme ulaşmanıza sevindim.
Sonuçlandırdığınız dosyayı paylaşmanızda güzel bir davranış.
Bundan dolayı size ayrıca teşekkür ederim.
İyi çalışmalar.