İleri Sıralama (Sort)

[mustafaulkem]

TEÞEKKÜRLER EKSOY
BİR BAÞKA YARDIM ALACAÐIM KONU YİNE SIRALAMA İLE İLGİLİ
Ã?RNEK
BİRAZ Ã?NCE YAPTIÐIMIZ GENEL SIRALAMAYI AÞAÐIDAKİ GİBİ SINIF Ã?ZELLİÐİNE GÃ?RE NASIL SIRALAYABİLİRİZ

SINIF BOY GENEL SINIF

1.SINIF 148 1
2.SINIF 114 11
3.SINIF 115 10
2.SINIF 113 12
1.SINIF 125 7
3.SINIF 136 3
1.SINIF 125 7
2.SINIF 141 2
1.SINIF 124 9
2.SINIF 128 6
3.SINIF 135 4
2.SINIF 134 5

 

[mustafaulkem]

Hâlâ cevabım gelmedi.arkadaşlar çalışmam yarım kaldı.

 

[eksoy]

ben buna çözüm bulamadım

 

[Hüseyin]

Sayın mustafaulkem,
Lütfen biraz zaman ayırıp forum kurallarını okuyunuz.

Yeni sorunuzu eski sorunuzdan ayırıp yeni bir başlık olarak açtım.
(Bir sorunun devamına başka soru sormayınız.)

Sorunuzu Makro başlığından "Diğer Excel Soruları" başlığına taşıdım.
(Sorularınızı doğru başlıklar altına açınız.)

 

[cako]

Aradığınız şöyle bir şey mi,
1.sınıfın en yüksek boyu 1
1.sınıfın ikinci yüksekboyu 2
1.sınıfın üçüncü yüksek boyu 3
2.sınıfın birinci yüksek boyu 4
gibi mi

 

[mustafaulkem]

evet

 

[SER973]

Data/ Sort Menüsünden Yapabilirsiniz....

Çıkan Sor Menüsünde

Sort By ( İlk Sıralama ölçütü..)
Then By ( İkinci Sırlama Ã?lçütü...)
Then By ( Üçüncü Sırlama Ã?lçütü...)

Seçerek yapabilirsiniz....

 

[cako]

Sayfa üzerinde bir butonun kod sayfasına aşağıdaki kodları yapıştırın.

Private Sub CommandButton1_Click()
x = [A65536].End(xlUp).Row
ReDim al(x)
For i = 1 To x
    j = 10 - Left(Cells(i, 1), 1)
    al(i) = j & Cells(i, 2)
Next i
For i = 1 To x
    k = x
    For j = 1 To x
        If i = j Then
            GoTo atla
        End If
        If al(i) >= al(j) Then
            k = k - 1
        End If
atla:
    Next j
    Cells(i, 4) = k
Next i
End Sub

D sütununda istediğiniz sıralama mevcut. Yanlız 1-2-3 diye devam eden sınıflar 9 dan yukarı olursa bu kodlar çalışmaz.