Bitmeyen çile : Tarih formatı

[Korhan Ayhan]

Belki işinize yarayabilir..

Option Explicit

Sub Test()
    With Sheets("siparis").Range("F2")
        If .Text <> CStr(Format(.Value, "dd.mm.yyyy")) Then
            .NumberFormat = "[$-tr-TR]mm.dd.yyyy;@"
        Else
            .NumberFormat = "[$-tr-TR]mm.dd.yyyy;@"
        End If
    End With
End Sub

 

[halit3]

Konuyu anlamak için yazıyorum.
Siz boş bir yeniden kitap oluşturup ve açın tarih formatını oraya bir yazın oradaki sonuç nasıl çıkacak.
bu durumda dosyanın ilgili sayfası bozuk veya sizin bilgisayarınızdaki bölgesel ayarlarındaki tarih formatına bakmak lazım
Benim bilgisayarımdaki tarih formatı böyle

 

[GursoyC]

Konuyu anlamak için yazıyorum.
Siz boş bir yeniden kitap oluşturup ve açın tarih formatını oraya bir yazın oradaki sonuç nasıl çıkacak.
bu durumda dosyanın ilgili sayfası bozuk veya sizin bilgisayarınızdaki bölgesel ayarlarındaki tarih formatına bakmak lazım
Benim bilgisayarımdaki tarih formatı böyle

Halit hocam, dediğinizi yaptım. Format normal olarak gg.aa.yyyy şeklinde ayarlanıyor boş ve yeni bir sayfada. Onda sorun yok. Bendeki bölgesel ayarlar ekteki şekilde.

Söylediğiniz gibi, Üzerinde yazdığım kodla işlemler yapılan dosya bozuk büyük ihtimalle. Ben de bu PDF'ten elektronik tabloya çevrim yapılan sayfada, format eğer bozuksa ("gg.aa.yyyy" dışında hangi format olursa olsun) "gg.aa.yyyy" 'ye çevirecek bir kod yazmaya uğraşıyorum.
Biraz da yapay zekanın yardımı ile şu noktaya gelebildim.

Private Sub CommandButton2_Click()
Dim cell As Range
    Set cell = ActiveCell

    Dim formatString As String
    formatString = cell.NumberFormatLocal

    Dim firstDotPosition As Long
    Dim secondDotPosition As Long
    firstDotPosition = InStr(1, formatString, ".")
    secondDotPosition = InStr(firstDotPosition + 1, formatString, ".")

    Dim beforeDotCharacter As String
    If firstDotPosition > 1 Then
        beforeDotCharacter = Mid(formatString, firstDotPosition - 1, 1)
    Else
        beforeDotCharacter = "Yok"
    End If

    Dim charsBeforeFirstDot As Long
    Dim charsBetweenDots As Long

    charsBeforeFirstDot = firstDotPosition - 1
    If secondDotPosition > 0 Then
        charsBetweenDots = secondDotPosition - firstDotPosition - 1
    Else
        charsBetweenDots = 0
    End If

    If firstDotPosition > 0 Then
        MsgBox "İlk noktanın yeri: " & firstDotPosition & vbCrLf & _
               "Noktadan önceki karakter: " & beforeDotCharacter & vbCrLf & _
               "İlk noktadan önceki karakter sayısı: " & charsBeforeFirstDot & vbCrLf & _
               "İlk noktayla ikinci nokta arasındaki karakter sayısı: " & charsBetweenDots
    Else
        MsgBox "NumberFormatLocal içinde nokta bulunamadı."
    End If
End Sub

Bunu biraz daha geliştirip formatı her durumda "gg.aa.yyyy" yapmaya çalışacağım.

Saygılarımla.

 

[halit3]

19 nolu mesajda pdf den bahsetmişsiniz ama tam açıklayıcı bilgi olmadığından sorun anlaşılamamıştır.
24 nolu mesajda ise pdf dosyasını dönüştürüp veya kopyalayıp alınan verilerde sıkıntı yaşadığınız anlaşılıyor.

Soru ilk başta pdf dosyasından aldığım verilerde veya kopyaladığımda bu sıkıntıyı alıyorum deseydiniz belki yardımcı olacaklar ona göre çözüm üretebilirler.

 

[GursoyC]

Belki işinize yarayabilir..

Option Explicit

Sub Test()
    With Sheets("siparis").Range("F2")
        If .Text <> CStr(Format(.Value, "dd.mm.yyyy")) Then
            .NumberFormat = "[$-tr-TR]mm.dd.yyyy;@"
        Else
            .NumberFormat = "[$-tr-TR]mm.dd.yyyy;@"
        End If
    End With
End Sub

Korhan hocam, verdiğiniz kod yine açıklama satırındakini hücreye yazdı. Ama yukarıda yazdığım kodlardaki if seçeneği için bu verdiğiniz kıstası kullanacağım çünkü gayet kısa ve net. Teşekkür ederim.

 

[GursoyC]

19 nolu mesajda pdf den bahsetmişsiniz ama tam açıklayıcı bilgi olmadığından sorun anlaşılamamıştır.
24 nolu mesajda ise pdf dosyasını dönüştürüp veya kopyalayıp alınan verilerde sıkıntı yaşadığınız anlaşılıyor.

