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ı.