Büyükten küçüğe sıralamak

[cem yılmaz]

Merhabalar..

Büyükten küçüğe yada küçükten büyüğe sıralama yapmak istiyorum.Ve bunu bir buton aracılığı ile ilk basışımda büyükten küçüğe ikinci basışımda küçükten büyüğe sıralasın.Fakat yanındaki sütunlar sıralanmasın aynen kalsın.Yardımcı olurmusunuz.?

 

[İhsan Tank]

Merhabalar..

Büyükten küçüğe yada küçükten büyüğe sıralama yapmak istiyorum.Ve bunu bir buton aracılığı ile ilk basışımda büyükten küçüğe ikinci basışımda küçükten büyüğe sıralasın.Fakat yanındaki sütunlar sıralanmasın aynen kalsın.Yardımcı olurmusunuz.?

merhaba
bir tane commandbutton oluşturun adını Küçük'ten Büyüğe Olarak Değiştirin ve sayfanın kod bölümüne

Private Sub CommandButton1_Click()
If CommandButton1.Caption = "Küçük'ten Büyüğe" Then
Range("C6:F65536").Sort Key1:=Range("C6"), Order1:=xlAscending
CommandButton1.Caption = "Büyük'ten Küçüğe"
Else
Range("C6:F65536").Sort Key1:=Range("C6"), Order1:=xlDescending
CommandButton1.Caption = "Küçük'ten Büyüğe"
End If
End Sub

bu kodu kopyalayın

 

[cem yılmaz]

şu şekilde hata veriyor sarı ile işaretledim debug yazıyor.

Private Sub CommandButton1_Click()
If CommandButton1.Caption = "Küçük'ten Büyüğe" Then
Range("C6:F65536").Sort Key1:=Range("C6"), Order1:=xlAscending
CommandButton1.Caption = "Büyük'ten Küçüğe"
Else
Range("C6:F65536").Sort Key1:=Range("C6"), Order1:=xlDescending

CommandButton1.Caption = "Küçük'ten Büyüğe"
End If
End Sub

 

[cem yılmaz]

Teşekkür ederim hatayı düzelttim çalışıyor.Sağolun

 

[İhsan Tank]

Teşekkür ederim hatayı düzelttim çalışıyor.Sağolun

kod bende sorunsuz çalışıyordu
rica ederim
:yazici: