Sayfa değiştiğinde Userform kapansın veya açılsın.

[safaari]

Merhaba.
Excelde bir kaç sayfa açık ve bu sayfalardan sadece birinde userform çalışmasını istiyorum diğer sayfalara geçince kapansın geri gelince açılsın. böyle bir makro komutu varmı.

Şimdiden yardımlarınız için teşekkürler.

 

[muygun]

Merhaba;

Sayfanın kod bölümüne;

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
On Error Resume Next
UserForm1.Show 0
End Sub

Private Sub Worksheet_Deactivate()
Unload UserForm1
End Sub

Kodlarını yerleştirip deneyin.
İyi çalışmalar.

 

[safaari]

Merhaba;

Sayfanın kod bölümüne;

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
On Error Resume Next
UserForm1.Show 0
End Sub

Private Sub Worksheet_Deactivate()
Unload UserForm1
End Sub

Kodlarını yerleştirip deneyin.
İyi çalışmalar.

çok teşekkür ederim. tam istediğim şekilde oldu. sağlun

 

[safaari]

Merhaba;

Sayfanın kod bölümüne;

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
On Error Resume Next
UserForm1.Show 0
End Sub

Private Sub Worksheet_Deactivate()
Unload UserForm1
End Sub

Kodlarını yerleştirip deneyin.
İyi çalışmalar.

Merhaba. cevabınız için teşekkür ediyorum. sayfalar arasında gezerken userform kapanıp açılıyor çok iyi. yanlız kitaplıklar arasında gezerken kapanıp açılmıyor. öyle sabit açık kalıyor. bununda bir çözümü var mı ?
iyi günler.

 

[safaari]

Merhaba. cevabınız için teşekkür ediyorum. sayfalar arasında gezerken userform kapanıp açılıyor çok iyi. yanlız kitaplıklar arasında gezerken kapanıp açılmıyor. öyle sabit açık kalıyor. bununda bir çözümü var mı ?
iyi günler.

Sorumun cevabını biraz kurcalaya kurcalaya buldum
Thisworkbook içine aşağıdaki makroyu yazınca kitaplık değişince userform kapanıyor. Teşekkürler.

Private Sub Workbook_Deactivate()
Unload UserForm1
End Sub