Azalan ve Artan Sıralama

[Yesilyurtlu]

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
Range("A:S").Sort key1:=Range("B11"), ORDER1:=xlAscending
ToggleButton1.Caption = "A - Z Sıralama"
MsgBox "A - Z Sıralama Yapılmıştır.", , "İhsan Tank"
Else
Range("A:S").Sort key1:=Range("B11"), ORDER1:=xlDescending
ToggleButton1.Caption = "Z - A Sıralama"
MsgBox "Z - A Sıralama Yapılmıştır.", , "İhsan Tank"
End If
End Sub

Kod Eski Emektar uzmanım İhsan Tank'a aittir.
İstediğim A11:S11 aralığında ki sadece rakamları sütun sütun sıralaması.
Düzenleme konusunda yardımcı olabilir misiniz?

 

[asi_kral]

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
Range("A:S").Sort key1:=Range("B11"), ORDER1:=xlAscending
ToggleButton1.Caption = "A - Z Sıralama"
MsgBox "A - Z Sıralama Yapılmıştır.", , "İhsan Tank"
Else
Range("A:S").Sort key1:=Range("B11"), ORDER1:=xlDescending
ToggleButton1.Caption = "Z - A Sıralama"
MsgBox "Z - A Sıralama Yapılmıştır.", , "İhsan Tank"
End If
End Sub

Kod Eski Emektar uzmanım İhsan Tank'a aittir.
İstediğim A11:S11 aralığında ki sadece rakamları sütun sütun sıralaması.
Düzenleme konusunda yardımcı olabilir misiniz?

Merhaba

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
Range("A11:S11").Sort key1:=Range("A11"), ORDER1:=xlAscending
ToggleButton1.Caption = "A - Z Sıralama"
MsgBox "A - Z Sıralama Yapılmıştır.", , "İhsan Tank"
Else
Range("A11:S11").Sort key1:=Range("A11"), ORDER1:=xlDescending
ToggleButton1.Caption = "Z - A Sıralama"
MsgBox "Z - A Sıralama Yapılmıştır.", , "İhsan Tank"
End If
End Sub

Bu şekilde dener misiniz_?
Olmazsa lütfen dosya ekleyin içerisinde tam olarak nasıl olması gerekiyorsa yazın bakalım.
İhsan Tank Uzman gitmiş ama bakarsın bizde işe yararız.

 

[Yesilyurtlu]

Buyurun dosya ekli.
Tüm sütun a:s aralığı için sıralama yapmalı.
Ancak 12.satır pasif durumda kaldı

 

[asi_kral]

Buyurun dosya ekli.
Tüm sütun a:s aralığı için sıralama yapmalı.
Ancak 12.satır pasif durumda kaldı

Sıralamayı yapıyor şu an siz nasıl bir sıralama istiyorsunuz_?

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
Range("A11:S18").Sort key1:=Range("B11"), ORDER1:=xlAscending
ToggleButton1.Caption = "A - Z Sıralama"
MsgBox "A - Z Sıralama Yapılmıştır.", , "İhsan Tank"
Else
Range("A11:S18").Sort key1:=Range("B11"), ORDER1:=xlDescending
ToggleButton1.Caption = "Z - A Sıralama"
MsgBox "Z - A Sıralama Yapılmıştır.", , "İhsan Tank"
End If
End Sub

Bu kodu deneseniz bir de