Eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
Çalışmanın kod bölümünde bulunan D ve E sütunlarına herhangibir veri sütununa veril girildiğinde alfabetik sıralama yapan kodu bu formata uygun olarak revize edilmesi hususunda yardımlarınızı rica ediyorum.
Birleştirilmiş hücrelerin bulunduğu alanlar normal koşullarda SIRALAMA işlemine tabi tutulamaz.
Ayrıca belgenizde iki ayrı veri grubu mevcut.
Bunlar; üstteki NORMAL çalışanlar grubu ve 408'inci satırdan sonra yer alan EMEKLİLER grubu.
Dolayısıyla aşağıdaki işlemler sırasında bir de bu çalışan gruplarının ayrı işleme tabi tutulması gerekiyor.
Kodda, .... If sat = 409 Then sat = sat + 1... kısmı bunun için var.
Sonuç olarak izlenen yöntem şöyle;
-- D ve E sütundaki hücre birleştirmelerini İPTAL et,
-- Boş kalan hücrelere bir üst satırdaki verileri yazdır,
-- Bu haliyle gerekli SIRALAMAyı yap,
-- Tekrar ilgili hücrelerin birleştir,
Belgenizde mevcutWorksheet_Change kod blokunu silip, bunun yerine aşağıdaki kodları yapıştırın.
VBA:
İndirmek için giriş yapmanız gerekmektedir.
(32 satır)
Bu site, içeriği kişiselleştirmek, deneyiminize uyarlamak ve kayıt olmanız durumunda giriş yapmanızı sağlamak için yasal düzenlemelere uygun çerezler (cookies) kullanır.
Bu siteyi kullanmaya devam ederek, çerez kullanımına izin veriyorsunuz.