userformda açılır takvim

[bugüven]

userforma açılır takvim ekledim fakat yanındaki listbox kutucuğuna tarihi yazdıracak kodu bulamadım yardım lütfen

 

[sametozyavuz]

userforma açılır takvim ekledim fakat yanındaki listbox kutucuğuna tarihi yazdıracak kodu bulamadım yardım lütfen

clas module kısmındaki addDate kodu bu şekilde olmalı

addDate:
    With UserForm1.TextBox2
        .Value = CDate(CmdBtnGroup.Tag)

ayrıca userform1 e bu kodu eklerseniz tarih tekxtboxunuza çift tıkladığınızda tarih kutunuz açılır.
farklı bir sitil elde etmek isterseniz diye ekledim.

Private Sub TextBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
frmCalendar.Show_Cal
End Sub

 

[bugüven]

sametozyavuz hocam elinize sağlık çok güzel olmuş ilgi alakanız için çok teşekkür ederim. fakat tarih 8/26/2013 şeklinde gözüküyor. tarihi 26.08.2013 gibi nasıl gösterebilirim. ayrıca excel sayfasına istediğim hücrede göstermek için ne yapmalıyım. bide ikinci seçenek olarak gönderdiğiniz koduda denedim takvim açılıyor fakat kutuya yazmıyor.

 

[sametozyavuz]

kendi bilebildiğim kadarı ile dosyanıza eklemeler yaptım.
bir inceleyiniz. (tarihe çift tıklamayı yeniden deneyiniz)

Private Sub CommandButton2_Click()
Worksheets("ASAY").Range("H5").Value = UserForm1.TextBox1.Value
Worksheets("ASAY").Range("H10").Value = UserForm1.TextBox2.Text
Worksheets("ASAY").Range("AI10").Value = UserForm1.TextBox3.Value
Worksheets("ASAY").Range("N12").Value = UserForm1.TextBox4.Value
Worksheets("ASAY").Range("H12").Value = UserForm1.ComboBox1.Value
Worksheets("ASAY").Range("J14").Value = UserForm1.TextBox5.Value
Worksheets("ASAY").Range("AC12").Value = UserForm1.ComboBox2.Value
Unload Me
End Sub

Private Sub TextBox2_Change()
TextBox2.Value = Format(TextBox2, "dd mmmm yyyy dddd")
End Sub

Private Sub TextBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
frmCalendar.Show_Cal
End Sub

 

[bugüven]

sametyavuz hocam elinize sağlık çok güzel olmuş. yardımlarınız için çok teşekkürler. ihale tarihi falan değişebiliyor yenilediğim zaman diğer bilgileri de siliyor bunu ayarlamaya çalışacağım yapabilirsem.