Skip to main content

AccessTr.neT


A Sayfasında Olan Veri B Sayfasında Varsa A Sayfasındaki İlgili Satırı Silme

A Sayfasında Olan Veri B Sayfasında Varsa A Sayfasındaki İlgili Satırı Silme

#31
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
Cevapla
#32
En alta imza blogu açılacak Hocam
Cevapla
#33
(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 .

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
Tamam abey.Sicil numaralarının bazısının başında boşluklar var dikkat edin.

(20/11/2020, 01:15)hayalibey yazdı: En alta imza blogu açılacak Hocam
Siz 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.
Cevapla
#34
Son dosya ekte Aj sütununa formüllü olarak aktarma yaptırdım.
.rar Puantaj_xxx3.rar (Dosya Boyutu: 318,55 KB | İndirme Sayısı: 3)
Cevapla
#35
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


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

.rar Puantaj YILDIZ.RAR (Dosya Boyutu: 407,01 KB | İndirme Sayısı: 4)
Cevapla
#36
(20/11/2020, 13:34)hayalibey yazdı: 2. Otomotik sıra numarası vermiyor
daha önceden Otomotik sıra numarası vermekten bahsetmemiştiniz
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task