userform refresh(yineleme)

[du643]

Selam Üstadlar,
userformda refresh yada yineleme nasıl yapabilirim?

 

[Ayhan Ercan]

Merhaba,

Ne yapmak istediğinize göre değişebilir.
Örnek Dosya ekleyebilirmisiniz.. ?

 

[du643]

Textbox daki mesaj program çalışırken kendini güncellemiyor.İlk bulduğu mesaj da kalıyor.
mesajlar userformun sub ..._activate altına yazılmı durumda, her mesajdan sonra bir modul çalışıyor. Örnek dosya çok büyük olduğu için yollayamıyorum.Umarım anlattıklarım yeterlidir.Refresh olarak değilde belki başka bir çözüm önerirsiniz.

 

[N.Ziya Hiçdurmaz]

yanıt

Bunları deneyebilirsiniz

Private Sub CommandButton1_Click()
For Each sil In Me.Controls
sil.Value = Empty
Next
End Sub

Private Sub CommandButton1_Click()
For Each sil In Me.Controls
If TypeName(sil) = "TextBox" Then sil.Value = Empty
Next
End Sub

Private Sub CommandButton2_Click()
unlad Me
UserForm1.Show
End Sub

 

[du643]

Sayın Hiçdurmaz,
Kodlar textbox ı siliyorlar gibi anladım. ben textbox ın silinmesini istemiyorum

 

[Ayhan Ercan]

Yineleme olayının ne zaman gerçekleşmesini istiyorsanız o kodun altına
Userform_Activate
ilave edin..
Örneğin..:

Private Sub CommandButton1_Click()
Textbox1.Text = "Excel"
...................
...................
[COLOR=royalblue]Userform_Activate[/COLOR]
End Sub