Soru ilk başta pdf dosyasından aldığım verilerde veya kopyaladığımda bu sıkıntıyı alıyorum deseydiniz belki yardımcı olacaklar ona göre çözüm üretebilirler.

Halit hocam, 1 numaralı mesajımın altında PDF'ten elektronik tabloya döndüğümü belirtmiştim.

 

[FERAZ]

Belki işinize yarayabilir..

Option Explicit

Sub Test()
    With Sheets("siparis").Range("F2")
        If .Text <> CStr(Format(.Value, "dd.mm.yyyy")) Then
            .NumberFormat = "[$-tr-TR]mm.dd.yyyy;@"
        Else
            .NumberFormat = "[$-tr-TR]mm.dd.yyyy;@"
        End If
    End With
End Sub

İf ve else olan yerdeki aynı heralde dikkatten kaçmış.
Birde harici upload siteye yüklenebilinirmi dosya denemek için.

 

[halit3]

Hücreleri biçimlendir den
isteğe uyarlanmış dan
gg.aa.yyyy bunu
veya
g.a.yyyy

denermisin

 

[GursoyC]

İf ve else olan yerdeki aynı heralde dikkatten kaçmış.
Birde harici upload siteye yüklenebilinirmi dosya denemek için.

Dosya

 

[GursoyC]

Hücreleri biçimlendir den
isteğe uyarlanmış dan
gg.aa.yyyy bunu
veya
g.a.yyyy

denermisinEkli dosyayı görüntüle 254147

Bu durumda da tıpkı sizin görselinizde olduğu gibi 01.02.2025'e dönüyor. Ama doğru olan durum 02.01.2025'e dönmesi. Yani sonuç olarak o hücrede yazan (görünen) haline gelmeli.

 

[Korhan Ayhan]

Peki bahsi geçen tarih 1 Şubat 2025 mi? Yoksa 2 Ocak 2025 mi?

 

[FERAZ]

Bendede ingilizce gibi oldu birde alttaki gibi deneyin.

Range("F2").Value = CDbl(Range("F2").Value)
Range("F2").NumberFormat = "dd.mm.yyyy"

 

[onder_09]

Dosya

ayarları böyle yapınca dediğiniz şekilde düzeldi

 

[GursoyC]

Peki bahsi geçen tarih 1 Şubat 2025 mi? Yoksa 2 Ocak 2025 mi?

2 Ocak 2025 Korhan bey.

 

[onder_09]

ayarları böyle yapınca dediğiniz şekilde düzeldi


Ekli dosyayı görüntüle 254148

türkiye türkçe yapıncada bu ayarda düzeldi

 

[FERAZ]

türkiye türkçe yapıncada bu ayarda düzeldi

Ekli dosyayı görüntüle 254150

Düzeliyormuş ama heralde PDF dosyadan veri alıyormuş ondan dolayı hatalar oluyormuş anladığım.

 

[ccuneyt13]

Görsel olarak 02.01.2025 görünen ama değer olarak 01.02.2025 görünen veriyi A2 Hücresine aldım.
Sizdeki görüntü ile aynı. Bakınca 02.01 görünüyor hücre değerine girince 01.02 görünüyor.
Gün formülü ile B2'ye 1 değerini,
Ay formülü ile C2'ye 2 değerini,
Yıl Formülü ile de D2'ye Yılı aldım,

Daha sonra Gün için Ay değerini, Ay için Gün değerini, Yıl için de yılı birleştirip tarih formatına çevirdim, E2'de görsel olarak ta içerik olarakta 02.01.2025 oldu.
Ne dersiniz ?

 

[GursoyC]

Arkadaşlar bir yanlış anlaşılmayı düzelteyim: Türkiye yapınca da düzelmiyor. Hangi ayarı yaparsak yapalım hücrede yazan değer olan 02.01.2025'e ulaşamıyoruz. Her seferinde hücre açıklamasında yazan 1 şubat 2025'e ulaşabiliyoruz.
Ama olması gereken değer 2 ocak 2025 yani hücrede yazan değer.

 

[onder_09]

Arkadaşlar bir yanlış anlaşılmayı düzelteyim: Türkiye yapınca da düzelmiyor. Hangi ayarı yaparsak yapalım hücrede yazan değer olan 02.01.2025'e ulaşamıyoruz. Her seferinde hücre açıklamasında yazan 1 şubat 2025'e ulaşabiliyoruz.
Ama olması gereken değer 2 ocak 2025 yani hücrede yazan değer.

bendeki office de düzeldi muhtemelen bence sizin office sürümünde problem var. Direk dili değiştirip ayar yapınca düzeldi.

 

[FERAZ]

Arkadaşlar bir yanlış anlaşılmayı düzelteyim: Türkiye yapınca da düzelmiyor. Hangi ayarı yaparsak yapalım hücrede yazan değer olan 02.01.2025'e ulaşamıyoruz. Her seferinde hücre açıklamasında yazan 1 şubat 2025'e ulaşabiliyoruz.
Ama olması gereken değer 2 ocak 2025 yani hücrede yazan değer.

Kendi adıma Türkçeye çevirincede düzeldi ve önceden yazdığım kod ilede düzeldi diğer kodlar denemedim.