tarih biçimi

[havacı61]

Merhaba,

ekli dosyadaki tüm tarihlerin gene ekli dosyadaki kırmızı yapılmış hücredeki şekiliyle yapmaya çalışıyorum. Yardımcı olusanız sevinirim. Tarihlerin yanındaki saat ibarelerini istemiyorum.

Teşekkürler

 

[Necdet]

Merhaba,

Birşeyler yapmaya çalıştım, aşağıdaki kodları dener misiniz?

Sub Tarihe_Cevir()
    Dim i As Long
    
    Application.ScreenUpdating = False
    Columns("G:H").Delete
    Columns("A:A").Copy Range("F1")
    Columns("B:B").Copy Range("I1")
    Range("F:F,I:I").Replace What:="/", Replacement:="."
    Columns("F:F").TextToColumns Destination:=Range("F1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
    Columns("I:I").TextToColumns Destination:=Range("I1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True
    Columns("G:H").Delete Shift:=xlToLeft
    Columns("H:I").Delete Shift:=xlToLeft
    Columns("F:G").NumberFormat = "m/d/yyyy"
    For i = 2 To [F65536].End(3).Row
        Cells(i, "F") = CDbl(CDate(Cells(i, "F")))
        Cells(i, "G") = CDbl(CDate(Cells(i, "G")))
    Next i
    Columns("F:F").NumberFormat = "m/d/yyyy"
    Application.ScreenUpdating = True
    MsgBox "Düzenleme Bitmiştir....", vbInformation, "N.Y"
End Sub

 

[havacı61]

Hayır olmamış necdet bey,

örnek olarak 02.10.1984 şeklinde istiyorum tüm sütunlardaki verileri. Sizin çalışmanız sanırım yardımcı olmuyor bu konuda.

 

[havacı61]

arkadaşlar yardımlarınızı bekliyorum.

 

[Necdet]

örnek olarak 02.10.1984 şeklinde istiyorum tüm sütunlardaki verileri. Sizin çalışmanız sanırım yardımcı olmuyor bu konuda.

Zaten o şekilde oluşturuyor fakat ay ve günun yer değiştirmiş durumu da oluşuyor.

 

[havacı61]

necdet bey,
ilgili hücreyi seçip düzelt dediğimde herhangi değişiklik olmuyor, sadece düzeltme bitmiştir notu geliyor... düzeltmeyi ne şekilde yapcağım konusunda yardımcı olursanız sevinirim..

 

[Necdet]

Merhaba,

Hem A hem de B sütunundaki tarihler Gün-Ay-Yıl mı, yoksa Ay-Gün-Yıl şeklinde mi?

Sanki bana karışık gibi geldi o yüzden de çözüm yolunda tıkanıp kaldım.

 

[Necdet]

Tekrar merhaba,

Son bir gayret daha

Oldu oldu, olmadı klasik usül çalışmak gerek

Sub Tarihe_Cevir()
    Dim i As Long
    Dim a() As String
    Dim Sonsat As Long
    
    Application.ScreenUpdating = False
    Sonsat = [A65536].End(3).Row
    Range("F2:G" & Sonsat).ClearContents

    For i = 2 To Sonsat
        a = Split(Cells(i, "A"), " ")
        If IsDate(a(0)) Then Cells(i, "F") = CDate(a(0))
        a = Split(Cells(i, "B"), " ")
        If IsDate(a(0)) Then Cells(i, "G") = CDate(a(0))
    Next i
    Application.ScreenUpdating = True
    MsgBox "Düzenleme Bitmiştir....", vbInformation, "N.Y"
End Sub

 

[havacı61]

Necdet bey

sanırım ben beceremiyorum, düzeltme işlemi ne şekilde yapılıyor. Ben hücreyi seçip düzelt diyorum ancak herhangi bir değişiklik olmuyor.

 

[Necdet]

Herhangi bir hücre seçmenize gerek yok, Dosyayı açarken makroları etkinleştireceksiniz ve butona basacasınız.
A ve B sütunu düzeltilmiş haliyle F ve G sütununa alıyor.

 

[havacı61]

necdet bey,

oldu. şimdi oldu...

 

[Necdet]

heyooooo