Multipage: page1 aktif gelsin+ uste 2ci form açma

[cems]

Bir multipage açıldığında, eğer sayfa adı page1 değilse ( mesela OCAK) bu durumda nerde kapatıldı ise orda açılıyor.

a- Multipage üzerinde OCAK sayfasının , formun açılması ile gelen aktif kart olmasını ,
b- Bu multipage açıldıktan 2-3 saniye sonra ikinci bir formun üzerine açılmasını nasıl sağlarız?

ilk sayfadaki soru olan : eğer ilk sayfada bir seçim varsa diğer sayfalara da onlara gitmeden aynı seçimi getirme konusunu sanırım çözdüm kendimce. Daha olumlu fikir sevindirici olur.

 

[Orion1]

* VBE'de iken istediğiniz sekmeyi seçili yapın.
* aşağıdaki kodu kullanarak 2 sn geç açabilirisniz uf 2 de.
userform1 nin activate olayında.

Private Sub UserForm_Activate()
Application.Wait Now + TimeValue("00:00:02")
Unload Me
UserForm2.Show
End Sub

 

[cems]

Sayın Orion1;
Öncelikle çok teşekkür ederim.
ilk userform'da şu kodlar ;

Sub auto_open()
Application.Visible = False
UserForm1.Show
DATABANK.Show
Application.Visible = True
Sheets("Firma").Select
End Sub

ve ikinci userform'da şu kodlar;

Private Sub UserForm_Initialize()
DoEvents
Application.Wait Now + TimeValue("00:00:03")
End If
End Sub


Private Sub CommandButton1_Click()
Unload Me
End Sub

bulunuyor ve son davranışı 3 sn bekleyerek 2ci uv açılıyor, bunu kapatınca 1ci uv açılıyor.
Sürekli yer değiştirerek denedim ama gereken davranış ; 1ci uv açılıp yerleştikten 3 sn kadar sonra 2ci uv'nin bunun üzerine açılması ..

Sizce nerde hata yapıyorum ?

 

[Orion1]

Ekli dosyayı inceleyiniz.Kodlarda ufak değişiklik yaptım.

 

[cems]

Sayın Orion1;
Harika bir sessiz geçiş aynı ölçüdeki formlarda. Ancak orijinal dosyada userform1 tam ekran ve bu kapanmadan 1/4 boyutta ( birtakım önbilgiler veren) küçük bir userform2 bunun üstüne açılmalı. Küçük formdaki yönergelere göre kullanıcı bunu kapatıp tam ekran userform'da çalışmaya geçecek.

 

[Orion1]

Sayın Orion1;
Harika bir sessiz geçiş aynı ölçüdeki formlarda. Ancak orijinal dosyada userform1 tam ekran ve bu kapanmadan 1/4 boyutta ( birtakım önbilgiler veren) küçük bir userform2 bunun üstüne açılmalı. Küçük formdaki yönergelere göre kullanıcı bunu kapatıp tam ekran userform'da çalışmaya geçecek.

unload me yazan yere Tek tırnak koyup formun kapanmasını iptal ettim.

Private Sub UserForm_Activate()
Application.Wait Now + TimeValue("00:00:02")
[B][COLOR="Red"]'Unload Me[/COLOR][/B]
UserForm2.Show
End Sub

 

[cems]

Saatin mi hikmetidir nedir , dediklerinizi yaptım ama birşeyi kaçırıyorum sanırım.

Kod sonsuz döngüye girip 2ci uv'yi kapatsam da yeniden getiriyor ve bu böyle devam ediyor.

 

[Orion1]

Saatin mi hikmetidir nedir , dediklerinizi yaptım ama birşeyi kaçırıyorum sanırım.

Kod sonsuz döngüye girip 2ci uv'yi kapatsam da yeniden getiriyor ve bu böyle devam ediyor.

Ne istediğiniz tam anlayamadım.Ama ekteki dosyayı bir deneyin bakalım.