Başka Açık Bir Excel Çalışma Sayfasındaki Formu Açma

[alpay1]

Ana Dosya olarak kullandığım bir "cari-a1.xls" adındaki Çalışma Sayfasındaki
formdan diğer dosyaları örneğin;"cari.xls" açıyorum.Burada gerekli işlemleri yaptıktan sonra kapatıyorum.Cari kapanınca anadosyada “anasayfayı seçiyor fakat “anamenu” isimli UserFormu açacak bir koda ihtiyacım var.Yardımcı olursanız sevinirim.
Teşekkürler.

 

[Levent Menteşoğlu]

Ana dosyanızın Thisworkbook sayfasına aşağıdaki kodu yazarak deneyin.
[vb:1:cf6242b51d]Private Sub Workbook_Activate()
anamenu.Show
End Sub
[/vb:1:cf6242b51d]

 

[alpay1]

Bu şekilde denedim fakat Formu açmıyor.

 

[Levent Menteşoğlu]

Bende denedim gayet güzel çalışıyor. Kodu doğru yere yazdığınızdan eminmisiniz? Kod içinde bulunduğu dosyaya geri dönüldüğünde userformu açacaktır.

Ana dosyanızın Thisworkbook sayfasına aşağıdaki kodu yazarak deneyin.

kodun bulunduğu dosyayla beraber başka bir excel dosyası açın,sonra diğer dosyaya geçin ve bu dosyayı kapatın veya tekrar anadosyaya geri dönüş yapın kod çalışacaktır.

 

[alpay1]

Aşağıdaki kodu derken
Private Sub Workbook_Activate()
anamenu.Show
End Sub
kastediyorsanız denedim.Olmadı.
Kapttığım dosyada şu kodlar var.

Private Sub CommandButton2_Click()
unload Me
ActiveWorkbook.Close False
End Sub
Kapatacağım dosyayı Formdan değilde normal kapatırsam anamenü açılıyor.

 

[Levent Menteşoğlu]

Benim verdiğim kodu cari-a1.xls dosyanızın ThisWorkbook sayfasına yazacaksınız.

 

[alpay1]

Sayın leventm,
Sizin verdiğiniz kodu cari-a1.xls dosyasının ThisWorkbook sayfasına yazdım, olmadı.Başka bir yolu var mı acaba.

 

[danersin]

İzninizle birilerinin daha rahat yardım etmesi için sorunuzu biraz açacağım.

alpay bey "cari-a1.xls" daki userformdaki bir command button ile bu userform'u onload ediyor ve "cari.xls" deki bir userform'u açıyor. O formla işi bitince cari.xls'yi kapatıyor. Bu şekilde aktif window yine cari-a1.xls oluyor. ama tabi userform açık değil. Bu dönüş anında userform'un açık olmasını istiyor.

cari-a1'deki ana userformdan diğer userformu açar iken
[vb:1:29922fc860]Private Sub CommandButton17_Click()
ChDir "C:\cari-a1"
Workbooks.Open(Filename:="C:\cari-a1\cari.xls").RunAutoMacros Which:= _
xlAutoOpen
End Sub[/vb:1:29922fc860]



cari.xls'deki userformda işi bitincede bu kodla kapatıyor
[vb:1:29922fc860]Private Sub CommandButton3_Click()
'/_
Dismi = ActiveWorkbook.Name
ActiveWorkbook.SaveCopyAs "C:\cari-a1\cariyedek\ " & Dismi
ActiveWorkbook.Save
Unload Me
ActiveWorkbook.Close False
End Sub[/vb:1:29922fc860]


Soru bana özelden sorulduğu için biliyorum. Ve anladığım kadarıyla CB17'nin olduğu userform'un dosya açılışında show olmasını istemediği için workbook-open yada activate'e yazmak pek istemiyor. Bu durumda CB3'e yazacağımız bir komutla diğer zaten açık olan cari-a1.xls dosyadaki userform'u show yapmalıyız diye düşünüyorum. Benden bu kadar.

 

[alpay1]

Sayın Ersin Bey'in açıklamasından sonrada bir çözüm olmadı.Belki daha iyi anlaşılır düşüncesiyle ekte örnek dosya yolluyorum.Yardımcı olmak isteyen arkadaşlar için.
Buradan tekrar ben ve benim gibi birşeyler öğrenmek isteyen arkadaşlara elinden geldiğince yardımcı olan değerli (hocalarımıza) öğretmenlerimize çok teşekkür ediyorum.
İyi çalışmalar.

 

[danersin]

.rar dosyalarını indiremiyen arkadaşlar için son dosyanın zip hali. Ben baktım ama bir yerde hata yapıyorum anlamadım.

 

[idogus]

malt user formundaki kapat tuşunun altına aşağıdaki kodu yazıp dener misin ?
[vb:1:15034d9480]
Dismi = ActiveWorkbook.Name
ActiveWorkbook.SaveCopyAs "C:\cari-a1\maltakipyedek\ " & Dismi
ActiveWorkbook.Save
Unload Me
Windows(2).Activate
With Workbooks("maltakip.xls")
.Close False
End With
[/vb:1:15034d9480]

 

[alpay1]

Sayın idogus,
Çok teşekkür ederim.Kodlar işimi gördü.
Sağolun.