sayın hocam;
sizin verdiğiniz kodla sıralama yapıyor ama şöyle bir sıkıntı var değişiyor. sıra no kısmında problem var. sıralama yapıtığımız zaman sıra no 1,2,3 şeklinde devam etmiyor. benim verdiğim kodda sıralamada bir sorun çıkmıyor. bakarsanız sevinirim.

Şunu daha önce söyleseydinize.
Verdiğm örnekteki kodları aşağıdaki gibi revize edin.

Dim Alan As Range



Sub Düğme55_Tıklat()

    Set Alan = Intersect(Range("A1").CurrentRegion, Columns("B:E"))

    Alan.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:= _

        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

        DataOption1:=xlSortNormal

    Set Alan = Nothing

End Sub



Sub Düğme167_Tıklat()

    Set Alan = Intersect(Range("A1").CurrentRegion, Columns("B:E"))

    Alan.Sort Key1:=Range("D2"), Order1:=xlAscending, Header:= _

        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

        DataOption1:=xlSortNormal

    Set Alan = Nothing

End Sub

merhaba sayın hocam;
şöyle bir sorun ile karşılaştım sizin yazmış olduğunuz kodda.

"bu işlem için birleştirilen hücreleri aynı boyutta olması gerekli"
birleştirilmiş hücreler varsa bu hatayı alıyorum. bu hatayı almamak için başka bir kod yazmak mevcut mudur? yada ilk mesajımdaki kodu nasıl revize edip bölüm bazında sıralama yapabilirim.yardımlarınızı bekliyorum. teşekkürler.

(01/08/2013, 09:46)diablo0019 yazdı: merhaba sayın hocam;
şöyle bir sorun ile karşılaştım sizin yazmış olduğunuz kodda.

"bu işlem için birleştirilen hücreleri aynı boyutta olması gerekli"
birleştirilmiş hücreler varsa bu hatayı alıyorum. bu hatayı almamak için başka bir kod yazmak mevcut mudur? yada ilk mesajımdaki kodu nasıl revize edip bölüm bazında sıralama yapabilirim.yardımlarınızı bekliyorum. teşekkürler.

Muhtemeln tablonuzda birleştirilşmiş hücreler olduğu için böyle bir hata almanız gayet doğal, çünkü filtreleme ve sırlama gibi işlemler uygulayacağınız tabloda birleştirilmiş hücre önerilmez. Onun yerine bu birleştirdiğiniz hücrelerdeki veriyi ilgili hücrelere tek tek girmeniz gerekiyor.
Bunun için ilave koda gerek yok, birleştirilmiş hücre kulanmayın yeter.

merhaba hocam;
ilgili örnekte birleştirilmiş hücreleri bulamadım. bende tüm alanı seçip birleştir dediğim zaman sadece butonlar kalıyor. bunu sorunu nasıl çözebilirim

Son yazdığım kodları örneğiniz uyarladım, problem çıkmadı.