Option Explicit

Sub Rutbe_Sicil_Sirala()

    Dim VeriSyf, SonSat

    Set VeriSyf = Sheets("VERİ")

    SonSat = VeriSyf.Cells(Rows.Count, 2).End(3).Row

    If SonSat < 3 Then Exit Sub

    Application.ScreenUpdating = False

    VeriSyf.Range("A2", "A" & SonSat).FormulaR1C1 = "=MATCH(RC[4],KONTROL!C[1],0)"

    VeriSyf.Range("A2", "A" & SonSat).Value = VeriSyf.Range("A2", "A" & SonSat).Value

    VeriSyf.Range("A2:N" & SonSat).Sort Key1:=VeriSyf.[A2], Order1:=xlAscending, Key2:=VeriSyf.[B2], ORder2:=xlAscending

    VeriSyf.Range("A2").Value = "1"

    VeriSyf.Range("A2", "A" & SonSat).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, Step:=1, Trend:=False

    Application.ScreenUpdating = True

End Sub



Sub Buro_Sirala()

    Dim VeriSyf, SonSat

    Set VeriSyf = Sheets("VERİ")

    SonSat = VeriSyf.Cells(Rows.Count, 2).End(3).Row

    If SonSat < 3 Then Exit Sub

    Rutbe_Sicil_Sirala

    Application.ScreenUpdating = False

    VeriSyf.Range("A2", "A" & SonSat).FormulaR1C1 = "=MATCH(RC[5],KONTROL!C,0)"

    VeriSyf.Range("A2", "A" & SonSat).Value = VeriSyf.Range("A2", "A" & SonSat).Value

    VeriSyf.Range("A2:N" & SonSat).Sort Key1:=VeriSyf.[A2], Order1:=xlAscending

    VeriSyf.Range("A2").Value = "1"

    VeriSyf.Range("A2", "A" & SonSat).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, Step:=1, Trend:=False

    Application.ScreenUpdating = True

End Sub



Sub Isim_A_Z_sirala()

    Dim VeriSyf, SonSat

    Set VeriSyf = Sheets("VERİ")

    SonSat = VeriSyf.Cells(Rows.Count, 2).End(3).Row

    If SonSat < 3 Then Exit Sub

    Application.ScreenUpdating = False

    VeriSyf.Range("B2:N" & SonSat).Sort Key1:=VeriSyf.[C2], Order1:=xlAscending

    Application.ScreenUpdating = True

End Sub



Sub Isim_Z_A_sirala()

    Dim VeriSyf, SonSat

    Set VeriSyf = Sheets("VERİ")

    SonSat = VeriSyf.Cells(Rows.Count, 2).End(3).Row

    If SonSat < 3 Then Exit Sub

    Application.ScreenUpdating = False

    VeriSyf.Range("B2:N" & SonSat).Sort Key1:=VeriSyf.[C2], Order1:=xlDescending

    Application.ScreenUpdating = True

End Sub