Berduş Hocam Zafet Hocam görevde olduğum için şu an malesef dosyaları ve kodları kontrol edemedim .
Ama projenin devamı için Uygun olanı yarın yazayım. Zafer Hocam siz dosyaya yabancı değilsiniz zaten . Comment Açıklama bu dosyada önemli çünkü açıklamalardan Personel puantaj karnesi yapacam aylık ve yıllık
Yine het ay tüm Personel için açıklama bilgisini çekip toplu liste yapmam gerekiyor emeğinize sağlık
A Sayfasında Olan Veri B Sayfasında Varsa A Sayfasındaki İlgili Satırı Silme
En alta imza blogu açılacak Hocam
(20/11/2020, 00:57)hayalibey yazdı: Berduş Hocam Zafet Hocam görevde olduğum için şu an malesef dosyaları ve kodları kontrol edemedim .Tamam abey.Sicil numaralarının bazısının başında boşluklar var dikkat edin.
Ama projenin devamı için Uygun olanı yarın yazayım. Zafer Hocam siz dosyaya yabancı değilsiniz zaten . Comment Açıklama bu dosyada önemli çünkü açıklamalardan Personel puantaj karnesi yapacam aylık ve yıllık
Yine het ay tüm Personel için açıklama bilgisini çekip toplu liste yapmam gerekiyor emeğinize sağlık
(20/11/2020, 01:15)hayalibey yazdı: En alta imza blogu açılacak HocamSiz dosyaları deneyin doğru olunca yaparız.Bir sayfaya imza şablonunu ekleyin.Koda eklenir.
Zaten son satır bulunuyor.İmza kısmınıda son satırın iki alt satırına kod ile getiririz zor değil.
Ben yapacaktım bazılarında formüller vardı yapmadım bu yüzden.
Son dosya ekte Aj sütununa formüllü olarak aktarma yaptırdım.
Zafer Hocam su sorunlar oluştu
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
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
Konuyu Okuyanlar: 12 Ziyaretçi