Zamanlamalı kod ?

[Gorarr]

Selamlar bir kodun aktif edildikten sonra mesela 5 saniye sonra çalışmasını sağlayabilirmiyiz. örneğin aşağıdaki koda bunu uygulayabilirmiyiz.
Yardımlarınız için teşekkürler..

Private Sub ComboBox1_Change()
TextBox1.Visible = True
TextBox2.Visible = True
ComboBox2.Visible = True
ComboBox3.Visible = True
End Sub

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub ComboBox1_Change()
TextBox1.Visible = True
TextBox2.Visible = True
ComboBox2.Visible = True
ComboBox3.Visible = True
End Sub

Private Sub UserForm_Activate()
Application.OnTime Now + TimeValue("00:00:05"), "ComboBox1_Change"
End Sub

 

[Gorarr]

Hocam kodu aynen kullandım ama çalışmadı. Örnek dosyada ekledim. Birkez daha bakabilirmisiniz. teşekkürler..

 

[N.Ziya Hiçdurmaz]

ComboBox1'e bir değer girdiğinizde ComboBox2 görünür olacaktır.

 

[Gorarr]

Hocam o zaten oluyordu da, benim istediğim 5sn sonra combobox2 nin ortaya çıkması.

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub UserForm_Activate()
ComboBox2.Visible = False
Application.OnTime Now + TimeValue("00:00:05"), "comboactif"
End Sub

Sub comboactif()[COLOR="Red"]'Bu kısmı module ekleyiniz[/COLOR]
UserForm1.ComboBox2.Visible = True
End Sub

 

[Gorarr]

Hocam çok teşekkür ederim. Mantığı anladım demiştim ama bir sorum daha olacaktı mümkünse. Userforma birde commandbutton ekledim. onuda 3 saniye gecikmeli çalışsın istesem nasıl eklenir kodlara. birçok şekilde denedim ama başarılı olamadım. teşekkürler...

 

[Taruz]

Merhaba..

Bu fonksiyonu bir modüle kaydediniz..:

Public Function Bekle(Sure As Single)
Dim Basla As Single
On Error GoTo trz
Basla = Timer
Do
DoEvents
Loop Until Basla + Sure < Timer
Trz_Exit:
Exit Function
trz:
MsgBox Err.Description
Resume trz
End Function

Kodlarınızın (eylemin) öncesinde kullanabilirsiniz..:

Private Sub ComboBox1_Change()
Bekle 3 'değeri saniye olarak belirleyiniz..

TextBox1.Visible = True
TextBox2.Visible = True
ComboBox2.Visible = True
ComboBox3.Visible = True
End Sub

 

[Gorarr]

Çok teşekkür ederim halloldu yapmak istediğim. Saygılar selamlar.