form açılışı

[uguristanbul]

Private Sub UserForm1_Activate()
ComboBox1.Value = "KODU"
ComboBox2.Value = "ADI"
CheckBox1.Value = True
CheckBox2.Value = True
CheckBox3.Value = True
CheckBox4.Value = True
CheckBox5.Value = True
CheckBox6.Value = True
TextBox5 = Format(Date, "dd.mm.yyyy")
TextBox6 = Format(Date, "dd.mm.yyyy")
End Sub
bu kodlar ekteki dosyanın
form1 den kayıtlı
ancak deki butonla formu açtığımda yukardaki kodlar çalışmıyor
Private Sub UserForm1_Initialize()
a yaz diyebilirsiniz ancak form daha sonraki aşamalarda başlatılacagı için bu olamaz.
ama form basladıgında yukardaki kodlar çalışmalı
saygılar

 

[Levent Menteşoğlu]

Yazdığınız olayın adı hatalı 1 rakamını kaldırın.

Private Sub UserForm1_Activate()

 

[uguristanbul]

tesekkurler