Ocak adlı sayfada yapılan kontrolde
1. Rütbe sıralaması yapmıyor. Bende rütbe için benzer bir kod var ekliyorum.
2. Otomotik sıra numarası vermiyor
3.Sayfa yapısını sayfaya sığacak şekilde ayarladim
Yeşil ve mavi kısımları olması gerektiği gibi boyutlandirdim
Mavi 30 yazan kısımlar personel varsa gelsin personel yoksa gelmesin
4. Üsteki yeşil kısıma tıklayınca hata mesajı veriyor
5. En önemlisi kontrol sayfası kosul1 koşul 2 koşul 3 e elle veri girdiğimde hata mesajı veriyor ve sayfayı hazırlamıyor ama sizin hazırladığınız dosyaya dokunmazsam sayfayı hazırla diyince çalışıyor. Veri giriş şeklimde hata mı var elle sicil yazıyorum sayfayı hazırla diyorum hazırlamıyor
Kod:
Sub Rutbe_Sicil_Sirala()
Dim VeriSyf, sonsat
Set VeriSyf = Sheets("OCAK")
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:AK" & 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