veri sıralama

[mustafa7691]

merhaba dostlar.bir süredir yoktum umarım herkes iyi ve mutludur.
yardım isteğim bir sıralşama makrosu ile ilgili.

Private Sub CommandButton2_Click()
Range("B2").Select
ActiveSheet.Unprotect Password:="0"
Range("A2:W20000").Select
Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Key2:=Range("D2") _
, Order2:=xlAscending, Key3:=Range("E2"), Order3:=xlDescending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("B2").Select
ActiveSheet.Protect Password:="0", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub



buda malum sıralamada kullandığım alıntı kod.bu farkettiyseniz üçlü bir kıyaslama ile sıralama yapıyor.acaba bunu tek bir koşula göre tüm satırı sıralayacak şekilde düzeltme imkanımız varmı.saygılarımla

 

[Orion1]

Aşağıdaki kodda W yerine istediğiniz kadar olacak olan son sütunu yazınız.

Range("A2:W20000").Select

 

[mustafa7691]

Evren hocam merhaba ve teşekkürler.Ancak sanırım sorunu ben tam anlatamadım.Vermiş olduğum kodda 3 sütunu birbirine göre inceleyerek bütün satırı sıralıyor zaten.ben sadece 3 satır koşulu olmadan olabilirmi demek istemiştim.yani tek bir sutunu büyükten küçüğe yada küçükten büyüğe sıralama yapacak ve tabiki satırdaki diğer bilgileri buna göre sıralayacak.