userform kapanırken kodun çalışması?

[udentr2002]

Merhaba arkadaşlar,
2 tane usrformum var userform2 yi çarpıdan kapatınca userform1'in initializedeki kodlarının çalışması için nasıl bir kod yazabilirim?
ilgilenen tüm arkadaşlarıma teşekkür ederim

 

[mpirpanlar]

UserForm1'de çalışmasını istediğin event'in özelliğini değiştirmelisin...

Selamlar;

UserForm1'de herhangi bir olayı tıkladığın zaman
Ör:
Private Sub UserForm_Initialize()

End Sub
'--------------------------
Private Sub UserForm_Click()

End Sub

şeklinde otomatik event blokları oluşmaktadır.
sen burda hangi event'e ulaşmak istiyorsan onun kullanım alanını
Private'ten Public'e çevirmelisin. yani event blokun aşağıdaki gibi olmalı

Ör:
Public Sub UserForm_Initialize()

End Sub
'--------------------------
Public Sub UserForm_Click()

End Sub

userform2'nin QueryClose event'ini kullanarakta 2. formun kapanma işleminde
1. formun Initialize event'ini çağırabilirsin.


'Bu ikinci formun QueryClose event'i
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
UserForm1.UserForm_Initialize
End Sub


UserForm2 kapanırken UserForm1'in oluşturulma event'ine gidip orada yazmış olduğun kodları çalıştıracaktır

 

[udentr2002]

Hocam öncelikle ilgilendiğin için çok teşekkür ederim yanlız pek anlayamadım vede 2. formun kodları bölümüne aşağıdaki kodu yazdım.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
UserForm1.UserForm_Initialize
End Sub

fakat hata verdi compile error hatası verip userform_initialize bölümünü renkli olarak işaretliyor

 

[microaim]

ekteki gibi olabilir mi?

 

[microaim]

ikinci formun kodlarının çalışması açısından bu daha uygun olur herhalde.

 

[udentr2002]

teşekürler hocam ellerinize sağlık, göndermiş olduğunuz örnekteki kodları kullanarak çözdüm sorunumu, ayrıca mpirpanlar hocam sanada teşekkür ederim