Soru TARİH-TUTAR-HESAP KODU İLE SIRALI LİSTELEME

[NADİR YILDIZ]

Arkadaşlar 10 Tane aynı şablonda listem var.bu listelerdeki bilgilerin hepsini sıralı listedeki gibi sıralatmak istiyorum.sıralartırken de tarih tutar hesap kodu sırasına göre ayrı ayrı sıralatabilmek için makroları ayrı ayrı tanımlatabilir miyiz ?

 

[EmrExcel16]

Deneyiniz.

Option Explicit
Sub Listeleri_sirala()
    Dim i
    For i = 1 To (10 * 5) Step 5
        Range(Cells(3, i), Cells(Cells(Rows.Count, i).End(xlUp).Row, i + 3)).Sort Key1:=Cells(3, i), Order1:=xlAscending, key2:=Cells(3, i + 2), order2:=xlAscending, key3:=Cells(3, i + 3), order3:=xlAscending
    Next
    MsgBox "islem tamam"
End Sub

 

[NADİR YILDIZ]

SAYIN emre ilgilinize teşekkürler ancak sırala tuşuna bastığımda mavi alanda sıralama yapmıyor.
benim istediğim 10 tane listedeki verileri mavi alanda sıralatmak istiyorum.
sıralatırkende tarih tutar ve hesap kodu için ayrı ayrı makro ile sıralatmak istiyorum

 

[EmrExcel16]

SAYIN emre ilgilinize teşekkürler ancak sırala tuşuna bastığımda mavi alanda sıralama yapmıyor

Ben listelerde sıralama yapılacak diye anladım siz sadece mavi alanda mı sıralama istiyorsunuz.

 

[EmrExcel16]

Deneyiniz

Option Explicit
Sub Listele()
    Dim i, Rw
    Range("AY3:BB10000").ClearContents
    For i = 1 To (10 * 5) Step 5
        If Cells(3, i) <> "" Then
            Rw = Cells(Rows.Count, 51).End(xlUp).Row + 1
            Range(Cells(Rw, 51), Cells(Cells(Rows.Count, i).End(xlUp).Row + (Rw - 3), 54)).Value = Range(Cells(3, i), Cells(Cells(Rows.Count, i).End(xlUp).Row, i + 3)).Value
        End If
    Next
End Sub

Sub Tarih_Sirala()
    Listele
    Range(Cells(3, 51), Cells((Cells(Rows.Count, 51).End(xlUp).Row), 54)).Sort Key1:=Cells(3, 51), Order1:=xlAscending
    MsgBox "islem tamam"
End Sub
Sub Tutar_Sirala()
    Listele
    Range(Cells(3, 51), Cells((Cells(Rows.Count, 51).End(xlUp).Row), 54)).Sort Key1:=Cells(3, 53), Order1:=xlAscending
    MsgBox "islem tamam"
End Sub
Sub Hesap_Kodu_Sirala()
    Listele
    Range(Cells(3, 51), Cells((Cells(Rows.Count, 51).End(xlUp).Row), 54)).Sort Key1:=Cells(3, 54), Order1:=xlAscending
    MsgBox "islem tamam"
End Sub

 

[NADİR YILDIZ]

Sayın emre bey teşekkür ederim.

 

[EmrExcel16]

Sayın emre bey teşekkür ederim.

Rica ederim , iyi çalışmalar.