Makro ile çeşitli tarih formatlarını tek bir formata dönüştürmek

[OKUROGLU3375]

Selamlar;
Çeşitli firmalardan excel ortamında yüklü miktarlarda kantar tonaj rakamları gelmektedir. Her biri ayrı program kullandığından rapor çekerler iken (C) sütununda ki bozuk tarih örnekleri gibi değişik tarih formatı gelmektedir. Gelen tarih formatı her ne şekil olursa olsun, (I) sütunundaki format gibi olması gerekmektedir.
Kendi carimizde ektre çekerken tarih bozukluğu nedeniyle ürünlere ait bilgiler gelmediğinden hesabımız yanlış olmaktadır.
Tuş atayarak Makro yoluyla tarih formatını (I) sütunundaki gibi otomatik düzelttirmemiz mümkün mü? Mümkün ise bu konuda yardımlarınızı rica ederim. Teşekkür ederim... OKUROGLU3375

 

[Haluk]

Makrosuz dosya....

.

 

[OKUROGLU3375]

Haluk bey alakanıza teşekkür ederim... Bunu ayrı bir sayfada kullanarak mı devam edeyim, yoksa makrolaştırma imkanımız var mı. Çünkü esas çalışma dosyamda araya sütun açmak gibi bir şansım yok... Eğer ki mümkünü var ise makro olursa tarihi yapıştırdıktan sonra düzelt tuşuna basmam yeterli olacaktır diye düşünüyorum. Tabiki imkanı varya. Yoksa bunu başka bir excel sayfasında kullanarak tarihi yapıştırıp, düzeltilmiş sütunu tekrar kopyalayıp esas sayfaya yapıştırmam gerekiyor. Yardımlarınız için yinede teşekkür ederim.. OKUROGLU3375

 

[Seyit Tiken]

Aşağıdaki gibi deneyiniz.

Sub tarihleri_düzelt()
[c10:c13].NumberFormat = "m/d/yyyy"
[c10:c13].Replace ",", "."
End Sub

 

[OKUROGLU3375]

Seyit bey tşk... arada slaş olanlarda aktif olmuyor... Bakma şansınız var ise rakamlar arasında hangi işaret olursa olsun örnek tarihe çevirttire bilirmiyiz. ÖRNEK: 15.04.2021

 

[Seyit Tiken]

Dosyanızda denedim oldu, örnek dosya yükleyip bakalım.

 

[OKUROGLU3375]

Seyit bey; yeni örnek dosya ekledim... Uygulama öncesi - uygulama - olması gereken tarih örnekleri verilmiştir.

 

[ÖmerFaruk]

Deneyin lütfen

Sub tarihleri_düzelt()
Dim Rng As Range
Set Alan = [B6:B20]
For Each Rng In Alan
    Rng = Replace(Rng, ",", ".")
    Rng = Replace(Rng, " /", ".")
    Rng = Format(Rng, "d.mm.yyyy")
Next Rng
End Sub

 

[OKUROGLU3375]

Deneyin lütfen

Sub tarihleri_düzelt()
Dim Rng As Range
Set Alan = [B6:B20]
For Each Rng In Alan
    Rng = Replace(Rng, ",", ".")
    Rng = Replace(Rng, " /", ".")
    Rng = Format(Rng, "d.mm.yyyy")
Next Rng
End Sub

Alakanıza teşekkürler.
Esas dosya üzerinde uyguladığımda, düzeltmeler tamam. Ekli resimde de görüldüğü gibi tarihe dahil olmuyor maalesef

 

[ÖmerFaruk]

Verdğiniz ilk dosyada 4/9/10 nisan tarihleri var.
Resimde de dahil görülüyor
Ben sorununuzu anlamadım.

 

[OKUROGLU3375]

Verdğiniz ilk dosyada 4/9/10 nisan tarihleri var.
Resimde de dahil görülüyor
Ben sorununuzu anlamadım.

Sub tarihleri_düzelt()
Dim Rng As Range
Set Alan = [B6:B20]
For Each Rng In Alan
Rng = Replace(Rng, ",", ".")
Rng = Replace(Rng, " /", ".")
Rng = Format(Rng, "d.mm.yyyy")
Next Rng
End Sub

