Tarih Format hatasi

[arkanonur]

Merhaba Arkadaslar,

Ben excel'de bir sutunu tarih formationa getirmek icin asagidaki kodu kullandim:

For i = 2 To rij
Range("AE" & i).Select
ActiveCell.Value = Replace(ActiveCell.Value, ".", "/")
Next i

Noktalari "/" isaretiyle degistiriyor ve boylece excel tarih formati olarak kabul ediyor. Ancak bu kodla excel tarih formatina ayarlarken tarihleride degistiriyor. Mesela 09/01/2005 olan bir tarih 01/09/2005 olarak degisiyor.Boylece bazi tarihler yanlis data iceriyor. Nasil bir kod kullanmaliyimki hucreler tarih formatinda olsun dd/mm/yyyy olarak ama tarihler degismesin.
Simdiden tesekkurler.

Onur

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin. Tarihlerin bulunduğu sütunu tarih olarak biçimlendirin. Aşağıdaki kod tarihleri sayıya çevirerek hücreye aktaracaktır.

[vb:1:5e153fbdb0]For i = 2 To rij
Range("AE" & i)=clng(cdate(Range("AE" & i)))
Next i
[/vb:1:5e153fbdb0]

 

[arkanonur]

Kod icin cok sagol Leventm.
Ancak problem su ki benim o sutundaki noktayla belirtilmis tarihleri
yani 25.11.2005 seklinde yazilmis tarihleri 25/12/2005 olarak degistirmem gerekiyor. O yuzden gonderdiginiz kodun once onunne sonra arkasina
ActiveCell.Value = Replace(ActiveCell.Value, ".", "/")
kodunu ekledigim zaman tarihler gene degisiyor.
Yolladiginiz kodu direk kullandigim zaman ise nokta iceren bir tarihle karsilasinca hata veriyor (Run time error 13)
Bu sorunu cozmeme yardimci olursaniz sevinirim.
Tekrar tesekkurler,

Onur

 

[Levent Menteşoğlu]

Bir örnek dosya eklermisiniz.

 

[Levent Menteşoğlu]

Birde aşağıdaki gibi deneyin.

[vb:1:82615ea6f3]For i = 2 To rij
Range("AE" & i)=Format(Range("AE" & i), "dd""/""mm""/""yyyy")
Next i
[/vb:1:82615ea6f3]

 

[arkanonur]

Ilgilendigin icin cok sagol leventm,

Icindeki makrolarla birlikte dosyayi yolluyorum. Sorun dosyadaki 1. modulde. (Datum veranderen naar een compatibel format) baslikli kodda bir sorun var bir turlu gideremiyorum. Bir cozum onerebilirsen cok sevinirim.

Tesekkurler