Öğ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.
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
BÜyÜkten KÜÇÜĞe Siralama
- Konbuyu başlatan kmlpyrz
- Başlangıç tarihi
- Katılım
- 13 Ekim 2004
- Mesajlar
- 16,058
- Excel Vers. ve Dili
-
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Birleştirilmiş hücrelerde sıralama yapamazsınız.
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
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