BÜyÜkten KÜÇÜĞe Siralama

[kmlpyrz]

Öğrenci problem anketi sonuçlarını yüzdelik olarak hesaplayan programıma, bu problemlerin yüzdelik oranlarına göre sıralanması özelliğini kazandıramadım. Yardımcı olursanız sevinirim. Detaylı bilgiyi ekteki dosyam içine ekledim. Şimdiden teşekkürederim.

 

[Levent Menteşoğlu]

Birleştirilmiş hücrelerde sıralama yapamazsınız.

 

[kmlpyrz]

Sayın leventm, forumdan elde ettiğim bilgilerle, sayfa1 aktif olduğunda otomatik sıralama yapıp, boş satırları gizleyen bir kod ekledim. Ama ufak bir sorunum var. Sınıf seviyesini değiştirip tekrar sayfa1'e gittiğimde boş olduğu için gizlenmiş satırlar, veri ile dolu hale gelsede sıralamaya katılmıyorlar.
Bunun çözüm yolu olarak şunu düşündüm ama kodu yazamadım.

Sayfa1'den çıktığımda (deaktif olduğunda), aşağıdaki komutum boş hücreleri gizlemeyi bıraksın ve tüm satırlar görünsün. Yardımcı olursanız sevinirim.

Private Sub Worksheet_Activate()
Rows("5:74").EntireRow.Hidden = False
For X = 5 To 74
If Cells(X, 2).Value = "0" Then Rows(X).Hidden = True
Next
End Sub