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

[OKUROGLU3375]

Tekrar tekrar teşekkür ederim alakanıza. Bu şekilde tamamdır. Konu iyileştirmek adına küçük bir soru daha eğer imkanı varsa... Tarih sütununda bulunan tarih formatı dışındakileri ( bozuk tarihleri ) bul uygula deme şansımız var mı. Bu şekilde de kullanılabilir fakat tarih sütunumda bulunan tek bir dosyada 7-8 bin satır tarih var. Her defasında hepsini okumak zorunda kalmaması için...

 

[Haluk]

7-8K'lık dosyanızda deneme yapın, sıkıntı olursa duruma bakarız....

.

 

[Haluk]

Yine de döngü kullanmamak için, aşağıdakini deneyebilirsiniz...

Sub Test()
    Dim Rng As Range
    Set Rng = [B6:B100]
    Rng.Replace ",", "."
    Rng.Replace "/", "."
    
    Rng.TextToColumns Destination:=Range("B6"), DataType:=xlDelimited, FieldInfo:=Array(1, 4)
    Range("J2").Select
End Sub

.