Soru TextBoxlara Tıklayınca Otomatik Açılır DatePicker Özelliği Ekleme

[Believing]

Merhaba Formdaş arkadaşlar,

Ekteki alıntı olan çalışmada UserForm üzerindeki birden fazla TextBoxlara otomatik açılır takvim özelliği eklemek istiyorum.
TextBox3' uygulanmış olan bu özelliği, TextBox4'e veya daha fazla nesneye uygulamak için mevcut kodu nasıl revize etmeliyim.

Saygılarımla,

 

[ÖmerFaruk]

Class Module içindeki kodu aşağıdaki gibi değiştirebilirsiniz.
TextBox3 ün TabIndex değeri 2, TextBox3 in TabIndex değeri 4 olarak ayarlamışsınız.

Private Sub v_label_click()
    Select Case UserForm1.ActiveControl.TabIndex
        Case 2
        UserForm1.TextBox3 = v_label.Tag
        Case 4
        UserForm1.TextBox4 = v_label.Tag
    End Select
End Sub

 

[Believing]

Merhaba @ÖmerFaruk bey,

Ellerinize ve emeğinize sağlık. TextBoxlara tarih girmek daha kolay olmuştur sayenizde.
Aynı çalışmayı ekteki örnekteki gibi, aynı anda birden fazla UserForm'da bulunan TextBoxlara nasıl uygulayabilirim?

Saygılarımla,

 

[ÖmerFaruk]

Bunu kolaylıkla kendiniz deneyebilirsiniz.
Class Moule kısmına satırlarda size Userform adlarını ve TextBox adlarını düzeltmek kalıyor.
Biraz deneyin, en fazla hata verir kodlar. Sizde hata veren satırları düzeltebilirsiniz.
Sıkıştığınızda olmayan nokta için talepte bulunabilirsiniz.