Userform Açık İken Başka Excel Kitabı Açabilmek ve Görebilmek

[Ergün Güler]

Selam,
ShowModal=False ve olan Bir UserForm'um var. Bu UserForm Açık iken başka excel kitabı açıyorum. Kitap açılıyor ancak, bir türlü göremiyorum. görev çubuğunda 2 tane excel kitabı görünüyor. 2.açtığım kitaba tıklasamda açamyorum. Userform'u kapamadan Bunu nasıl sağlayabilirim?.
Yardımcı olabilirseniz çok sevinirim.

İyi çalışmalar.

 

[Orion1]

Aşağıdaki kodları deneyiniz.

'evrengizlen@hotmail.com
'herhangi açık olan bir dosyayı aktif etmek
Workbooks("Test.xls").Activate
'Asıl dosyayı aktif etmek.
ThisWorkbook.Activate

 

[Ergün Güler]

Aşağıdaki kodları deneyiniz.

'evrengizlen@hotmail.com
'herhangi açık olan bir dosyayı aktif etmek
Workbooks("Test.xls").Activate
'Asıl dosyayı aktif etmek.
ThisWorkbook.Activate

Evren Hocam,
Özür dilerim, anlamadım nereye uygulayacağım kodu?

 

[mahmutozdemir]

Aynı sorunu bende yaşıyorum.

 

[ssomar]

Örnek dosya eklerseniz daha iyi olacaktır.

Bir modül ekleyip içine şunlar yazıp çalıştırıp, tekrar deneyin..
Sub formac()
userform1.show (modal) ' sizin form isminiz ne ise onu kullanın
end sub

 

[Ergün Güler]

Aynı sorunu bende yaşıyorum.

Selam Sayın mahmutozdemir,
biraz uğraştım nihayet buldum. kodlar aşağıdaki gibidir. Kırmızı alandaki form ismini siz kendinize uyarlarsınız.
Kitabınızın pencersinin ne zamanlar aktif-pasif olduğunu gördükten sonra MsgBox'ları silebilirsiniz.
İyi çalışmalar.

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
'MsgBox "Window aktif"
[COLOR="Red"]anasayfa[/COLOR].Show
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
'MsgBox "Window De-aktif"
[COLOR="red"]anasayfa[/COLOR].Hide
End Sub

 

[mahmutozdemir]

Selamlar Ergün Bey,
Deneme adındaki excel Kitabın ThisWorkBook bölümüne yukarda verdiğiniz iki koduda yazdım. Kitabı açınca excel kitabı üstünde userform açılıyor(burda nasıl excel dosyasını gizleriz sadece userform kalır) .Seans sekmesine tıklayınca masa üstündeki a adındaki excel kitabını açıyor.(burası tam istediğim gibi).
Kısacası deneme kitabını açınca sadece userform açılsın,seans butonuna basınca a adındaki excel dosyası açılsın.

 

[Ergün Güler]

Selamlar Ergün Bey,
Deneme adındaki excel Kitabın ThisWorkBook bölümüne yukarda verdiğiniz iki koduda yazdım. Kitabı açınca excel kitabı üstünde userform açılıyor(burda nasıl excel dosyasını gizleriz sadece userform kalır) .Seans sekmesine tıklayınca masa üstündeki a adındaki excel kitabını açıyor.(burası tam istediğim gibi).
Kısacası deneme kitabını açınca sadece userform açılsın,seans butonuna basınca a adındaki excel dosyası açılsın.

Selam,

Private Sub Workbook_Open()
Application.WindowState = xlMinimized
UserForm1.Show
End Sub