Userformlar farklı sayfalarda açılsın.

[sedat2161]

Ekli dosyamda 3 adet useformum var bunların her birinin farklı sayfalarda otomatik olarak açmak mümkün mü acaba. Ben bir sayfaya ancak uygulayabildim. Örnek dosyada 3.sayfada açılışta otomatik olarak geliyor. Yardımlarınızı bekliyorum.

 

[Korhan Ayhan]

Merhaba,

"Ana" isimli sayfanızın ismi üzerinde sağ tıklayın ve KOD GÖRÜNTÜLE komutunu çalıştırın. Karşınıza gelen ekrana aşağıdaki kodu uygulayın.

Private Sub Worksheet_Activate()
    UserForm1.Show (0)
End Sub

Diğer sayfalara da aynı şekilde formun adını değiştirerek uygulayabilirsiniz.

 

[sedat2161]

Merhaba,

"Ana" isimli sayfanızın ismi üzerinde sağ tıklayın ve KOD GÖRÜNTÜLE komutunu çalıştırın. Karşınıza gelen ekrana aşağıdaki kodu uygulayın.

Private Sub Worksheet_Activate()
    UserForm1.Show (0)
End Sub

Diğer sayfalara da aynı şekilde formun adını değiştirerek uygulayabilirsiniz.

Hocam kodları uyguladım 3 forumda aynı sayfalar üzerinde açık kalıyor. Ana sayfaya giriş yaptığımda sadece userform 1, Bilgi sayfasına girdiğim zaman userform2, kaya sayfasına girdiğimde userform3, açılması için bir çözüm yokmudur acaba . Her sayfada sadece kendi formu görünsün.

 

[Korhan Ayhan]

Mesajımın tamamını lütfen dikkatli okuyunuz.

 

[sedat2161]

Mesajımın tamamını lütfen dikkatli okuyunuz.

Hocam yanlış anlamadıysam, ana adlı sayfaya kodu uyguladım, diğer sayfalara da uyguladım (sayfaların adını değiştirerek) . Ama örneğin Ana sayfada ana sayfaya ait form1 açıldı bilgiye geçtim bilgiye ait form2 açıldı burada 2 formda açık durumda burada sadece form 2 açık kalabilir mi . Aynı sorun kaya sayfasında bu sefer 3 form açık kalıyor.

 

[Korhan Ayhan]

Diğer açık formları kapatmak için kodu aşağıdaki gibi düzenleyebilirsiniz.

Yine her sayfanın kod bölümüne formların adlarını değiştirerek uygulamalısınız.

Private Sub Worksheet_Activate()
    On Error Resume Next
    Unload UserForm2
    Unload UserForm3
    On Error GoTo 0
    
    UserForm1.Show (0)
End Sub

 

[sedat2161]

Diğer açık formları kapatmak için kodu aşağıdaki gibi düzenleyebilirsiniz.

Yine her sayfanın kod bölümüne formların adlarını değiştirerek uygulamalısınız.

Private Sub Worksheet_Activate()
    On Error Resume Next
    Unload UserForm2
    Unload UserForm3
    On Error GoTo 0
   
    UserForm1.Show (0)
End Sub

Hocam oldu emeğinize sağlık. Çok teşekkür ederim. İyi çalışmalar diliyorum.