Açılışta UserForm

[cocoa35]

Arkadaşlar;
Userform ile ilgili bir çalışmaya ihtiyacım var şöyleki;
1-Ek'teki dosyanın ilk açılışında UserForm1 çıksın ve sayfa1 gözükmesin
2-UserForm1 deki commant button'a tıkladığımda aşağıda yazdığım adrese gitsin ve bu çalışma kitabı kapansın
"C:\Users\admin\Desktop\ornek3\ornek2.xlsm"

Bu konuda yardımcı olursanız çok sevinirim..iyi çalışmalar dilerim..

 

[Mahir64]

MErhaba,

Sayfa1 gizli mi kalacak?

Sub auto_open()
Sheets("Sayfa1").Visible = False
UserForm1.Show
End Sub

 

[cocoa35]

Tamam bu kod'lar ile Userform çıkıp sayfa gizli kalıyor, ancak benim istediğim, Örnek dosyadaki userform commandbutton'a tıkladığımda "C:\Users\admin\Desktop\ornek3\ornek2.xlsm"
adresindeki dosya açılsın ve Calısma1 dosyası kapansın..

 

[Mahir64]

Private Sub CommandButton1_Click()
ChDir "C:\Users\admin\Desktop"
Workbooks.Open Filename:="C:\Users\admin\Desktop\ornek3\ornek2.xlsm"
End Sub

 

[cocoa35]

Private Sub CommandButton1_Click()
ChDir "C:\Users\admin\Desktop"
Workbooks.Open Filename:="C:\Users\admin\Desktop\ornek3\ornek2.xlsm"
End Sub

Bu kod'ları userform'a kopyaladım ancak commandbutton'a tıkladığımda dosya'ya gitmiyor userform açık kalıyor.

 

[cems]

Private Sub CommandButton1_Click()
ChDir "C:\Users\admin\Desktop"
Workbooks.Open Filename:="C:\Users\admin\Desktop\ornek3\ornek2.xl sm"
unload me
End Sub

 

[cocoa35]

Yardımlarınız için teşekkür ediyorum ancak bir sorun var..Şöyleki;

Sub auto_open()
Sheets("Sayfa1").Visible = False
UserForm1.Show
End Sub

Yukarıdaki kod'da Sheets("Sayfa1").Visible = False olduğunda Başka klasördeki açtırmak istediğim "ornek2" dosyası gözükmüyor ancak vba bölümüne girdiğimde bu dosyanında açık olduğu görülüyor. "True" yaptığımda hem çalışma kitabımdaki sayfa görülüyor,hemde gitmesini istediğim dosya açılıyor..
Benim istediğim."ornek1" dosyasını tıkladığımda sadece userform1 gözüksün ve bu userformdaki commandbutton'nu tıkladığımda başka klasördeki "ornek2" dosyası açılsın gizli olmasın , aynı zamanda'da "ornek1" dosyası kapansın açık kalmasın..

 

[cocoa35]

Sorunu çözmekte yardım lütfen..