Skip to main content

AccessTr.neT


Rütbe Ve Sicile Göre Sıralama Yapmak

Rütbe Ve Sicile Göre Sıralama Yapmak

#7
Sorununuz çözülmüş üstad Img-grin
Cevapla
#8
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
Cevapla
#9
Sorun bu kodlarla çözülmüştür.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task