zaman gecikmeli açılan 2ci formda kısır döngü

[cems]

Yapılmaya çalışılan:
1- dosyanın auto_load ile açılması
2-auto_load'ın userform1 i yuklemesi
3-Bu açıldıktan ve ekranda kalarak ( kapatılmadan)
4-userform2'nin hala auto_load ile 3- 4 saniye sonra üste açılması
5-userform2'nin tusla kapatılması


Sorun: Bu dosyada yerleştirdiğimiz kodlar ya
a- userform2 yi önce açıyor ve bu kapanırsa userform1 geliyor
b-ya da kısır döngü başlıyor ve formlar birbirini sonsuza kadar cagırıp açıyor

Bu işlevi nasıl düzeltebiliriz?

 

[uzmanamele]

Merhaba

Bunu deneyiniz.

Public ac As Integer

Private Sub UserForm_Activate()
If ac >= 1 Then GoTo 10
Application.Wait Now + TimeValue("00:00:02")
ac = ac + 1
'Unload Me
IKI.Show
10
End Sub

 

[cems]

Sayın Uzmanamele;
Çok teşekkür ederim , döngü kendini tekrarlamadı verdiğiniz kodlarla. Dün gece 6 satır kod deli etmişti ve takmıştım nasıl olmuyor diye.

Sayenizde çözüldü