hem sutunu hem satırı birlikte sıralamak

[arol11]

hepinize selamlar
uzun süredir sizlere bir sorum olmadı,ekli dosyamda bir sıralama sorum var,çözebilirmisiniz.Hem sutunu hem satırı birlikte sıralamak istiyorum.sutun sıralanırken satırndaki değerlerde yerleri değişmeden sıralanmalı.
Şimdiden teşekkür ediyorum.

 

[leumruk]

Selamlar,
Aşağıdaki kodu deneyin:

Sub Makro1()
For x = 2 To [b65536].End(3).Row
    Range(Cells(x, "b"), Cells(x, "f")).Sort Key1:=Cells(x, "b"), Orientation:=xlLeftToRight
Next
Range("b2:f" & [f65536].End(3).Row).Sort Key1:=Range("b2"), Orientation:=xlTopToBottom
End Sub

 

[arol11]

selamlar,code uyguluyorum fakat beklediğim daha doğrusu doğrulama tablomda sonuç yanlış çıkıyor.yanlış.Bu hatayı nasıl halladebiliriz acaba .formüllü olsa daha mı iyi olur. En azından bende hatayı yakalayabilirim.

 

[arol11]

Fakat sizin kodunuz doğru çalışıyor.Benim doğrulama tablomda bi hata olmalı.Yinede siz formüllü bir çalışma örnek sayfası hazırlayabilirmisiniz.
kolay gelsin.

 

[leumruk]

Selamlar,
Ekteki örnekte butona tıklayarak sonucu gözlemleyiniz. Verdiğiniz sıralama kriterine uygun sıralıyor. Tek fark; aynı sayıların sıralamasında önceliği ilk satırdakine veriyor.
Formülle bir çözüm bilmiyorum. Bu konuda yapabileceğim bu kadar.
Saygılar.

 

[arol11]

teşekkür ederim,sağolasın.formülle olsa , acaba takip eden ustalar bu konu için ne derler,vakitleri varsa yardımcı olabilirlermi?

 

[muygun]

Merhaba;
Bir örnekte benden
Not: Örneğinizle tablonuz sanki uyuşmuyor gibi yada ben konuyu tam anlayamadım. Çünkü farklı sonuç aldım.
İyi çalışmalar.

 

[arol11]

Selamlar,sayın muygun,
inceleme fırsatım yeni oldu birazdan cevap yazacağım.
Çok teşekkür ederim.