Çalışma sayfaları sekmesine tıklayınca userform1 açılsın.

[gecemavisi]

Saygıdeğer arkadaşlar.
çalışma sayfalarının sekmelerinin üzerine tıklayınca userform1 i nasıl aktif yapabiliriz.

Saygılarımla...

 

[Ali]

Sayfa1'in sekmesini tıkladığınızda Userform1'iniz gözükmesi için aşağıdaki kodları kullanabilirsiniz

Private Sub Worksheet_Activate()
UserForm1.Show
End Sub

 

[gecemavisi]

Burda hocam userformu kapatıyorum ve menuyu aktif hale getirmem için gene başka sayfayı açıp o sayfanın üzerine bir daha tıklamam icap ediyor. Var mı bu işin çaresi sizce;
Teşekkürlerimi sunuyorum...

 

[Korhan Ayhan]

Selamlar,

Bu tür bir kullanıma niçin gerek duyuyorsunuz. Açıklarsanız belki farklı bir çözüm öneren olabilir. Mesela formu kapattıktan sonra aynı sayfada bir hücreye çift tıklayarak tekrar formu açabilirsiniz.

 

[gecemavisi]

Sn Cost Control, Burdan maksatım çalışma sayfasının içind adam zaten kayboluyor. çok geniş sütun alanında çalışıyor. Kısayolla da pratik olmuyor. istiyorumki tek hareketle açabilsin.
Saygılarımla...

 

[Haluk]

ThisWorkbook modülüne;

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    UserForm1.Show
End Sub

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    UserForm1.Show
End Sub

Sayfa değiştirirken veya sayfa üzerinde çift tıklayınca UserForm1 açılır.

 

[Korhan Ayhan]

Selamlar,

Sn. Haluk beyin çözümüne alternatif olarak çalışma içerisinde tek tuşla form açmak için mesela F12 tuşuna aşağıdaki kodlama ile kısayol yapabilirsiniz.

Sub Auto_Open()
    Application.OnKey "{F12}", "TEST"
End Sub

Sub TEST()
    UserForm1.Show
End Sub

Sub Auto_Close()
    Application.OnKey "{F12}", ""
End Sub

 

[Haluk]

Başka bir alternatif de, ekteki dosyadadır....

Sayfa değiştirirken UserForm1 otomatik olarak açılır ve siz kapatıp, tekrar açmak istediğinizde sayfa sekmeleri üzerinde sağ tıklayarak açılan menünün sonuna eklenmiş olan menüyle, UserForm1!i tekrar açabilirsiniz.

 

[Seyit Tiken]

Bazen 10 sanyelik bir işi 5 saniyeye indirmek için azami gayret gösteririz. Aslında yapılan işe göre farklı çözümler, alternatifler bolca mevcut. Excel-VBA bunu bize sağlıyor. Yapılan açıklamaya göre, bende bir çüzüm yolunu sunmak istiyorum. Excelin orjinal menülerinin arasına bir düğme atanıp, kod bu düğmeye atanabilir. Aynı zaman yeni bir araç çubuğuda oluşturulabilir. Sayfanın neresinde olursa olunsun, bu çubukla ilgili sayfa(lar) kontrol edilebilir.

 

[gecemavisi]

Arkadaşlar size teşekkür ediyorum. Tam aradığım kodlar değil ama ilerde çok işime yarayacağına eminim. Koleksiyonuma ekledim.
Tam aradığıma uygun kod üreten olursa minnettar olurum (eğer prensip olarak böyle bir şey yapılabilirse)
teşekkürler...
İyi çalışmalar

 

[Haluk]

Örnek dosyayı indirip, denediniz mi ?

 

[gecemavisi]

Denedim Haluk Bey,
Ama aslında benim sağ tuştan ziyade daha da rahat kullanılabilen bir komuta ihtiyacım var,
İlginiz ve yardımlarınız için teşekkür ederim...

 

[Haluk]

COST_CONTROL'un önerisi zaten "tek hareket" gerektirir.

O da mı olmadı ?

 

[Ali]

çalışma sayfalarının sekmelerinin üzerine tıklayınca userform1 i nasıl aktif yapabiliriz

Soru nerelerden nerelere geldi. Üstelik bu soruya uygun cevaplarda geldi. Hadi bakalım hayırlısı

 

[gecemavisi]

Sn Cost Control en azından fonksiyon tuşlarına makro atama konusunda bana yardımcı oldu. Teşekkürlerimi sunuyorum kendisine. Bir de bu işi mouse la daha hızlı hale getirebilirsem daha güzel olacak. Üstte menü olarak eklemiştim "userformu göster " diye ama başka çalışma sayfalarında da çıktığı için vazgeçtim. Neyse bi çözüm bulurum heralde. Mesela çalışma sayfası değiştiğinde özelmenü kalkıp yerine yenisininki geldiğinde bu iş çözülür sanıyorum. Bir deneyeyim.
Sağolun Arkadaşlar...

 

[zafer]

Merhaba

Bütün üye arkadaşlarınki esasında derdinize deva ama.

"Mouse ile daha hizlı hala getirebilsem"

Sn haluk'un kodlarında
Sol yerine sağ mose basıp Formu seceçeksizniz o kadar

 

[Seyit Tiken]

Birinci sayfanın kod penceresine bu kodu yapıştırınız.

Private Sub Worksheet_Activate()
UserForm1.Show 0
End Sub

İkinci sayfanın kod penceresine bu kodu yapıştırınız.

Private Sub Worksheet_Activate()
UserForm1.Hide
End Sub