Makro da tarihi bicimlendirip sıralama nasıl yaparım

Katılım
19 Kasım 2010
Mesajlar
6
Excel Vers. ve Dili
2010 tr
Merhaba
L hücresinde tarih sıralamasında 18000 ürün listem var ve gün gün artıyor
29-Jan-16
19-Feb-16
04-Mar-16 (metin biciminde görüyor)
01-Apr-16
04-May-16 (metin biciminde görüyor)
24-Jun-16
02-Jul-16
04-Aug-16
06-Oct-16
11-Nov-16
17-Sep-16
13-Dec-16
tarih formatları bu şekilde excel Mart ve Mayıs ları metin biciminde görüyor

acaba makroda tümünü tarih formatına dönüştürüp yeni den eskiye nasıl sıralatabilirim?
 
Son düzenleme:

muygun

Özel Üye
Katılım
6 Temmuz 2004
Mesajlar
9,182
Excel Vers. ve Dili
Excel-2003 Türkçe
Merhaba;

Sayfanın kod bölümüne;

Sub düzelt()
For i = 1 To Range("L65536").End(xlUp).Row
eskigün = Left(Cells(i, "L"), 2)
eskiay = Mid(Cells(i, "L"), 4, 3)
eskiyıl = Right(Cells(i, "L"), 2)
If eskiay = "Jan" Then eskiay = 1
If eskiay = "Feb" Then eskiay = 2
If eskiay = "Mar" Then eskiay = 3
If eskiay = "Apr" Then eskiay = 4
If eskiay = "May" Then eskiay = 5
If eskiay = "Jun" Then eskiay = 6
If eskiay = "Jul" Then eskiay = 7
If eskiay = "Aug" Then eskiay = 8
If eskiay = "Sep" Then eskiay = 9
If eskiay = "Oct" Then eskiay = 10
If eskiay = "Nov" Then eskiay = 11
If eskiay = "Dec" Then eskiay = 12
eski = eskigün & "." & eskiay & "." & eskiyıl
Cells(i, "L") = Format(eski, "dd.mm.yyyy")
Next i
End Sub

Kodlarını ekleyerek deneyin.

İyi çalışmalar.
 
Katılım
19 Kasım 2010
Mesajlar
6
Excel Vers. ve Dili
2010 tr
ilginize çok teşekür ederim
formülü denedim dönüştürüyor ama yeniden eskiye sıralamıyor

18-Mar-13 18.03.2013
13-May-16 13.05.2016
01-Jun-15 01.06.2015
30-Apr-12 30.04.2012
28-Feb-13 28.02.2013
11-Jun-14 11.06.2014
10-Feb-12 10.02.2012
03-Jun-15 03.06.2015
31-Jul-15 31.07.2015
13-May-16 13.05.2016
03-Nov-16 03.11.2016
10-Feb-12 10.02.2012
28-Feb-13 28.02.2013
28-Feb-13 28.02.2013

bu şekilde yapıp kalıyor
L hücresini tarih formatında görmüyor
 
Son düzenleme:
Katılım
19 Kasım 2010
Mesajlar
6
Excel Vers. ve Dili
2010 tr
Merhaba;
Muygun ustam çok teşekkür ederim ellerinize sağlık
Formül çalışıyor
İyi çalışmalar.
 
Üst