Sıralama kodu hata veriyor

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
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.
Kod:
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?
 

Ekli dosyalar

AlfabetikİsimListesiSırala isimli makroyu aşağıdakiyle değiştirin.
C:
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")
With Sheets("ARŞİV")
    alan = "B2:Q" & .Cells.SpecialCells(xlCellTypeLastCell).Row
        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
    .Range(alan).Sort Key1:=.Range(sor & "2"), Order1:=1, Key2:=.[F2], Order2:=1
End With
    MsgBox Range(sor & "1").Value & " sütununa göre sıralama yapıldı.", vbInformation, "ASLAN"
End Sub
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst