Görev Kodu ve İsme Göre Sıralama

[önder34]

Merhaba okulumuz için hazırladığım ekders çizelgesini önce görev kodu sonra isim ve en son soy isime göre sıralama yapmasını istiyorum .Kişinin ismini girdiğimde ilgili kişiye ait cf sütununa geldiğimde nokta koyduktuktan sonra enter a basıyorum .Makroda girilen isim tanımlı değil mesajını veriyor yardımcı olabilecek arkadaşların yarımını bekliyorum .
dosya ekliyorum

 

[Korhan Ayhan]

Selamlar,

Kullandığınız sayfaya ait kodu aşağıdaki şekilde değiştirip denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [CF10:CF77]) Is Nothing Then Exit Sub
    Range("B10:CE64").Sort Key1:=Range("E10"), _
    Order1:=xlAscending, Key2:=Range("B10"), _
    Order2:=xlAscending, Key3:=Range("C10"), _
    Order3:=xlAscending, Header:=xlGuess, OrderCustom:=1, _
    MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
    DataOption2:=xlSortNormal, DataOption3:=xlSortNormal
    Target.Select
End Sub