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.
afatsum75, 27-05-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 19/02/2016, 16:11, Düzenleyen: afatsum75.