Userformda takvim uygulaması

[bedri41]

Hazırlamış olduğum userforma takvim ekledim tarih girişi yapacağım TextBox1 ve TextBox2 tıkladığımda takvim geliyor ancak her iki textboxa ayrı ayrı tarih yazdıramadım. İlişikte örnek dosyada gönderiyorum. İlgilenen arkadaşlara şimdiden teşekkür ederim.

 

[dEdE]

Merhaba,
Kodu aşağıdaki şekilde değiştiriniz.
Tarih yazdırmak için DTPicker nesnesini de kullanabilirsiniz.

Private Sub Calendar1_Click()
If UserForm1.TextBox1.Text = "" Then
UserForm1.TextBox1.Text = Format(Calendar1.Value, "dd.mm.yyyy")
Else
UserForm1.TextBox2.Text = Format(Calendar1.Value, "dd.mm.yyyy")
End If
Unload Me
End Sub

 

[bedri41]

Üstad çok teşekkür ederim

 

[dEdE]

Rica ederim.
Güle güle kullanın.

 

[mozdem]

Teşekkürler, bende bilgi sahibi oldum.