+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Personel izin ve mazeret tarihleri icmali.. (/konu-personel-izin-ve-mazeret-tarihleri-icmali.html)
Cvp: Personel izin ve mazeret tarihleri icmali.. - afatsum75 - 25/02/2016
Sub sade()
i.Cells(son, 1) = WorksheetFunction.Max(i.Range("A2:A" & son)) + 1
i.Cells(son, 2) = n.Cells(mv, 2)
i.Cells(son, 3) = n.Cells(mv, 3)
i.Cells(son, 4) = n.Cells(mv, 4)
i.Cells(son, 5) = n.Cells(mv, 5)
i.Range(i.Cells(son, 7), i.Cells(son, sgun + 6)) = 1
' i.Cells(son, "AL") = WorksheetFunction.Sum(i.Range("G" & son & ".AK" & son))
End Sub
yukarıdaki düzeltmeyi yapın.
Cvp: Personel izin ve mazeret tarihleri icmali.. - muzo696 - 25/02/2016
(25/02/2016, 11:36)afatsum75 yazdı: Sub sade() i.Cells(son, 1) = WorksheetFunction.Max(i.Range("A2:A" & son)) + 1 i.Cells(son, 2) = n.Cells(mv, 2) i.Cells(son, 3) = n.Cells(mv, 3) i.Cells(son, 4) = n.Cells(mv, 4) i.Cells(son, 5) = n.Cells(mv, 5) i.Range(i.Cells(son, 7), i.Cells(son, sgun + 6)) = 1 ' i.Cells(son, "AL") = WorksheetFunction.Sum(i.Range("G" & son & ".AK" & son)) End Sub yukarıdaki düzeltmeyi yapın.
evet abım %85 duzledı sadece araya 3,4 gibi rakamlar atıyor neden ki acaba..
Cvp: Personel izin ve mazeret tarihleri icmali.. - afatsum75 - 26/02/2016
#41 nolu dosyada sub sade() makrosundaki
i.Cells(son, 2) = n.Cells(mv, 2)
i.Cells(son, 3) = n.Cells(mv, 3)
i.Cells(son, 4) = n.Cells(mv, 4)
satırından sonra
i.Cells(son, 5) = n.Cells(mv, 5)
satırını ekledim ve çalıştırdığımda dediğiniz sayılar çıkmadı.Siz dosyanızı değiştirmiş olabilirsiniz.Çalıştığınız dosyayı bir tarafa bırakın.#41 nolu dosyayı dikkate alın.#41 nolu dosyadan başka bir dosyanız olmasın.
Cvp: Personel izin ve mazeret tarihleri icmali.. - muzo696 - 27/02/2016
(26/02/2016, 09:58)afatsum75 yazdı: #41 nolu dosyada sub sade() makrosundaki i.Cells(son, 2) = n.Cells(mv, 2) i.Cells(son, 3) = n.Cells(mv, 3) i.Cells(son, 4) = n.Cells(mv, 4) satırından sonra i.Cells(son, 5) = n.Cells(mv, 5) satırını ekledim ve çalıştırdığımda dediğiniz sayılar çıkmadı.Siz dosyanızı değiştirmiş olabilirsiniz.Çalıştığınız dosyayı bir tarafa bırakın.#41 nolu dosyayı dikkate alın.#41 nolu dosyadan başka bir dosyanız olmasın.
Sub sade()
i.Cells(son, 1) = WorksheetFunction.Max(i.Range("A2:A" & son)) + 1
i.Cells(son, 2) = n.Cells(mv, 2)
i.Cells(son, 3) = n.Cells(mv, 3)
i.Cells(son, 4) = n.Cells(mv, 4)
i.Cells(son, 5) = n.Cells(mv, 5)
i.Range(i.Cells(son, 7), i.Cells(son, sgun + 6)) = 1
' i.Cells(son, "AL") = WorksheetFunction.Sum(i.Range("G" & son & ".AK" & son))
End Sub
bendeki kodlar bu şekilde..
afatsum75 hocam sadece ıkı hata kaldı ama bulamadım kodlarda;
şubat ayına cıft mazeret gırdım 2. gırdıgım mazeret mart ayına sarktıgı ıcın 29 gun uzerınden hesaplaması gereken ıcmalı 31 gun uzerınden hesaplıyor.. yanı kısaca ayların 29 mu 30 mu 31 mı cektıgı ıkıncı mazeretlere tanıtılmamıs galıba..
ıkıncı sorun ıse durumu kısmına alakasız 3,4 rakamları cıkıyor aktarmada sorun var.. ama cok nadir..
Cvp: Personel izin ve mazeret tarihleri icmali.. - afatsum75 - 28/02/2016
sayın muzo696 üzerinde çalıştığınız #41 nolu dosyayı ayrılma ve başlama bilgilerini doldurarak yeni bir soru yazıp siteye gönderin.#41 nolu dosya üzerinden sorunuza çözüm bulalım.Herşeyi sil baştan yapalım.Sıkıntılı olan yerleri daha önce yaptığınız gibi dosya üzerinde gösterin.
Cvp: Personel izin ve mazeret tarihleri icmali.. - muzo696 - 28/02/2016
DOSYAYI HAZIRLADIM AMA EKLEYEMEDIM..