Sıralayamıyorum

[aacanakova]

Arkadaşlar şimdiden teşekkür ederim sayenizde bir çok sıkıntımı hallettim
bunu da halledebileceğinize eminim .Şimdiden yardımcı olacak arkadaşlara teşekkürler

Eklemiş olduğum tabloda yaklaşık 2500 kişi var .

Bu listede : ( Asil ) , ( 1. Müş ) , (Yedek), (2. Müş.) diye dört çeşit girdi var

bu girdide G Sütununda ki no ya göre aşağıdaki sıralamanın olmasını istiyorum

1.sıraya 1001 Asil
2.sıraya 1001 Yedek
3.sıraya 1001 1.Müş
4.Sıraya 1001 2.Müş


Ancak o Numarada yani 1001 no da 2.veya 3. Müş olabiliyor. Birden fazla 2.Müş olursa onları da aynı numaranın altına devam etsin yani


1.sıraya 1001 Asil
2.sıraya 1001 Yedek
3.sıraya 1001 1.Müş
4.Sıraya 1001 2.Müş
5.sıraya 1001 2.Müş
6.sıraya 1001 2.Müş

gibi devam etsin diğerleri zaten 1 tanedir sadece 2. Müş.birden fazla olabilir olursa da bu şekilde olmasını istiyorum

DOSYA EKTEDİR .

 

[İhsan Tank]

sıralama
1. Müş.
2. Müş.
2. Müş.
Asil
Yedek

bu şekil de olur derseniz

Sub çift_sırala()
Range("A2:I65536").Sort key1:=Range("I2"), ORDER1:=xlAscending
Range("A2:I65536").Sort key1:=Range("G1"), ORDER1:=xlAscending
End Sub

bu kod işinizi görür sanırım

 

[aacanakova]

yok mutlaka yukarıdaki şekilde olmalı

çünkü benim dışımda 4-5 yerden bu formatta gelecek sıkıntı olur .

 

[aacanakova]

arkadaşlar lütfen yardım

 

[muygun]

yok mutlaka yukarıdaki şekilde olmalı

çünkü benim dışımda 4-5 yerden bu formatta gelecek sıkıntı olur .

Merhaba;
Daha hızlı bir çözüm bulana dek ekleri inceleyin.
Not: sıralanmamış eski veriye dönme ihtiyacınız olmazsa "aacanakova-sıralama-1" örneği yeterli olur.
İyi çalışmalar.

 

[Ömer]

Merhaba,

Sayın muygun yanıtlamış, alternatif olarak aşağıdaki kodlarıda deneyebilirsiniz.

Sub Sırala()
 
    With Columns("I:I")
        .Replace "Yedek", "0Yedek"
        .Replace "Asil", "0Asil"
        Range("A2:I" & Rows.Count).Sort Key1:=Range("G2"), Key2:=Range("I2")
        .Replace "0Yedek", "Yedek"
        .Replace "0Asil", "Asil"
    End With
 
End Sub

.