Puantajda Alfabetik Sıralama Yapma

Bu kodu TALLY sayfasının kod modülüne (sağ tık → View Code) mevcut Worksheet_Change yerine yapıştırın. SIRALAMA ve PUANTAJ modülleri olduğu gibi kalabilir.

Kodu TALLY sayfasının kod modülü Worksheet_Change yerine yapıştırıp denedim EK'te ekran görüntüsünü aldığım mesaj geliyor. Sıralama çalışmıyor.

Hata Worksheet_Change yüzünden değil, eski SIRALAMA içindeki şu satırdan geliyor:
Aynı modüldeki SIRALAMA içinde sadece eski .Sort satırını kaldırıp yerine bunu koyun:
Önemli nokta: Worksheet_Change aralığını özellikle C9:E307 yaptım. Çünkü mevcut sıralama mantığınız ekran görüntüsünde üst blok için çalışıyor; 1012 bırakırsanız alttaki başka alanlarda da gereksiz yere SIRALAMA tetiklenir.

Sıralama yaparken birleştirlimiş hücrelerden oluşan C9:E aralığı iki satıra döünüyor. Son olarak sıralama işleminin hem DELETE özeliği ile hem de C9:E aralığına yeni kişler ekleyince gerçekleşmesini sağlayabilirmiyiz lütfen.

Evet, bunu birlikte toparlayabiliriz. İhtiyaç artık 2 parçalı:

1. C9:E alanında DELETE yapınca ilgili C:AK satır/blok temizlenecek.
2. C9:E alanına yeni kişi yazınca da sıralama çalışacak.
3. Sıralama sonrası C9:E alanı tekrar 2 satırlık birleşik hücre düzenine dönecek.

Aşağıdaki çözüm bunun için daha doğru olur: Worksheet_Change her ekleme/silmede tetiklenir, SIRALAMA ise önce birleşikleri açar, sıralar, sonra tekrar 2 satırlık birleştirir.
TALLY sayfası kod modülüne bunu yapıştırın:

Aynı sayfadaki eski SIRALAMA prosedürünü de bununla değiştirin:

Bu revizyonda:

• DELETE ile satır temizleme çalışır.
• C9:E alanına yeni kişi yazınca da otomatik sıralar.
• Sıralamadan sonra C:D:E yeniden 2 satır birleşir.
• Önceki Range.Sort method failed hatasını veren eski kısa .Sort yapısı kaldırılmış olur.

Küçük not: burada 307/308 sınırını önceki yapınıza göre korudum.