2 koşullu sıralama makrosu

[esentepe]

Merhaba,
Sıralama ile ilgili bir sorun yaşıyoruz.
Aşağıdaki verileri bir tabloya koplayıp müşteri kodu ve belge türüne göre sıralama yapmak istiyorum.
Bir müşteride hem A001 hem A002 varsa bunu normal prosedüre göre uygulasın.
Fakat,bir müşteride sedece A002 belge türü varsa o müşteriye ait sipariş bilgilerini listenin en altına atsın.

Liste kalabalık olduğu için A002 olan müşterileri manuel olarak en alta alıyoruz.

Mş kodu b.türü sip no
3333 A001 5660
3333 A001 5668
4444 A002 4896
4444 A002 5273
5555 A001 6599
5555 A001 6599
5555 A001 6599
5555 A001 6599
5555 A001 6599
5555 A001 6599
5555 A001 6599
5555 A002 4894
5555 A002 4894

 

[esentepe]

Yok mu bu konuda fikri olan bir üstad?

 

[ÖmerBey]

Yardımcı sütun kullanarak çözebilirsiniz.
Linkteki dosyayı inceleyiniz. Yardımcı sütunda A001 değeri olan müşterilere 1 değeri olmayanlara da 0 değeri verildi. Bu şekilde bir yardımcı sütun oluşturduktan sonra önce yardımcı sütuna, ardından A ve B sütunlarına göre sıralama yaptığınızda sanırım istediğiniz elde edilir.
L İ N K
Sıralama için kod kullanmak isterseniz bu da sıralama kodu.

Range("A2:D15").Sort [D2], 2, [A2], , , [B2]

 

[Korhan Ayhan]

Deneyiniz.

Sub Sirala()
    Range("A2:B" & Rows.Count).Sort Range("A2"), xlAscending, Range("B2"), , xlAscending
End Sub

 

[esentepe]

Üstadlar ilginiz için teşekkürler yalnız benim derdim sıralama değil
Ben 4 seviye sıralamayı yaptırıyorum kod ile.

Sorunum şu,
Önce müşteri koduna göre sırala,
devamında belge türüne göre sırala, (bu şekilde sıralanınca,bir müşteride hem A001 hem A002 belge türü de olabiliyor,sadece A001,A002 de olabiliyor.)

En sonunda bir müşteride sadece belge türü A002 varsa bu müşteriye ait olan satırları listenin en altına atsın.

Bilmiyorum yapılabilir mi ama manuel olarak takip ettiğimiz için makroyu araştırıyorum.

tekrar teşekkürler, (bilmem anlatabildim mi)

 

[esentepe]

yani yukarıdaki listede 4444 kodlu müşteride sadece A002 olduğu için sıralamada en alta gelmeli.