Siralamada Sorun

[sozlersilah]

selam arkadaslar formu inceledım ama sorunuma cozum bulamadım.çalışma kitabında şu kodu kullanıyorum sırala yapıyor ama satırın sonuna atıyor.
YANİ VERİLERİ E30 SATIRINDAN BAŞLATIYOR.B8 SATIRINDAN NASIL BAŞLATABİLİRİZ.AYNI ZAMANDA DOSYA KORUMALI ŞİFREYİ KALDIRMADAN SIRALAMA YAPILIRMI.TSK LER.

Range("B8:E30" & [B8].End(3).Row).Sort [B8], xlAscending

 

[N.Ziya Hiçdurmaz]

Yanıt

Bu şekil deneyiniz

Sub TEST()
[B8:E30].Sort KEY1:=[B8], ORDER1:=xlAscending
End Sub

 

[sozlersilah]

Ziya bey Çok TesekkÜr Ederİm Ama Yine Olmadi.ornek Olarak Bir Dosya Ekledim Ondan Bakarsaniz Demek Istedigim Daha Net AnlaŞilacak.

 

[veyselemre]

D sütununda formüller olduğu için sıralama dediğiniz şekilde oluyor. Aşağıdaki gibi 2 kere sıralattırırsanız istediğiniz tablonuz istediğiniz hale gelir.

Sub Düğme2_Tıklat()
    Range("A8:D" & [D65536].End(3).Row).Sort KEY1:=[D8], ORDER1:=xlDescending
    Range("A8:D" & [A65536].End(3).Row).Sort KEY1:=[D8], ORDER1:=xlAscending
End Sub

 

[sozlersilah]

tesekkür ederim veyselemre bey,sayfayı koruma altına alarak sıralama yapması mumkunmu acaba nasıl bır kod kullanabılırız