İstenilen Aralıkta Sıralama Yapma

[alperalper]

Arkadaşlar bende bulunan bir sayfada sıralama yapmak istiyorum fakat belirli bir sütündan sonraki verilerimde değişiklik olsun istemiyorum. Bunu yapmak mümkün mü??
Ekteki dosyayı incelerseniz ne demek istediğimi daha iyi anlarsınız.

mesela ben C sütunundaki verilere göre sıralama yapmak istiyorum fakat g den sonraki verilerde kıpırdama olmasın istiyorum.

 

[halit3]

bu kodu denedmisiniz.

Sub AdanZeye()
yer = "Liste"
If ActiveSheet.Name <> yer Then
MsgBox "bu sayfada çalışmaz bu düğme"
Exit Sub
End If
a = MsgBox(" c sütunu A dan Z ye " & Chr(10) & _
"Sıralamayı Yapmak İstiyormusunuz..?", vbYesNo + vbInformation, " sıralama penceresi")
If a = vbNo Then
Exit Sub
End If
son = Worksheets(yer).Cells(Rows.Count, "B").End(3).Row
Worksheets(yer).Range("B3:F" & son).Sort Key1:=Worksheets(yer).Range("C3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select
End Sub

Sub ZdanAeye()
yer = "Liste"
If ActiveSheet.Name <> yer Then
MsgBox "bu sayfada çalışmaz bu düğme"
Exit Sub
End If
a = MsgBox(" c sütunu Z den A ya " & Chr(10) & _
"Sıralamayı Yapmak İstiyormusunuz..?", vbYesNo + vbInformation, " sıralama penceresi")
If a = vbNo Then
Exit Sub
End If
son = Worksheets(yer).Cells(Rows.Count, "B").End(3).Row
Worksheets(yer).Range("B3:F" & son).Sort Key1:=Worksheets(yer).Range("C3"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select
End Sub