(16/02/2016, 19:41)afatsum75 yazdı: kendi programımı kontrol ettim.Bir hata bulamadım.Dediğiniz hatayı gösteren programı gönderin bakayım.
#30 da bahsettiğiniz dosyada başlama ayrılma alanları boş olduğu için bir şey yapamadım.Gönderdiğim program üzerinden devam edersek benim için daha iyi olur.

Abim #30 daki dosya benim istedigim hali aldi. Indirip bakarsan harika oldu ancak sadece kodlardan izinliler kismindaki f sutunundakilerin icmal kisminda f sutununa cikmasini istemiyorum.. Hangi kodlari silecegimi bilmiyorum bakarsan sevinirim..

en son size gönderdiğim programda nasıl bir hata oldu cevap vermediniz.Hatalı haliyle gönderin dedim.Buna da cevap vermediniz.

Sizin #30 da gönderdiğiniz programda inceledim.Bahsettiğiniz hatalar

If ilkt = xa Or sont = xa Then

    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.Cells(son, 6) = n.Cells(mv, 6)

bölümünü şeklinde düzeltirseniz mazeret bölümünü almaz.

ikinci olarak ta durumu bölümünde oluşan 3 .Aslında program çalıştığında durumu bölümünü doğru yazıyor.Fakat komut bölümünde 

15:

vv = vv + 1
i.Cells(son, 5) = vv

satırlarına geldiğinde durumu kısmına önce 1 sonra 2 ve son olarak da 3 yazıyor.

Size gönderdiğim en son programı hatalı çalışan haliyle gönderirseniz sevinirim.Kontrol ettim bir hata ile karşılaşmadım.Neresinde hata var...

Abim senin dosyadaki hata aynen şu;

run time error '13':
type mismatch

Verdiğin kodları düzenledim f sutünu artık çıkmıyor. Tesekkur ederım..
#30 daki dosya da
29 çeken aylarda ve 31 çeken aylarda icmalde günler kısmına manuel olarak 1 eklediğimde veya sutundaki 1 i sildiğimde otomatik toplam kısmını değiştirmesi için kodların düzenlenmesi gerekiyor..

Kodlara nasıl bir düzenleme yapabiliriz.. Dosya yapısını formülleri bozmadan..

dosyada yazan hatayı istemedim. hatalı haliyle dosyayı gönderir misiniz?

29 çeken aylarda ve 31 çeken aylarda icmalde günler kısmına manuel olarak 1 eklediğimde veya sutundaki 1 i sildiğimde otomatik toplam kısmını değiştirmesi için kodların düzenlenmesi gerekiyor..



dediğinizden bir şey anlamadım

Abi senin hata veren dosya senin yükledigin dosya..

Benim #30 daki dosyamda yapmak istedigim ise tam olarak su..

Icmal sayfasindaki gun sutunlari 31 sutun..
Suan fakat ayina gore 29, 30 veya 31 uzerinden centik hesaplamasi yapiyor... Ve toplam kismina topluyor..

Mesela subat ayinda 29 centik uzerinden program hesap yapiyor, ben ayin 30 uncu ve 31 inci gunune manuel olarak 1 yazdigim zaman toplami otomatik yapsin.. 29 olan toplam 30 olsun.. 31 ceken aylarda 1 yazan bi gunun centigini kaldirinca otomatik olarak yoplami 30 a dusursun..

örnek;
1  1  1  1  1  1  1  1  1  1 (10)
1  1  1  1  1  1  1  1  1  1  1  (11)

sütunlara manuel olarak 1 yazıp veya sildiğimde genel toplamı düzenlemesi..

programın komut bölümünde aşağıdaki ifadeyi

'i.Cells(son, "AL") = WorksheetFunction.Sum(i.Range("G" & son & ".AK" & son))

 başına tırnak işareti yazarak iptal edin.Ayrıca 
If a > 5 Then i.Range("A6:AL" & a).ClearContents kısmını If a > 5 Then i.Range("A6:AK" & a).ClearContents olarak değiştirin.

İCMAL bölümünde de AL6 hücresine =toplam(g6:ak6) yazarsanız hücrelere yazdığınız 1 leri otomatik toplama yapacaktır.

#30 örneğinde ayrılma başlama hücreleri doldurulmuş olarak göndermenizi istiyorum.