@zompcu_80
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
mevcut Worksheet_Change kod blokunu
silip,
bunun yerine aşağıdaki kodları yapıştırın.
VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(32 satır)