Private Sub UserForm_Activate()

[6729626]

Yukardaki kodu user formda bir kaç yerde nasıl kullanırız. Zira birden çok yerde kullandığım zaman hep hata veriyor. Teşekkürler Şimdiden iyi Bayramlar.

 

[hamitcan]

Birkaç yerde kullanamazsınız. Aynı kodun içinde kullanmanız gerekir. Yoksa "aynı isimli prosedürden birden fazla var" gibi bir mesaj alırsınız.

 

[Recep İpek]

Bunun yerine öneri olarak bir makro yaratıp, bu makroyu userform açılışlarında kullanabilirsiniz.

Sub Makrom()
Msgbox "Deneme 123"
End Sub

Private Sub UserForm_Activate()
Makrom
...

 

[6729626]

Sn. Ripek şöyle bir şey yapmak istiyorum: Bir adet user formum var ve texboxa tıkladığım zaman açılan calendar dan günün tarihini calendar.dan texboxa aktarmak ve aktardıkdan sonra calendarın kapanmasını istiyorum yalnız bu kodları "initialize" kodunu kullanmadan yapmak istiyorum ilginize teşekkürler. İyi bayramlar.

 

[Orion1]

Ekli dosyayı incelermisiniz?

 

[6729626]

Sayın Orion2 cevabınız için teşekkürler; Fakat calendar'ı, kullandığım userformun içindeki bir texboxa basınca çıkmasını istiyorum ve kullandığım userformun içinde "Private Sub UserForm_Initialize()" kodu mevcut dolayısıyla bu kodu tekrar kullanırsam hata veriyor ve arkadaşların da sağolsunlar cevabında bu kodu aynı user formun içinde kullanılamaz diyorlar. O halde bu kodu nasıl revize etmeliyim ki (Private Sub UserForm_Initialize()) userformun içinde calendarı kullanabileyim. Tekrar teşekkürler. İyi bayramlar.

Private Sub UserForm_Initialize()
Calendar1.Visible = False
End Sub

 

[Orion1]

Sayın Orion2 cevabınız için teşekkürler; Fakat calendar'ı, kullandığım userformun içindeki bir texboxa basınca çıkmasını istiyorum ve kullandığım userformun içinde "Private Sub UserForm_Initialize()" kodu mevcut dolayısıyla bu kodu tekrar kullanırsam hata veriyor ve arkadaşların da sağolsunlar cevabında bu kodu aynı user formun içinde kullanılamaz diyorlar. O halde bu kodu nasıl revize etmeliyim ki (Private Sub UserForm_Initialize()) userformun içinde calendarı kullanabileyim. Tekrar teşekkürler. İyi bayramlar.

Private Sub UserForm_Initialize()
Calendar1.Visible = False
End Sub

Yolladığım örnek dosyada bu istekleriniz gerçekleşiyor.
Yolladığım örnek dosyayı inceleyiniz.

 

[6729626]

Sanıyorum ben de bir hata var dosyayı gönderiyorum dosya üzerinde yardımcı olursanız sevinirim.

 

[Orion1]

Merhaba.
Dosyada gerekli düzenlemeyi yaptım.Şimdi çalışıyor.
--Çalışmama nedeni--
*Bir UserForm'da 2 tane Initialize olayı olamaz.
*Calendar nesnesini eklememişsiniz.

 

[6729626]

Teşekkürler Sn.Orion2

 

[Orion1]

Teşekkürler Sn.Orion2

Rica ederim.
İyi çalışmalar.