Bitmeyen çile : Tarih formatı

[GursoyC]

Arkadaşlar merhaba, şu problemin çözümü var mıdır acaba yardımcı olabilecek kimse var mı?
Şu tarz bir kod da işe yaramadı.

ih.Cells(ihdbParca.Row, tarih).value = Format(teslimTarih, "dd.mm.yyyy")

Birkaç yerde karşıma çıktı aşamadım.

Teşekkürler.

Önemli mi bilmiyorum ama belirteyim, döküman PDF'ten elektronik tabloya çevir formatıyla oluşturulmuştur.

 

[RBozkurt]

Arkadaşlar merhaba, şu problemin çözümü var mıdır acaba yardımcı olabilecek kimse var mı?
Şu tarz bir kod da işe yaramadı.

ih.Cells(ihdbParca.Row, tarih).value = Format(teslimTarih, "dd.mm.yyyy")

Birkaç yerde karşıma çıktı aşamadım.

Teşekkürler.

Önemli mi bilmiyorum ama belirteyim, döküman PDF'ten elektronik tabloya çevir formatıyla oluşturulmuştur.

Deneyiniz,

ih.Cells(ihdbParca.Row, tarih).value = Format(CDate(teslimTarih), "dd.mm.yyyy")

 

[GursoyC]

Deneyiniz,

ih.Cells(ihdbParca.Row, tarih).value = Format(CDate(teslimTarih), "dd.mm.yyyy")

Merhaba, onu da denemiştim. Maalesef sonuç aynı.

 

[Mehmet Şahin]

Merhaba,
şöyle bir çözüm olabilir;

ih.Cells(ihdbParca.Row, tarih).numberformat ="dd.mm.yyyy"
ih.Cells(ihdbParca.Row, tarih).value =cdate(teslimTarih)

 

[GursoyC]

Merhaba,
şöyle bir çözüm olabilir;

ih.Cells(ihdbParca.Row, tarih).numberformat ="dd.mm.yyyy"
ih.Cells(ihdbParca.Row, tarih).value =cdate(teslimTarih)

Merhabalar, maalesef olmadı.

Kontrol ettim, şu kod sonunda bile gönderdiğim görseldeki durum değişmiyor.

ih.Cells(ihdbParca.Row, tarih).numberformat ="dd.mm.yyyy"

Yani hücrede yazan başka, hücreye girdiğimde açıklama satırında yazan başka tarih.
Gerçekten çok sinir bozucu.

 

[GursoyC]

Dosyayı da ekleyeyim. Acaba benim ayarlarımla ilgili bir sorun mu var yoksa herkeste durum aynı mıdır diye ama başka dosyalarda sorun olmuyor. Bunun gibi birkaç dosyada sorun yaşadım sadece.

 

[Korhan Ayhan]

İşaretli yeri kurcalayınız..

 

[Necdet]

İşaretli yeri kurcalayınız..

Ekli dosyayı görüntüle 254130

Çile bitmiştir umarım

 

[GursoyC]

Tekrar merhabalar,
Necdet hocam, maalesef bit(e)medi. Şöyle ki;
Yazdığım kodlarla sisteme girilmesi gereken tarih, hücrede "görünen" tarih. Ancak Korhan hocam'ın ilettiği kısmı kurcalamıştım, orada ayarı Türkiye'ye çevirdiğimde, hücredeki tarihi açıklama satırındaki tarihe çeviriyor. Tersini yapsa yani hücrede görünen tarihi kabul etse çile bitebilirdi ki gerçekten çok umutluydum.

Yine de şu soruyu sorayım. Belki oradan ilerleyerek bir örüntü yakalayabilirim.

Korhan hocam, verdiğiniz kısımdaki ayarı Türkçe(Türkiye)'ye çevirmenin bir kodu var mıdır?
Makro kaydet ile yaptığımda

Selection.NumberFormat = "m/d/yyyy"

kodunu yazıyor.

Not: Korhan hocam'ın gönderdiği görseldeki kısım bende ingilizce(Filipinler) yazıyor. Bu da ayrı bir gariplik zaten.

 

[md3m1ray]

eğer sorunuzu doğru anladıysam bunu düşündüm;
hücre formatını genele çekip sonra tekrar hücre biçimlendir diyip tarih - türkçe seçip dener misiniz

 

[Mehmet Şahin]

Merhaba,
aşağıdaki biçimde de dener misiniz?

