Excelde tarih formatının TERSİ ???!!!

[Bosnalı Yasemin]

Merhaba makro ile textbox a girilen tarih değerinin formatını istediğim gibi ayarlıyorum fakat bunun tersini yaptıramıyorum. Yani yapmak istediğim şu: Mesela textbox içerisine calendar nesnesi ile tıklayarak 23.02.2011 yazdım ve bunu hücreye 40597 şeklinde yazılmasını istiyorum. Birçok dönüştürme işlemini denedim.Örneğin TextBox1=format(textbox1,"0") fakat bu da işe yaramadı. Yani hücreye mouse ile çift tıklamadıkça görüntüsü 23.02.2011 olarak görünüyor. Bunun bir yolu var mı acaba ?

 

[Huseyinkis]

Merhaba makro ile textbox a girilen tarih değerinin formatını istediğim gibi ayarlıyorum fakat bunun tersini yaptıramıyorum. Yani yapmak istediğim şu: Mesela textbox içerisine calendar nesnesi ile tıklayarak 23.02.2011 yazdım ve bunu hücreye 40597 şeklinde yazılmasını istiyorum. Birçok dönüştürme işlemini denedim.Örneğin TextBox1=format(textbox1,"0") fakat bu da işe yaramadı. Yani hücreye mouse ile çift tıklamadıkça görüntüsü 23.02.2011 olarak görünüyor. Bunun bir yolu var mı acaba ?

Hücre Biçimlendir hücre değerini sayı yapın ve formulu TextBox1=Textbox1*1 olarak deneyin.

 

[Bosnalı Yasemin]

Maalesef olmuyor. Bu makro uygulanınca Hücre içerisinde sola dayalı ve 23.02.2011 şeklinde görünüyor. Ancak hücreye çift tıklanınca 40597 şeklinde bir sayı oluyor. Benim istediğim formda textbox taki değeri tarih olarak gireyim ancak exceldeki hücreye kaydederken çift tıklamaya gerek kalmadan 40597 nin yazması.

 

[omerceri]

Cdbl(TarihDeğeri) Şeklnde denediniz mi?

 

[omerceri]

örnek ekte

 

[Bosnalı Yasemin]

Bu da olmuyor. Bunu uygulayınca örneğin 28.02.2011 değeri hücre içinde 28022011 şeklinde görünüyor.
Yapılamıyor mu acaba ?

 

[Bosnalı Yasemin]

Maalesef bu yöntemde olmadı. Mesela 23.02.2011 değerini hücreye yazdırınca 23022011 şekline dönüştü.
Yapılamıyor mu acaba ?

 

[omerceri]

örneği incelediniz mi ?
Range("A2").Value = CDbl(CDate(TextBox1.Value))

 

[Bosnalı Yasemin]

Maalesef bu da olmadı. Mesela 18.02.2011 gibi değer hücre içinde bu yöntemle 18022011 şeklinde yazıldı.
Yoksa sorduğum bu sorunun cevabı olmuyor mu acaba ?

 

[Bosnalı Yasemin]

Özür dilerim, internetim yavaş olduğu için son çözümleri deneyemedim.

 

[Bosnalı Yasemin]

Sizden Allah razı olsun. Yüzlerce veri bu şekilde düzeltildi. Tabii bu çözüm direk çalışmadı. "Run-time error 13" hatası verdi. Bu durumda "On Error Resume Next" satırıyla düzeltildi. Eğer ilgilenen arkadaşlar olursa diye yazıyorum.

Biraz önce internetim kilitlendiği için yazdığım cevap gitmedi diye birkaç kere tıklamıştım o yüzden tekrar tekrar sorularım gitmiş. Kusura bakmayın.