Farkılı formattaki sayıyı tarihe çevirme sorunu

[aacanakova]

Değerli ustalarım ve arkadaşlar ekte vermiş olduğum listede yaklaşık 7500 satır var .Bunlar başka bir yerden aktardığım tarihler .Ancak görüldüğü üzere tarih olarak görünmüyorlar .Ben bu rakamları tarihe çevirmek istiyorum . Ancak şöyle bir problemim var .

Bazı rakamlar 7 li bazıları 8 li
bunun sebebi başlarında 0 olmaması yani 01.10.2011 i 1102011 olarak görmesi .

diğer taraftan 11.11.2011 i normal olarak görüyor yani 11112011

problemimi çözmede yardımcı olacak arkadaşlar şimdiden teşekkürler .

 

[Necdet]

Merhaba,

Fonksiyonla da olur ama hücre üzerinde işlem yapmak isterseniz makroyu tercih edebilirsiniz.

Sub TariheCevir()
 
    Dim i       As Long
    Dim Hucre   As Range
 
    Application.ScreenUpdating = False
    For Each Hucre In Range("A1").CurrentRegion
        If IsNumeric(Hucre) Then
            If Len(Hucre) = 7 Then
                Hucre = DateSerial(Right(Hucre, 4), Mid(Hucre, 2, 2), Left(Hucre, 1))
            Else
                Hucre = DateSerial(Right(Hucre, 4), Mid(Hucre, 3, 2), Left(Hucre, 2))
            End If
        End If
    Next Hucre
    Application.ScreenUpdating = True
 
End Sub

Fonksiyonla yapmak isterseniz D2 hücresine aşağıdaki fonksiyonu yazın sonra sağa ve aşağıya kopyalayınız.

=EĞER(UZUNLUK(A2)=8;TARİH(SAĞDAN(A2;4);PARÇAAL(A2;3;2);SOLDAN(A2;2));TARİH(SAĞDAN(A2;4);PARÇAAL(A2;2;2);SOLDAN(A2;1)))

 

[aacanakova]

Eyvallah kardeşim teşekkür ederim .

Bende böyle anında makro yazmak için neler vermezdim .
Ne yapmak lazım öğrenmek için bunları .

bilgisayar bilgimiz var epey

 

[Necdet]

Bende böyle anında makro yazmak için neler vermezdim .
Ne yapmak lazım öğrenmek için bunları .
bilgisayar bilgimiz var epey

Forumu izleyiniz, Dersane bölümünü inceleyiniz. Siz istemesenizde makro bilginiz gelişecektir o zaman.

 

[ccuneyt13]

Merhabalar kolay gelsin. Konuyla ilgili olduğunu düşündüğüm için burdan sormayı düşündüm ama;

Dosyada yer alan tarih ve saat yazan sütünün yanına makro ile B2 hücresindeki gibi tarih yazdırmak istiyorum.

Yardımcı olabilirmisiniz ?

Teşekkürler.

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Sub TarihDuzenle()
 
    Dim i   As Long, _
        a
    
    Application.ScreenUpdating = False
    
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        If Not Cells(i, "A") = "" Then
            a = Split(Cells(i, "A"), " ")
            Cells(i, "B") = DateSerial(Right(a(0), 4), Mid(a(0), 4, 2), Left(a(0), 2))
        End If
    Next i
    
    Columns("B:B").NumberFormat = "m/d/yyyy"
    Application.ScreenUpdating = True
    MsgBox "Tarihler Düzenlendi.....", vbInformation, "Excel.Web.Tr"
    
End Sub

 

[ccuneyt13]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Necdet bey vakit ayırdığınız ve emeğiniz için çok teşekkürler. Büyük kolaylık oldu sayenizde. Sizede işlerinizle kolaylıklar diliyorum.

Saygılar.

 

[centillboy]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Sub TarihDuzenle()
 
    Dim i   As Long, _
        a
    
    Application.ScreenUpdating = False
    
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        If Not Cells(i, "A") = "" Then
            a = Split(Cells(i, "A"), " ")
            Cells(i, "B") = DateSerial(Right(a(0), 4), Mid(a(0), 4, 2), Left(a(0), 2))
        End If
    Next i
    
    Columns("B:B").NumberFormat = "m/d/yyyy"
    Application.ScreenUpdating = True
    MsgBox "Tarihler Düzenlendi.....", vbInformation, "Excel.Web.Tr"
    
End Sub

Necdet Bey,

"2 Ocak 2013 Çarşamba" formatında bir işlemde vermiş olduğunuz kodda ne gibi oynama yapmalıyım sonuç arkadaşın bahsettiği gibi olması yeterli hatta aynı anda 2. bir sütuna 130102 şeklinde ayrı bir formatta sonuç alabilirmiyiz

 

[ZorBey_]

Merhaba İyi
Çalışmalar
Sayın Necdet Beyin
Yazdığı Kodlar
Ekli Dosyayı Denermisiniz.

 

[centillboy]

Merhaba İyi
Çalışmalar
Sayın Necdet Beyin
Yazdığı Kodlar
Ekli Dosyayı Denermisiniz.

Çok teşekkürler

 

[ZorBey_]

İyi Çalışmalar

 

[centillboy]

Merhaba İyi
Çalışmalar
Sayın Necdet Beyin
Yazdığı Kodlar
Ekli Dosyayı Denermisiniz.

Dün akşam fark edemedim sabah ilk işim detaylı incelemek oldu evet eklediğiniz dosya kusursuz çalışıyor ama ben bankanın bize gönderdiği ekstrede uygulamak istediğimde hata veriyor daha net olsun diye dosyaya ekledim

 

[olcaysan]

tarih ayarlama

arkadaşlar aşağıdaki tarih formatının gün ve ay bölümlerini nasıl düzeltebilirim
yardımcı olurmusunuz lütfen

06/20/2012
01/14/2013
02/18/2013
06/20/2012