AÇILIŞTA ÖNCE USER FORM GELSİN

[turkanet]

MERHABA.
KENDİ ÇAPIMDA BİR USER FORM YAPMAYA ÇALIŞTIM. ÜZERİNDE 2 DÜĞME VAR. BİRİNE BASINCA A SAYFASINI, DİĞERİNE BASINCA B SAYFASINI AÇIYOR. AMA ŞUNU HALLEDEMEDİM: SAYFA AÇILMADAN ÖNCE USER FORM EKRANA GELSİN VE SEÇİM YAPMAK ZORUNDA KALAYIM.
YARDIMLARINIZI BEKLİYORUM, TEŞEKÜRLER.

 

[mehmett]

Sn endorphinn,

Aşağıdaki kodu deneyin;

[vb:1:52c8ed458a]Sub auto_open()
UserForm1.Show
End Sub[/vb:1:52c8ed458a]

 

[turkanet]

TAMAM OLDU AMA SEÇTİKTEN SONRA EKRANDAN GİTMİYOR. DÜĞMELERDEN BİRİNE TIKLAYINCA NASIL KAYBOLUR?

 

[Ayhan Ercan]

userform acılıp sayfanın görünmesini istemiyorsanız o zaman sayın mehmett in kodunu zenginleştirebiliriz. (sn mehmett in hoşgörüsüne sığınarak)

Sub auto_open()
Application.Visible=False
UserForm1.Show
End Sub

 

[Ayhan Ercan]

TAMAM OLDU AMA SEÇTİKTEN SONRA EKRANDAN GİTMİYOR. DÜĞMELERDEN BİRİNE TIKLAYINCA NASIL KAYBOLUR?

butona yazdığınız koda

Userform1.Hide
veya

Unload UserForm1
diye ilave edin.

 

[Nox]

istedigin düğme yani,commandbutton1 yerine kacsa,

[vb:1:a5d7cd45fe]Private Sub CommandButton1_Click()

Sayfa1.Select
UserForm1.Hide

End Sub[/vb:1:a5d7cd45fe]

şeklinde yapabilirsin

 

[turkanet]

BU KOD, SAYFAYI AÇIYOR AMA KAYBEDİYOR. BELKİ DE USER FORM SEÇTİKTEN SONRA KAPANMADIĞI İÇİN KAYBOLUYOR. SEÇTİKTEN SONRA NASIL KENDİ KENDİNE KAYBOLUR?

 

[Seyit Tiken]

Ekli dosyaya bir bakın.

 

[Ayhan Ercan]

BU KOD, SAYFAYI AÇIYOR AMA KAYBEDİYOR. BELKİ DE USER FORM SEÇTİKTEN SONRA KAPANMADIĞI İÇİN KAYBOLUYOR. SEÇTİKTEN SONRA NASIL KENDİ KENDİNE KAYBOLUR?

sorularınız karıştı. net bi şekilde ne yapmak istediğinizi yazarmısınız?

 

[turkanet]

1-İSTİYORUM Kİ, SAYFA AÇILMADAN USER FORM EKRANA GELSİN. TAMAM GELİYOR. AMA DÜĞMEYE BASINCA İSTEDİĞİM SAYFAYI HEM AÇMIYOR HEM DE KAYBOLMUYOR.

 

[Ayhan Ercan]

düğmeye yazacağınız kod:

Sub CommanButton1_Click()
Sheets("Sayfa1").Select
UserForm1.Hide
End Sub

Burda Sayfa ismini "Sayfa1" formuda "UserForm1" olarak varsaydık..

 

[turkanet]

TAMAM, BU DEFA DA SEÇİP KAYBOLUYOR AMA BELGEYİ AÇMIYOR. (

 

[Ayhan Ercan]

siz sorunuzu tam anlamıyla sormuyorsunuz herhalde.

şimdi ben size sorayım:
seçip kayboluyor ama belgeyi açmıyor diyorsunuz. belge ile kastettiğiniz ne? açmak istediğiniz belge ne? eger acmak istediğiniz belge herhangi bir sayfada bulunuyorsa o zaman Sheets("Sayfa1") denilen yerde o belgenin bulunduğu sayfa ismini yazın.

benim anladığım bu.

 

[algil]

Merhaba
Birde bunu deneyin olacaktır herhalde.

Sub CommanButton1_Click() 
Application.Visible = True
Sheets("Sayfa1").Select 
UserForm1.Hide 
End Sub

 

[mehmett]

CommanButton'ın kodunun sonunda End Sub'dan önce şu satırı ekleyin;

Unload Me

 

[turkanet]

SONSUZ TEŞEKKÜRLER...