Birleştirilmiş hücreleri verileri bozmadan sıralama

[muhasebeciyiz]

Merhaba ;

Ekli listedeki Y sutununda yazılı olan isimleri A-Z'ye sıralamak istiyorum. Ancak hücre birleştirilmesi nedeniyle bunu yapamıyorum.Birleştirilmiş hücreleri çözmeden tablodaki bu haliyle sıralamayı yapmak istiyorum.Yardımcı olursanız sevinirim.

 

[Ömer BARAN]

Merhaba.

Öncelikle mümkün olduğunca hücre birleştirmelerinden kaçınmanızı önermeliyim.

Gerçek tablonuzun da C:Y sütun aralığında olduğu varsayıldı.
Alt taraftan sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin.
Açılan VBA ekranında sağdaki BOŞ alana aşağıdaki kod blokunu yapıştırın ve kod'u çalıştırın.

NOT: Kod,
-- tablodan sonraki ilk satıra hücre birleştirmesi/kenarlık vs biçimini kopyalar,
-- tablodaki hücre birleştirmelerini iptal eder,
-- sıralamayı yapar,
-- daha önce biçim yapıştırılan satırdan, biçimi kopyalar ve tabloya tekrar uygular.
.

[B][COLOR="blue"]Sub BIRLESRILIMIS_SIRALAMA()[/COLOR][/B]
ilk = 10
son = Cells(Rows.Count, 3).End(3).Row
    Range("C" & ilk & ":Y" & ilk).Copy
        Range("C" & son + 1).PasteSpecial Paste:=xlPasteFormats
    Range("C" & ilk & ":Y" & son).UnMerge
    Range("C" & ilk & ":Y" & son).Sort Range("Y" & ilk), 1
    Range("C" & son + 1 & ":Y" & son + 1).Copy
    Range("C" & ilk & ":Y" & son).PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False
    MsgBox "İşlem tamam."
[B][COLOR="Blue"]End Sub[/COLOR][/B]

 

[muhasebeciyiz]

Sayın Ömer bey ;
Yardımcı olduğunuz için çok teşekkür ederim.Sağolunuz.

 

[Ömer BARAN]

.
Kolay gelsin.
.