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
Rütbe Ve Sicile Göre Sıralama Yapmak
Bu Konudaki Yorumlar |
Rütbe Ve Sicile Göre Sıralama Yapmak - Yazar: hayalibey - 15/01/2020, 20:32
Cvp: Rütbe Ve Sicile Göre Sıralama Yapmak - Yazar: feraz - 16/01/2020, 00:28
Cvp: Rütbe Ve Sicile Göre Sıralama Yapmak - Yazar: feraz - 16/01/2020, 00:34
Cvp: Rütbe Ve Sicile Göre Sıralama Yapmak - Yazar: feraz - 16/01/2020, 00:40
Cvp: Rütbe Ve Sicile Göre Sıralama Yapmak - Yazar: feraz - 16/01/2020, 16:45
Cvp: Rütbe Ve Sicile Göre Sıralama Yapmak - Yazar: hayalibey - 16/01/2020, 19:43
Cvp: Rütbe Ve Sicile Göre Sıralama Yapmak - Yazar: feraz - 17/01/2020, 02:04
Cvp: Rütbe Ve Sicile Göre Sıralama Yapmak - Yazar: hayalibey - 19/01/2020, 15:13
Cvp: Rütbe Ve Sicile Göre Sıralama Yapmak - Yazar: hayalibey - 19/01/2020, 15:13
|
Konuyu Okuyanlar: 1 Ziyaretçi