metin formatını sıralama

[igultekin2000]

iyi akşamlar; aldığım raporda "10.11.18" tarih ve tutar giriş çıkış olarak listeleniyor. makro ile tarih sırasına göre sıralamak istiyorum. Teşekkürler. Örnek dosya ve resim olarak yükledim. I-J ve K-L olarak sıralamak istiyorum.

 

[Ömer BARAN]

Merhaba.

Yine sizin açtığınız benzer bir soruyu hatırlıyorum sanki.

Olması gereken sonucu; mevcut verileri başka bir alana veya sayfaya elle kopyala-yapıştır yöntemiyle sıralayarak
örneklendirmenizde ve I-J / K-L eşleşmesini de netleştirleştirecek şekilde sıralama mantığına ilişkin
net açıklama ekleyerek örnek belgeyi yenilemnizde bence yarar var.

Kolay gelsin.
.

 

[Ömer BARAN]

Tekrar merhaba.
Metin olarak saklanan TARİHler TARİH'e dönüştürülerek işlem yapılmaktadır.

Sub IJ_KL_SIRALA_BRN()
Dim r As Worksheet, Ison As Long, Kson As Long, hcr As Range, alan As Range, trh As String
Set r = Sheets("RAPOR")
Ison = r.Cells(Rows.Count, "I").End(3).Row: Kson = r.Cells(Rows.Count, "K").End(3).Row
If Ison = 1 And Kson = 1 Then Exit Sub
    Set alan = r.Range("I2:I" & Ison & ",K2:K" & Kson)
    For Each hcr In alan
        trh = hcr.Text
        If Len(trh) = 8 Then
            hcr.NumberFormat = "dd.mm.yy"
            hcr = CDate(trh)
        End If
    Next
    If Ison > 1 Then: r.Range("I2:J" & Ison).Sort [I1], 1
    If Kson > 1 Then: r.Range("K2:L" & Kson).Sort [K1], 1
MsgBox "Veriler sıralandı.", vbInformation, "..:: Ömer BARAN ::.."
End Sub

 

[igultekin2000]

Tekrar merhaba.
Çok teşekkür ederim, çok sık kullandığım ve zaman alan bir işlemdi bu makro çok işime yarayacak. iyi çalışmalar.