ih.Cells(ihdbParca.Row, tarih).numberformat ="gg.aa.yyyy"

 

[GursoyC]

eğer sorunuzu doğru anladıysam bunu düşündüm;
hücre formatını genele çekip sonra tekrar hücre biçimlendir diyip tarih - türkçe seçip dener misiniz

Yine aynı sonuç. Açıklama satırındakini hücreye getiriyor.

 

[GursoyC]

Merhaba,
aşağıdaki biçimde de dener misiniz?

ih.Cells(ihdbParca.Row, tarih).numberformat ="gg.aa.yyyy"

Mehmet bey merhaba. Kodlarım çok kafa karıştırmasın diye verdiğiniz kodu şöyle basit bir şekilde uyarladım. Ama maalesef sonucu başarısız. Yapmaya çalıştığım şey de zaten hücrede görülen değeri aynı şekilde o hücreye yazdırmak.

Önceki verdiğiniz kodları (dd.mm.yyyy) uyarladığımda da 01.02.2025 yapıyor.

 

[ccuneyt13]

Merhaba,
Bu ifadeyle ben değiştirebildim sanki

NumberFormat = "[$-tr-TR]dd.mm.yyyy;@"

 

[halit3]

Dosyadaki sayfa bozulmuş gibi gözüküyor dosyaya yeni bir sayfa ekle ve tarihi oraya yaz sonucu irdele ben dosyaya bir sayfa ekledim sonuç duzgün gözüküyor.

 

[halit3]

Tekrar yorum yazıyorum ingilizce yerine türkçeyi seçip tarih formatınıda ayarlayınca düzeliyor.

 

[GursoyC]

Halit hocam, Cüneyt bey merhaba,
Türkçeyi seçip tarih formatını ayarladığımızda da,
NumberFormat = "[$-tr-TR]dd.mm.yyyy;@" seçeneğini uyguladığımızda da sonuç 01.02.2025'e dönüyor.
Dönüşmesi gereken tarih hücrede yazan yani 02.01.2025.
Bunu kodla mm.dd.yyyy şeklinde neden yazdırmıyorsun diyebilirsiniz. Çünkü garip bir şekilde PDF'ten aktarılan her dosyada Filipinler'e veya başka bir ülkeye dönmüyor. bazen de Türkiye'de kalıyor. Bu durumda da eğer kodla mm.dd.yyyy şeklinde kod yazarsam yanlış yapacak.

Yani özetle sorunun kesin çözümü Excel'deki tarih formatını hangi ülke olursa olsun Türkiye formatına çevirmek.

kodla şöyle bir şey yazılabilse harika olurdu.

 if excel tarih formatı <> Türkiye then excel tarih formatı = Türkiye

 

[GursoyC]

Merhaba, dener misiniz;

If Application.International(xlCountryCode) <> 90 Then
    ih.Cells(ihdbParca.Row, tarih).NumberFormatLocal = "dd.mm.yyyy"
End If

Merhaba,
Aslında çözülmedi çünkü bu komut benim bilgisayarımdaki kodu kontrol ediyor, PDF'ten dönüştürülen dökümanınkini değil. Ama bana yeni bir araştırma yönü vermiş oldunuz. Onu kontrol ettirebilsem kesinlikle çözülecek. Mantık çok doğru.

 

[FERAZ]

Merhaba,
şöyle bir çözüm olabilir;

ih.Cells(ihdbParca.Row, tarih).numberformat ="dd.mm.yyyy"
ih.Cells(ihdbParca.Row, tarih).value =cdate(teslimTarih)

Yukardaki kodları bazen bende kullanıyorum ve üstteki satır altta oluyordu yani cdate önce yazılıp sonra diğeri ekleniyordu.Belki çalışır böyle.

 

[GursoyC]

Yukardaki kodları bazen bende kullanıyorum ve üstteki satır altta oluyordu yani cdate önce yazılıp sonra diğeri ekleniyordu.Belki çalışır böyle.

Aynı şekilde açıklama satırındakini hücreye yazdı.
Sayın @pitchoute'nun fikrinden hareketle NumberFormatLocal üzerinden gitmeye çalışıyorum. gg.aa.yyyy kısmını kontrol ettirecek, eğer örneğin ilk noktadan önceki harf a ise bu durumda aa ile gg yer değiştirsin ve hücreye tekrar yazsın gibi bir şey yapabilirsem diye...