userformda tarih formatı

[alicanxy58]

Arkadaşlar, ekte gönderdiğim dosyada (kitap1 dosyanın çalışan şekli, kitap2 de sorunun resimli açıklaması bulunmaktadır) sorunumla ilgili yardımcı olursanız memmun olurum.

 

[halit3]

user formun içine aşağıdaki kodu ekle

Private Sub UserForm_Initialize()
For i = 1 To 730
ComboBox1.AddItem Date - i + 365
ComboBox3.AddItem Date - i + 365
Next

End Sub


combo boxların içindeki RowSource nin yeride boş kalsın

 

[N.Ziya Hiçdurmaz]

yanıt

Bu şekil deneyiniz

Private Sub ComboBox1_Change()
ComboBox1 = Format(ComboBox1, "dd/mm/yyyy")
End Sub
Private Sub ComboBox3_Change()
ComboBox3 = Format(ComboBox3, "dd/mm/yyyy")
End Sub

 

[alicanxy58]

Teşekkür

Sayın Halit3 ve N.Ziya Hiçdurmaz ilginiz için teşekkür ederim. Sayın Hiçdurmaz cevabınız sorunumu çözdü teşekkür ederim.

comboboxta seçerken sayı olarak görülmesi diğer comboboxa geçince istediğim tarih formatına dönüşmesi olası bir durum mudur?