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.

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

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

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

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.

DOSYAYI HAZIRLADIM AMA EKLEYEMEDIM..