Yukarıdaki makroyu uyguladıktan sonra tarih biçimine dönüştürmede sıkıntı yok fakat. Excel ekli resimde de görüldüğü gibi Örneğin OCAK-ŞUBAT ayları gibi ayların içerine almayıp hariç tuttuğundan... yani tarih olarak görmediğinden dolayı rapor oluştururken dışarıda kalan tarihlerin raporunu getirmiyor.

 

[YUSUF44]

Demek istediği, eğer tarih verisi olsaydı o tarihler de aynı üstteki gibi yıllarına göre filtrelenebilir şekilde olurdu. O veriler tarih değiller.

 

[ÖmerFaruk]

Böyle bir denermisiniz.

Sub tarihleri_düzelt()
Dim Rng As Range
Set Alan = [B6:B20] ' Alan kısmını kendinize göre uyarlayınız.
For Each Rng In Alan
    If Not IsDate(Rng) Then
    Rng = Replace(Rng, ",", ".")
    Rng = Replace(Rng, " /", ".")
    x1 = InStr(1, Rng, ".")
    x2 = InStr(x1 + 1, Rng, ".")
    myDay = Left(Rng, x1 - 1) * 1
    myMonth = Mid(Rng, x1 + 1, x2 - x1 - 1) * 1
    myYear = Right(Rng, Len(Rng) - x2) * 1
    Rng = DateSerial(myYear, myMonth, myDay)
    End If
    Rng = Format(Rng, "d.mm.yyyy")
Next Rng
End Sub

 

[OKUROGLU3375]

Böyle bir denermisiniz.

Sub tarihleri_düzelt()
Dim Rng As Range
Set Alan = [B6:B20] ' Alan kısmını kendinize göre uyarlayınız.
For Each Rng In Alan
    If Not IsDate(Rng) Then
    Rng = Replace(Rng, ",", ".")
    Rng = Replace(Rng, " /", ".")
    x1 = InStr(1, Rng, ".")
    x2 = InStr(x1 + 1, Rng, ".")
    myDay = Left(Rng, x1 - 1) * 1
    myMonth = Mid(Rng, x1 + 1, x2 - x1 - 1) * 1
    myYear = Right(Rng, Len(Rng) - x2) * 1
    Rng = DateSerial(myYear, myMonth, myDay)
    End If
    Rng = Format(Rng, "d.mm.yyyy")
Next Rng
End Sub

Makroyu uyguladıktan sonra incelediğimde yine aynı sonucu vermektedir. fakat örnek olarak sadece 10.04.2021 tarihlerini F2 + Enter dedikten sonra ilgili tarihin yılına ve ayına atmıştır. Yani tarihe dönüştürme formatında sıkıntı yok ama excel tarih olarak görmüyor. F2+Enter gibi bir olay mı eklenmesi lazım acaba... Tşk.

 

[ÖmerFaruk]

Asıl dosyanızı sadece tarihleri içerecek şekilde ekler misiniz?
Ben örnek dosyada sorun göremedim.

 

[OKUROGLU3375]

Asıl dosyanızı sadece tarihleri içerecek şekilde ekler misiniz?
Ben örnek dosyada sorun göremedim.

Dosya ya makro uygulamadan önce tarih filtresinde bakabilirmisiniz. Sonra makro uygulayıp yina bakın.. Makro uygulanan tarihler yıl-ay filtresi içerisine dahil olmuyor. Demek istedim.

 

[ÖmerFaruk]

Dosyanızda tarihlerin olduğu C sütunuzun formatını ya da tarihlerin olduğu aralığın formatını tarih yapın

Sub tarihleri_düzelt001()
Dim Rng As Range
Set Alan = [C6:C100] ' Alan kısmını kendinize göre uyarlayınız.
For Each Rng In Alan
    If Not IsDate(Rng) Then
    Rng = Replace(Rng, ",", ".")
    Rng = Replace(Rng, " /", ".")
    x1 = InStr(1, Rng, ".")
    x2 = InStr(x1 + 1, Rng, ".")
    myDay = Left(Rng, x1 - 1) * 1
    myMonth = Mid(Rng, x1 + 1, x2 - x1 - 1) * 1
    myYear = Right(Rng, Len(Rng) - x2) * 1
    Else
    myDay = Day(Rng)
    myMonth = Month(Rng)
    myYear = Year(Rng)
    End If
    Rng = DateSerial(myYear, myMonth, myDay)
Next Rng
End Sub

 

[Haluk]

Alternatif;

.

 

[OKUROGLU3375]

Alternatif;

.

 

[Haluk]

Tekrar deneyin...

.