Sıralama kodu hata veriyor

[ASLAN7410]

Merhaba hayırlı geceler.

Ekte göndermiş olduğum izin takip dosyamın ARŞİV sayfasında sayfa üzerinde kendimin eklemiş olduğum sıralama butonuna bastığımda
İZİN sayfasının kod sayfasında bulunan aşağıdaki kodun 2.satırını sarıya boyuyor hata veriyor.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(ActiveCell, Range("N8:N17")) Is Nothing Then
        Application.OnKey "{F2}"
        Application.OnKey "^{c}"
        Application.OnKey "^{v}"
        Application.OnKey "^{x}"
    Else
        Application.OnKey "{F2}", ""
        Application.OnKey "^{c}", ""
        Application.OnKey "^{v}", ""
        Application.OnKey "^{x}", ""
    End If

End Sub

Yardımcı olur musunuz?

 

[YUSUF44]

Çalıştırdığınız makro sayfada değişiklik yaptığı için İzin sayfasında belirttiğiniz kodlar aktifleşiyor ve bu hata oluşuyor. Sıralama sırasında sayfa kodunun çalışması gerekmediğini düşünerek aşağıdaki, sıralama makrosunu aşağıdaki gibi değiştirirseniz sorun çıkmayacaktır diye düşünüyorum:

Sub AlfabetikİsimListesiSırala()
Application.Calculation = xlAutomatic
sor = Application.InputBox("Sıralanacak SÜTUNUN Harfini Giriniz!.." & vbCrLf & " ", "ASLAN", "J")
sor = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(sor, "ç", "c"), _
    "Ç", "C"), "ğ", "G"), "Ğ", "G"), "ö", "O"), "ö", "O"), "ş", "S"), "Ş", "S"), "ü", "U"), "Ü", "U")
    
        If sor = False Then
            MsgBox "İşlemi iptal ettiniz.", vbInformation, "ASLAN"
            Exit Sub
            
        ElseIf Range(sor & "1").Column < 2 Then
            MsgBox "A sütununa göre sıralama yapılamaz!...", vbCritical, "ASLAN"
            Exit Sub
            
        ElseIf Range(sor & "1").Column > 17 Or Len(sor) > 1 Then
            MsgBox "Veri olmayan sütun adı yazılamaz.", vbCritical, "ASLAN"
            Exit Sub
        End If
[B]        Application.EnableEvents = False[/B]
        
    Range("B2:Q" & Sheets(1).Cells.SpecialCells(xlCellTypeLastCell).Row).Sort _
        Key1:=Range(sor & "2"), Order1:=xlAscending, Key2:=[F2], Order2:=xlAscending
        
[B]        Application.EnableEvents = True[/B]
 
    MsgBox Range(sor & "1").Value & " sütununa göre sıralama yapıldı.", vbInformation, "ASLAN"

End Sub

 

[ASLAN7410]

Sayın Yusuf Bey, ilginiz için çok teşekkür ediyorum, geceleri çalıştığım için geç dönüş yaptım kusura bakmayın.

Eklemiş olduğunuz kodu çalıştırdığımda

[B]        Application.EnableEvents = False[/B]

bu satırı kırmızı yapıyor Compile error: Syntax error şeklinde uyarı mesajı çıkıyor.

 

[Necdet]

Merhaba,

Sizin Sıralama kodlarınızın hemen başına

    With Application
        .Calculation = xlAutomatic
       .EnableEvents = False
    End With

ekledim, sonunda da .EnableEvents = True dedim hata almadım.

Not : Ben olsam Sütun Harfini almak yerine o an aktif sütunu kullanırdım.

 

[ASLAN7410]

Sayın Necdet Bey, ilginiz için çok teşekkür ediyorum.

Yusuf Bey'in kodları içerisindeki hata verdiren yerdeki

[B]

harflerini silince kod tam istediğim gibi çalıştı.

Her ikinize de çok teşekkür ediyorum. Hayırlı geceler diliyorum.