Sıralama Koduna Ek

[KARTAL06]

Sıralama için forumdan aldığım bir kod var.

Private Sub Worksheet_Change(ByVal Target As Range)
[a6:AB5000].Sort Key1:=Range("X6"), Order1:=xlAscending
End Sub

Bu kod "X" sütununu sıralıyor. Bir ek daha yaparak önce "X" sütununu "X" ten sonrada "F" sütununu sırlamak için yardım istiyorum.

 

[AS3434]

Sıralama için forumdan aldığım bir kod var.

Private Sub Worksheet_Change(ByVal Target As Range)
[a6:AB5000].Sort Key1:=Range("X6"), Order1:=xlAscending
End Sub

Bu kod "X" sütununu sıralıyor. Bir ek daha yaparak önce "X" sütununu "X" ten sonrada "F" sütununu sırlamak için yardım istiyorum.

Private Sub Worksheet_Change(ByVal Target As Range)
[a6:AB5000].Sort Key1:=Range("X6"), Order1:=xlAscending, [COLOR=blue]Key2:=Range("f6"), Order1:=xlAscending[/COLOR]
End Sub

Key2 ilave edin.

 

[KARTAL06]

Süper oldu teşekkür ederim.

Elinize sağlık.