combobox a açılır tarih ekleme

[kokotuna]

arkadaşlar bi combobaxım var onu tıkladığımda tarih seçicek pencenin açılmasını ve seçtiğim tarihin combobox a yazılmasını istiyorum. acaba kodu nedir???
Birçok yerde aradım ama hiç biri benim excele uymadı sanırım benimki 2010 olduğundan....
emeğinize şimdiden teşekkür ederim...

 

[Milady Meriç]

Sayın kokotuna;
Ekteki dosyayı inceler misiniz?

İşinizi görür mü, eğer eksik varsa lütfen söyleyin.

Saygılarımla.

 

[kokotuna]

bu dosyayı biliyorum... Denedim ama hata alıyorum...
Aldığım hata şu...
Can't exit desing mode because control 'Combobox1' can not be created

???

 

[Milady Meriç]

Private Sub Calendar1_Click()
ComboBox1.Value = Calendar1.Value
Calendar1.Visible = False
End Sub
Private Sub ComboBox1_DropButtonClick()
If Calendar1.Visible = False Then Calendar1.Visible = True
If Calendar1.Visible = True Then Calendar1.Visible = False
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Calendar1.Visible = True Then Calendar1.Visible = False
End Sub

Kodu şu şekilde update edip dener misiniz?

 

[kokotuna]

üzgünüm yine aynı hatayı aldım...

 

[Murat OSMA]

DTPicker nesnesini araştırın.

 

[Seyit Tiken]

Aşağıdaki adreste, 7.mesajda manuel hazırlanmış tarih formu var, ihtiyacınızı karşılıyor mu?, tarih aralığını genişletebilirsiniz. Bir deneyin.

http://www.excel.web.tr/f48/textboxa-takvim-ekleme-t112550.html

 

[kokotuna]

murat bey DTPicker nesnesini yükledim zaten ama onunda bir faydası olmadı başka neden olabilir???

Seyit bey sizin tavsiye ettiğiniz çalışıyor fakat üstteki comboya atıyor tarihi ben seçtiğim kutucuğun altında açılmasını ve orda göstermesini istiyorum???

 

[Milady Meriç]

Ekteki dosyada hücreye tıkladığınız zaman takvim açılacaktır.

Kodlar alıntıdır, ben sadece biraz sizin istediğinize göre ayarladım.

A1 hücresine tıkladığınız zaman takvim açılacak ve seçtiğiniz değeri "dd/mm/yyy" formatında hücreye işleyecektir.

Takvim formatını değiştirmek isterseniz, userform'un kodunda kırmızı ile belirttiğim yeri kendinize göre ayarlayın.

Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
ActiveCell.NumberFormat = [COLOR="Red"]"dd/mm/yyyy"[/COLOR]
End Sub
Private Sub UserForm_Activate()
Me.Calendar1.Value = Date
End Sub

Ben A1 hücresine göre ayarladım. Hücreyi değiştirmek için ise, worksheet kodunda bulunan kırmızı yerden değiştirebilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("[COLOR="red"]A1[/COLOR]")) Is Nothing Then UserForm1.Show
End Sub

Kolay gelsin, umarım tekrar hata vermez bilgisayarınızda.

 

[halit3]

arkadaşlar bi combobaxım var onu tıkladığımda tarih seçicek pencenin açılmasını ve seçtiğim tarihin combobox a yazılmasını istiyorum. acaba kodu nedir???
Birçok yerde aradım ama hiç biri benim excele uymadı sanırım benimki 2010 olduğundan....
emeğinize şimdiden teşekkür ederim...

alternatif link

http://www.excel.web.tr/f14/takv-m-resmi-ve-dini-tatil-gunlerini-gosteriyor-t74563.html

not:takvim form 2.xls dosyasındaki sayfa2 deki userform1 herhalde işinizi görecektir.