Hücre Boyutları Aynı Olmayan Verileri Sıralama

[abone0069]

Sn. Arkadaşlar,

Excelde yaptığım bir çalışma yaklaşık 128 sayfa kendi aralarında sıralamaya çalıştığımda hücre boyutlarının aynı olmadığı için sıralama yapmıyor. Bu sorunu nasıl aşabilirim. Örnek ekte olup verdiğim 3 ile verilerini plakasına göre sıralama yapmaya çalışıyorum ama olmuyor. Yardımlarınız için şimdiden teşekür ederim.

 

[omerceri]

A sütunundaki bilgiler birleşik hücre olduğunda ve seçim genişletildiğinde filitreleme yapmaz.
İlk önce birleşik hücreleri ayırmalısınız ve birleşik hücrelerdeki değerleri her hücreye ayrı ayrı yazdırmalısınız. Aşağıdaki kodlar bu işi yapar.
------------Denemeden önce dosyanızın bir yedeğini alın.-----------
Sub b()
say = Range("a1").CurrentRegion.Rows.Count
For i = 1 To say
a = Range("a" & i).MergeArea.Address
c = Range("a" & i)
Range(a).UnMerge
Range(a).Value = c
Next
End Sub

 

[omerceri]

Plakalarında ayrılması gerekiyordu kodları değiştirdim.
Sub b()
say = Range("a1").CurrentRegion.Rows.Count
For i = 1 To say
a = Range("a" & i).MergeArea.Address
a1 = Range("d" & i).MergeArea.Address
c = Range("a" & i)
c1 = Range("d" & i)
Range(a).UnMerge
Range(a1).UnMerge
Range(a).Value = c
Range(a1).Value = c1
Next
End Sub

 

[abone0069]

Veri o kadar çok ki bunları hücrelere ayırmak birleştirmek imkansız sorun da zaten burada yine de yardımınız için teşekür ederim.