Tarih sorunu - ne yaptıysam olmuyor

[k1222]

Arkadaşlar belli bir sütüna tarih girişi yapıyordum..

"12.12.2012" yazmam gerekirken bir arkadaş, "00\.00\.0000" bu formülü deneyerek "12122012" yazarak noktanın otomatik konarak daha kolay yazacagımı söyledi. bende yaklaşık 30000 satır o şekil giriş yaptım. sonuç olarak veri aktarımını yapmaya çalıştığımda bu formülle girilmiş satırlarda hatalar yaşadım.

şu an hücre tarih biçimindeyken nasıl araya nokta koyabilirim?

Çok acil yardımlarınıza ihtiyacım var...

 

[Erdem Akdemir]

örnek dosyanızı eklerseniz, yardımcı olunur

 

[Erdem Akdemir]

metni sütunlara dönüştür>sınırlandırılmış>sadece sekme aktif olsun>sütun veri biçiminden tarihi seçin işleminiz tamamdır.bu şekilde yaparsanız,dosyanızı tam olarak bilmiyorum ama 12122012 yazdığınızda çalışacaktır ama 1122012 yazdığınızda (ayın birinci günü) çalışmaz.

 

[Murat OSMA]

Şu kodları bir deneyiniz;

Sub Emre()
    Dim i As Long
    For i = 1 To Range("A65536").End(3).Row
        Cells(i, 1) = VBA.Left(Cells(i, 1), 2) & "." & _
        VBA.Mid(Cells(i, 1), 3, 2) & "." & VBA.Right(Cells(i, 1), 4)
    Next i
    i = Empty
End Sub

 

[k1222]

boyuttan dolayı ekleyemiyorum mgultas@msn.com eklerseniz ordan atıyım.

 

[k1222]

Şu kodları bir deneyiniz;

Sub Emre()
    Dim i As Long
    For i = 1 To Range("A65536").End(3).Row
        Cells(i, 1) = VBA.Left(Cells(i, 1), 2) & "." & _
        VBA.Mid(Cells(i, 1), 3, 2) & "." & VBA.Right(Cells(i, 1), 4)
    Next i
    i = Empty
End Sub

bu kodu hangi sütun ve satıra yazacağım ?

 

[Erdem Akdemir]

boyuttan dolayı ekleyemiyorum mgultas@msn.com eklerseniz ordan atıyım.

tamamını eklemeyin küçük bir kısmını ekleyin

 

[k1222]

metni sütunlara dönüştür>sınırlandırılmış>sadece sekme aktif olsun>sütun veri biçiminden tarihi seçin işleminiz tamamdır.bu şekilde yaparsanız,dosyanızı tam olarak bilmiyorum ama 12122012 yazdığınızda çalışacaktır ama 1122012 yazdığınızda (ayın birinci günü) çalışmaz.

yazdığını yaptım fakat hepsini düzeltmedi

 

[k1222]

dosya ekte

 

[Erdem Akdemir]

murat beyin yazdığı kodda ayın ilk günlerinide yapabilmeniz için ufak bir değişiklik yaptım

Sub Emre()
    Dim i As Long
       For i = 1 To Range("A65536").End(3).Row
        Cells(i, 1) = VBA.CDate(Left(Cells(i, 1), VBA.Len(Cells(i, 1)) - 6) & "." & _
        VBA.Mid(Cells(i, 1), VBA.Len(Cells(i, 1)) - 5, 2) & "." & VBA.Right(Cells(i, 1), 4))
    Next i
    i = Empty
   End Sub

 

[k1222]

bu kodu nereye yapıştırcam ?

 

[Erdem Akdemir]

yukarıdaki kod sizin işinize yaramaz.

önce a sütununu seçin hücre biçimlendirden genel'i seçin.sonra c1 hücresine formülünü kopyalayın,c sütununu seçip hücre biçimlendirden tarihi seçtiniz mi, işleminiz tamamdır.

=+EĞER(UZUNLUK(A2)=5;A2;TARİH(SAĞDAN(A2;4);PARÇAAL(A2;UZUNLUK(A2)-5;2);SOLDAN(A2;UZUNLUK(A2)-6)))

 

[Erdem Akdemir]

İşiniz görüldü tabi, çıkın siteden.İnsan bir teşekkür eder,sonucu söyler.