combobox ta tarih

[öğrtm]

iyi günler,

ekteki çalışma kitabında sorum yazılı eğer yardımcı olursanız sevinirim.

 

[Korhan Ayhan]

Selamlar,

Görünüm-Araç Çubukları menüsünden Visual Basic araç çubuğunu aktif hale getirin. Bu araç çubuğu üzerinde üçgene benzeyen mavi renkli bir seçenek göreceksiniz. Ona tıklayın. Sonra sayfa üzerindeki comboboxı seçin. Üzerinde iken sağ klik yapın. Özellikler seçeneğini seçin. Açılan pencerede ListFillRange seçeneğinin yanındaki boşluğa A1:A10 yazın ve bu pencereyi kapatın. Sonra comboboxa çift tıklayın. Kod editörü açılacaktır. O bölümede aşağıdaki kodu uygulayın.

Private Sub ComboBox1_Change()
    ComboBox1 = Format(ComboBox1, "dd.mm.yyyy")
End Sub

 

[öğrtm]

korhan bey ilginiz için çok teşekkür ederim.verdiğiniz cevap işimi görüyor fakat ben şu şekilde yapıyorum;bu defa gün ay yıl formatında olmuyor.işimin görülmesine rağmen sadece kafamda ki soru işaretini kaldırmak için cevap verirseniz sevinirim.teşekkür ederim.

Private Sub ComboBox1_Change()
ComboBox1.List = Sheets("sayfa1").Range("a1:a10").Value
ComboBox1 = Format(ComboBox1, "dd.mm.yyyy")


End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde kullanmalısınız.

Private Sub ComboBox1_Change()
    ComboBox1.[B][COLOR=red]ListFillRange[/COLOR][/B] = "Sayfa1!A1:A10"
    ComboBox1 = Format(ComboBox1, "dd.mm.yyyy")
End Sub

 

[öğrtm]

teşekkür ederim