Seçilen Tarihin TextBox' a atanması

[otufan]

Userform üzerine bir adet takvim yerleştirdim. Takvimden seçilen tarihleri istediğim textboxa nasıl atayabilirim,

 

[Ferhat Pazarçevirdi]

Takvim için hangi nesneyi kullandınız ? Kullandığınız nesnenin, change veya click olayına aşağıdaki satırı ilave edin.

Textbox.Text=takvim.Value

(Takvim:UF üzerinde yerleştirdiğiniz takvim nesnenin adıdır)

 

[otufan]

Takvime tıkladığımda Özelliklerde "Calendar1 Calendar" diye görünüyor.

 

[Ferhat Pazarçevirdi]

Aşağıdaki gibi deneyin.

Private Sub Calendar1_Click()
Textbox1.Text = Calendar1.Value
End Sub

 

[otufan]

Benim 3 adet textboxum var, kodu textbox1 için yaptığımda sadece o çalışıyor,fakat ikinci çalışmıyor, eğer üçü için kod eklersem üçü birden çalışıyor,ben istiyorumki herbirine ayrı ayrı tarih gireyim.

 

[otufan]

Arkadaşlar, Üzerinde enaz 3 adet textbox bulunan ve herbirine farklı farklı tarih atanabilen userformla ilgili bir küçük örnek dosya ekleyebilirmisiniz.

 

[Ferhat Pazarçevirdi]

Calendar nesnesi yerine, Dtpicker nesnesi kullanım. Takılırsanız, Forumda "Dtpicker" olarak arama yapın.

 

[Seyit Tiken]

Aklıma şöyle bir çözüm yolu geldi. İşe yarar mı yaramaz mı? bilmiyorum. Açılan forma textlere çift tıklayarak açılan Calendar'e tıklayın.

 

[otufan]

Sayın Seyit Diken neden olmasın,yeterki senin kodları benim dosyada uygulayabileyim.

 

[Haluk]

Kodlardan daha önemli şeyleri gözden kaçırıyorsunuz ...

http://www.excel.web.tr/showthread.php?p=209605