TARİH OLUŞTURMA

[Pırıl...]

Günaydın

https://dosya.co/x0pmnad5u2wt/örnek.xlsx.html

örnek dosyada belirttiğim gibi tarih oluşturmamız mümkün mü acaba
2014-2019 arası uzun bir satırım mevcuttur
teşekür ederim

 

[YUSUF44]

Formülle nasıl yapılır bilmiyorum. Aşağıdaki makroyu deneyiniz:

Sub tarih()
son = Cells(Rows.Count, "C").End(3).Row
For i = 1 To son
    If Cells(i, "C") <> "" Then
        If WorksheetFunction.IsText(Cells(i, "C")) = True Then
            If Cells(i, "C") = "Ocak" Then ay = 1
            If Cells(i, "C") = "Şubat" Then ay = 2
            If Cells(i, "C") = "Mart" Then ay = 3
            If Cells(i, "C") = "Nisan" Then ay = 4
            If Cells(i, "C") = "Mayıs" Then ay = 5
            If Cells(i, "C") = "Haziran" Then ay = 6
            If Cells(i, "C") = "Temmuz" Then ay = 7
            If Cells(i, "C") = "Ağustos" Then ay = 8
            If Cells(i, "C") = "Eylül" Then ay = 9
            If Cells(i, "C") = "Ekim" Then ay = 10
            If Cells(i, "C") = "Kasım" Then ay = 11
            If Cells(i, "C") = "Aralık" Then ay = 12
        ElseIf Len(Cells(i, "C")) = 4 Then
            yil = Cells(i, "C")
        Else
            Cells(i, "B") = DateSerial(yil, ay, Cells(i, "C"))
        End If
    End If
Next
                
End Sub

 

[Pırıl...]

@YUSUF44 Hocam teşekür ederim elleriniz dert görmesin inşallah formül de olsaydı keşke

 

[Necdet]

Merhaba,

Formüle örnek, Her grup için düzenlemek gerek, anlaşılsın diye basit olsun istedim.

B3

=METNEÇEVİR(C3&$C$1&$C$2;"gg.aa.yyyy")+0

formülü aşağıya doğru kopyalayıp yeni grupta formülü düzenlemek gerek.

Formül uygulanan hücreleri de tarih olarak biçimlendirmek gerek.

 

[Pırıl...]

Hocam tşk ederim oldu elinize saglık bu tarz veriden sürekli karşıma çıkıyor başka bir yolu olsaydı

 

[YUSUF44]

Formül için şöyle bir çözüm buldum:

Öncelikle en üste bir satır ekleyin, verileriniz 2. satırdan başlasın.
Sonra B2 hücresine aşağıdaki formülü yapıştırıp aşağı doğru kopyalayın:

=EĞER(C2="";"";EĞER(EMETİNSE(C2)=DOĞRU;TARİH(C3;KAÇINCI(C2;{"Ocak"\"Şubat"\"Mart"\"Nisan"\"Mayıs"\"Haziran"\"Temmuz"\"Ağustos"\"Eylül"\"Ekim"\"Kasım"\"Aralık"};0);1);EĞER(UZUNLUK(C2)=4;TARİH(C2;KAÇINCI(C1;{"Ocak"\"Şubat"\"Mart"\"Nisan"\"Mayıs"\"Haziran"\"Temmuz"\"Ağustos"\"Eylül"\"Ekim"\"Kasım"\"Aralık"};0);1);TARİH(YIL(B1);AY(B1);C2))))

Bu formülle Ay ve Yıl olan satırlara da mecburen tarih atılacaktır, dikkate almayınız.

 

[Necdet]

Bizim formül işe yaramadı mı?