3 kolondan fazla sıralama

[heft]

Merhaba,
Başlıktanda Anlaşılacağı gibi 3 kolondan fazla sıralamam var
Bunu Macro ile yapma şansımız var mı?

1-A kolonuna göre
2-B kolonuna göre
3-C kolonuna göre
4-D kolonuna göre
5-E kolonuna göre

 

[Ali]

Private Sub CommandButton1_Click()
Dim i As Long
For i = 1 To 5
Columns(i).Sort Key1:=Cells(1, i), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Next i
End Sub

Küçükten büyüğe doğru sıralar.

 

[heft]

ilginiz için teşekkürler
peki bu kolonlar sıralı değilde 1. 3. 8. 15. ise nasıl yapabiliriz?

 

[Ali]

Döngü yerine

Columns(8).Sort Key1:=Cells(1,8), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Columns(15).Sort Key1:=Cells(1,15), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

gibi düzenleyin.

 

[heft]

Yanlız ben 3. satırdan itibaren sıralattırmak istiyorum

 

[Ali]

Cells(1,8) gibi kısımı Cells(3,8) olarak değiştirin.

 

[heft]

tam olarak sorunumun dışına çıktık sanırım Bu yüzden örnek dosya gönderiyorum

ekten anlaşılacağı gibi sırasıyla
B
C
A
D
sütünlarına göre yaptırmak istiyorum.
Ancak sıralama B içinde C ,C içinde A,Aiçinde D şeklinde olmasını istiyorum.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub Makro1()
    Rows("3:18").Select
    Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, Key2:=Range("C3") _
        , Order2:=xlAscending, Key3:=Range("A3"), Order3:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
        xlSortNormal
    Range("A3:E18").Sort Range("A3")
End Sub

 

[heft]

selam sayın orion2
verdiğiniz sıralama a,b,c,d, kolonlarını sırasıyla yapıyor.
ancak ben bcad olarak yapmasını istiyorum

 

[Orion1]

selam sayın orion2
verdiğiniz sıralama a,b,c,d, kolonlarını sırasıyla yapıyor.
ancak ben bcad olarak yapmasını istiyorum

Ekli dosyayı inceleyiniz.

Sub Makro1()
    Rows("3:18").Select
    Selection.Sort Key1:=Range("C3"), Order1:=xlAscending, Key2:=Range("A3") _
        , Order2:=xlAscending, Key3:=Range("D3"), Order3:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
        xlSortNormal
    Range("A3:E18").Sort Range("B3")
End Sub

 

[heft]

teşekkürler
bir soru daha
5.kriter çıkarsa nasıl ekleme yapmam gerekir?

 

[ozsah]

Orion 2 aşağıdaki konuyu incelermisin ?
Sub sırala()
ActiveSheet.Unprotect "sy"
Range("a5:X200").Select
Selection.Sort Key1:=Range("C5"), Key2:=Range("D5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
[c65536].End(3).Offset(1).Select
ActiveSheet.Protect "sy"
End Sub

Sırala makrom yukarıdaki gibi sorum şu doğal olarak hücreleri koruyorum makrom hücreyi önce açıyor sıralıyor sonra korumayı kapatıyor. sorum şu korumayı tekrar yaparken benim bazı ayarlarımı yok ediyor örneğin 1-hücreleri biçimlendir 2-sırala 3-süzü kullan 4-nesne düzenle gibi vs. bir iki tane daha var.
onları benim yaptığım gibi kapatsın oralara dokunmasın istiyorum. engin tecrubelerinize şimdiden teşekkür ederim.