takvimden gelen verinin formatı

[umitumit]

Private Sub userform_initialize()
Calendar1.Visible = False
Calendar1.Value = Now
End Sub

Private Sub TextBox3_Enter()
Calendar1.Visible = True
End Sub

Private Sub Calendar1_Click()
TextBox3.Value = Calendar1.Value
Calendar1.Visible = False
End Sub

şeklinde kullandığım bir takvimli userform um mevcut. takvimde tıkladığım tarihi hem userform içinde hemde buradan aktardığım excel sayfasındaki hücrede "dd.mm.yyyy" formatında görmek istiyorum. mümkün mü?

teşekkürler

 

[Ayhan Ercan]

Merhaba,

Textbox3.Value = Format(Calendar1.Value, "dd.mm.yyyy")

şeklinde deneyiniz...

 

[umitumit]

userform içinde görünen format "dd.mm.yyyy" haline geldi ama hücreye aktarırken ddmmyyyy şeklinde 7 yada 8 haneli düz rakam olarak gönderiyor.
hücrenin formatını değiştirince de 7-8 haneli rakamı tarih olarak göstermiyor.

örnek;

bugünün tarihini userformda 18.12.2008 olarak, hücrede ise 18122008 olarak gösteriyor.

 

[ozgretmen]

Örneği inceler misiniz ?

 

[Tarkan VURAL]

yanıt

Belki hücrenizin biçimlendirilmesi ile alakalı olabilir.
Aslında DTPicker nesnesi Takvimden daha kullanışlı ama tabii tercih yine de sizin.

 

[umitumit]

sn ozgretmen teşekkürler.
userformda görünen hali "dd.mm.yyyy" oldu ama bu veriyi hücreye aktardığımda ddmmyyyy gibi 8 haneli düz bir sayı oluyor.
amacım hücreye de "dd.mm.yyyy" formatında tarih olarak yazdırmak.

 

[umitumit]

Belki hücrenizin biçimlendirilmesi ile alakalı olabilir.
Aslında DTPicker nesnesi Takvimden daha kullanışlı ama tabii tercih yine de sizin.

DTPicker nesnesi nedir diye sorsam ayıp olur mu?

 

[ozgretmen]

Hücrenizin biçimlendirmesini kontrol eder misiniz ?

 

[umitumit]

Hücrenizin biçimlendirmesini kontrol eder misiniz ?

kontrol ettim sayın ozgretmen, genel yapınca 18122008 yazıyor. tarih formatı seçince ise ################## yazıyor.

 

[Tarkan VURAL]

yanıt

Şöyle örnekleyip yanıtlasam ayıp olmaz sanırım

Private Sub DTPicker1_Change()
Range("a1") = DTPicker1.Value
End Sub

Görsel örnekli anlatımı için http://www.excelvba.net/forum/dtpicker.html

İyi çalışmalar.

 

[Ayhan Ercan]

kontrol ettim sayın ozgretmen, genel yapınca 18122008 yazıyor. tarih formatı seçince ise ################## yazıyor.

Tarih formatında ######## gibi görünüyorsa, bir ihtimal hücrenizin dar kaldığından olabilir.
İlgili Hücreyi biraz genişletin...

 

[umitumit]

farkettiyseniz #### yazmadım, ################# yazdım. hücreyi açtıkça uzuyor.
kendimce problemi çözdüm ama işlem çok uzadı.
18122008 rakamını =SAĞDAN ve = SOLDAN fonksiyonlarını kullanarak böldüm ve sonra =BİRLEŞTİR fonksiyonu ile istediğim gibi görünen bir hücre elde etmiş oldum.
ama dediğim gibi bu bana fazladan 6 sütuna mal oldu.