(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..