Sayfada ki TextBox Tarih Ekleme

[ormann]

İyi günler ;
ekli dosyada userform1 de bulunan TextBox1 i tıkladığımda tarih açılıyor.Bu işlemi sayfada bulunan textbox2'ye nasıl uygularız yardımcı olur musunuz ?
http://dosya.co/dyetka9mytcv/takvim2.xls.html

 

[turist]

İndirip inceleyiniz.

http://dosya.co/12ycrw3pb0s8/takvim2.xls.html

 

[ormann]

Teşekkür ederim.Sayfada 2 adet Textbox varsa ne yapmamız gerekiyor.

 

[turist]

"Sayfa1" deki kodları incelerseniz;

Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
clasa_ekle2
End Sub

şeklindedir. Bu kod Module1 kısmında ve şu şekilde:

Sub clasa_ekle2()
baslangıc_yılı = 1976 'Takvimin Başlangıç yılını belirler
bitis_yılı = 2100 'Takvimin Bitiş yılını belirler
ReDim Preserve takvim_txt(1) 'takvim_txt(- takvim olacak textbox sayısını yazınız-)
Set takvim_txt(1).takvim_txt = Sayfa1.TextBox2

End Sub

Module 1 de Aynı şekilde bir KOD düzenleyin:

Sub clasa_ekle3()
baslangıc_yılı = 1976 'Takvimin Başlangıç yılını belirler
bitis_yılı = 2100 'Takvimin Bitiş yılını belirler
ReDim Preserve takvim_txt(1) 'takvim_txt(- takvim olacak textbox sayısını yazınız-)
Set takvim_txt(1).takvim_txt = Sayfa1.[B][COLOR="Red"]TextBox2[/COLOR][/B]

End Sub

TextBox2 olan yerini Hangi Textbox ise ona göre düzeltin.
Sayfanızdaki diğer TextBox'a da aynı şekilde bir Kod atayın (sayfa1 bölümünden)
Yeni TextBox3 ise :

Private Sub [B][COLOR="Red"]TextBoxX[/COLOR][/B]_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
clasa_ekle3
End Sub

şeklinde atayın.
X yerine diğer Textbox'ın numarasını yazarsınız.