Çözüldü İşletme Defteri Devreden Tutar

[LİNDA]

Merhaba site dostlarının yardımıyla yapmaya çalıştığım işletme defterimde şu sorunla karşılaştım.Kullanılan kodlarda GELİR 2024 sayfasındaki yazdır düğmesi ile her 35 satırda bir önceki sayfanın F sütununu devreden bakiye satırı olarak ekliyor ve sonra yeni sayfanın verileri geliyor..Ama 69,70,71 sayfada ise devrenden bakiye satırı eklenmiyor.Gelir ve giderin kaç sayfa veri içereceğini önceden bilemiyorum Sorunun nerede olduğunu bulamadım.Aynı şekilde 2024 işletme sayfasında ise benzer kodları kullandım
Sub Yazdır()
Dim ws As Worksheet, PrntWs As Worksheet
Dim lastRow As Long, PageBreak As Long, i As Long, RowCount As Long, LTData As Long

Set ws = ActiveSheet
ws.Copy After:=ws
Set PrntWs = ActiveSheet

PrntWs.PageSetup.PrintArea = ""

PrntWs.PageSetup.PrintTitleRows = "$1:$3" 'Sayfa başlıkları ilk 3 satır olacak şekilde ayarlandı
lastRow = PrntWs.Cells(PrntWs.Rows.Count, "B").End(xlUp).Row 'Son işlenen tarih satırını bul
LTData = PrntWs.Cells(PrntWs.Rows.Count, "A").End(xlUp).Row 'A sütununda sayfa sonunu bul
If LTData > lastRow Then
Range("A" & lastRow + 1 & ":A" & LTData - 1).EntireRow.Delete 'B'ye göre gereksiz A satırlarını sayfasonuna kadar sil
End If
RowCount = 41 'Sayfa başına 41 satır belirle
toplam = lastRow + Val(lastRow / RowCount)
For i = RowCount To toplam Step RowCount

'Sayfa üzerinde her 41 satırda bir PageBreak ekle
PrntWs.Rows(i + 1).Insert Shift:=xlDown 'PageBreak öncesi devreden bakiye satırı ekle
PrntWs.HPageBreaks.Add Before:=PrntWs.Rows(i + 1) 'PageBreak ekle
lastRow = lastRow + 1 'Devreden bakiye için eklenen satır nedeni ile LastRow'u 1 arttır
PageBreak = i + 1
PrntWs.Cells(PageBreak, "d").Value = "ÖNCEKİ SAYFADAN DEVREDEN "
PrntWs.Cells(PageBreak, "d").Font.Color = vbRed
PrntWs.Cells(PageBreak, "d").Font.Bold = True

PrntWs.Cells(PageBreak, "k").Value = "ÖNCEKİ SAYFADAN DEVREDEN "
PrntWs.Cells(PageBreak, "k").Font.Color = vbRed
PrntWs.Cells(PageBreak, "k").Font.Bold = True

'F hücresine bir önceki sayfanın son F değerini devreden bakiye satırına yaz
If PageBreak > 1 Then
PrntWs.Cells(PageBreak, "f").Value = PrntWs.Cells(PageBreak - 1, "f").Value
PrntWs.Cells(PageBreak, "f").Font.Color = vbRed
PrntWs.Cells(PageBreak, "f").Font.Bold = True

PrntWs.Cells(PageBreak, "m").Value = PrntWs.Cells(PageBreak - 1, "m").Value
PrntWs.Cells(PageBreak, "m").Font.Color = vbRed
PrntWs.Cells(PageBreak, "m").Font.Bold = True
End If
Next i

lastRow = PrntWs.Cells(PrntWs.Rows.Count, "E").End(xlUp).Row 'Düzenlemeye göre son satırı yeniden bul

PrntWs.PageSetup.PrintArea = "$A$1:$m" & lastRow 'A:m sütunları arasını yazdırm alanı olarak belirle
PrntWs.PrintPreview 'Düzenlenen sayfayı yazdır

Application.DisplayAlerts = False
PrntWs.Delete 'Print düzenlemesi için oluşturulan kopya sayfayı sil
Application.DisplayAlerts = True
Cancel = False
End Sub




yine aynı sorun oluşuyor son 3-4 sayfada.Ve sayfa sonları açık kalıyor. Eklediğim resimdeki G1 gibi olması gerekiyor. Hatamı bulamadım yardımcı olabilecek

 

[Alicimri]

Siz bu defteri örnek dosyanızdaki gibi alt alta işleyip, daha sonra mı üst başlıkları ve alttaki sayfa sonunu eklemek istiyorsunuz.
veriler girildikçe biçimlendirme yapılsa olur mu?

 

[LİNDA]

Sayfa toplamları eklenmiş hali.

Çok teşekkür ederim. Dosyayı incelediğimde PDF sayfasında şu hatalarla karşılaştım .Ve resimler ekliyorum .
PDF Gider sayfası 722. satırda son işlem olmasına rağmen sayfa toplamı almıyor. Devreden bakiye olarak da farklı rakam var nerden geldiğini bulamadım.
Gelir sayfası ise 2380. Satırda son işlem var ve o sayfa 81 satırdan oluşmuş Gider bölümündeki Sütunun toplamı da yanlış oluyor dolayısıyla son sayfa işlemlerinde bu hataları alıyorum. Önceki dosyada Gider ve gelirin son sayfasında istenen şekilde görünüyordu.Giderilebilirse çok iyi olur.

 

[LİNDA]

Siz bu defteri örnek dosyanızdaki gibi alt alta işleyip, daha sonra mı üst başlıkları ve alttaki sayfa sonunu eklemek istiyorsunuz.
veriler girildikçe biçimlendirme yapılsa olur mu?

Dosyamda Gelir2024- GİDER2024 sayfalarına veriler banka ekstresinden otomatik olarak aldırıyorum .(bu dosyada yok).İşletme defterindeki alt ve üst başlıklar muhasebede kullanılan işletme defteri şablonu .Noterden onaylı A4 kağıtlarına çıktı alınarak arşivleniyor.. Yanlış yazınca tekrar yazdırma gibi durum söz konusu değil. O yüzden hatasız çıktı almam gerekiyor.

 

[azraep]

2300 nolu kayıt öncesi bende doğru en son sayfada ki hata da deftere sayfasından formülle gelen sayfa toplamı onu iptal edip düzeltmeye çalışacağım. yeni dosyayı en kısa sürede eklereyim

 

[LİNDA]

2300 nolu kayıt öncesi bende doğru en son sayfada ki hata da deftere sayfasından formülle gelen sayfa toplamı onu iptal edip düzeltmeye çalışacağım. yeni dosyayı en kısa sürede eklereyim

2300 satıra kadar devreden bakiye toplamlarını alıyor doğru. Ama gider bölümünde (19. sayfa) sayfa son genel toplamı F sütunu 2.251,943.92 olmalı ve sonraki sayfalara devreden bakiyede bu olmalı çünkü son işlem sonrası oluşan genel bakiye bu (gider için) (resim s19) ve sonraki sayfadaki (resim s20) gider bölümündeki devreden bakiye 2.251,943.92 olarak gelir sayfasındaki son işleme kadar devam etmeli. Sizi uğratıyorum ama çözülebilirse sevinirim

 

[azraep]

Asıl sorun eksik sayfa sayısı hesaplatılıyor. örnek: 2500 de biten sayfayı 2444 gibi bulduğu için sonrasında işlem yapmıyor. onu düzelttim ama bu seferde toplamları yazmadı . düzeltmeye çalışıyorum. biter bitmez ekleyecem

 

[azraep]

kodları güncelledim ama gene de kontrol edin gözden kaçan bir şey her zaman olabilir. Kodlarda açıklama ekledim lütfen onlara da bakın. en son sayfanı toplam alınmasıyla ilgili. Kolay gelsin.

 

[Alicimri]

Dosyamda Gelir2024- GİDER2024 sayfalarına veriler banka ekstresinden otomatik olarak aldırıyorum

Bu ekstresinin küçük bir örneğini eklerseniz, direkt oradan işletme defteri oluşturula bilinir.

 

[LİNDA]

kodları güncelledim ama gene de kontrol edin gözden kaçan bir şey her zaman olabilir. Kodlarda açıklama ekledim lütfen onlara da bakın. en son sayfanı toplam alınmasıyla ilgili. Kolay gelsin.

Emeğiniz için çok teşekkür ederim dosyayı mevcut kodlarla denediğimde şu sonuçlara ulaştım.1-Gider bölümündeki son bakiyeyi sayfa toplamı bölümünde gösterilmediğini gördüm (resim g2).2-Ama sonraki sayfaya geçildiğinde önceki sayfadan devrenden satırda işlenmiş .Bu işlem tamam istenen şekilde.Boş sayfalarda da sayfa toplamı olan satırda gösterilebilirse süper olur.(resim g5).Yani son sayfadaki görüntü gibi (resim g3)Dolayısıyla son sayfa ulaşmak istediğim sonuç gibi olmuş .Sayfa sonu toplamları ve banka da olan bakiye görünüyor. Harika (resim g3) 3- Kodlardaki uyarılara göre işlem yaptığımda ise (diğer bölümün yerine bu bölümü kullandım :' -- Sayfaları Toplayıp bakiyeyi yazacakcak bunu kulanın ek olarak
' Aşağıda yazdığım Son Sayfa Toplamları kodunu kullanın
' wsYazdir.Range("E" & KayitSatir & ":F" & KayitSatir).Value = Empty
' wsYazdir.Range("L" & KayitSatir & ":M" & KayitSatir).Value = Empty
ve en son sayfa sonunda sayfa sonu toplamları ve banka bakiyesi görünmüyor.(resim g4)

 

[LİNDA]

Bu ekstresinin küçük bir örneğini eklerseniz, direkt oradan işletme defteri oluşturula bilinir.

Ekstre örneği buradaki giderleri (- değerleri) gider sayfasına gelirleri gelir sayfasına aldırıyorum. Tek seferde yapılabilirse güzel olur

 

[azraep]

sayfa toplamına genel toplam eklendi

 

[LİNDA]

sayfa toplamına genel toplam eklendi

Çok Çok teşekkür ederim.Bütün taşlar yerine oturdu .Muhteşem oldu çok sevindim. Sizi çok uğraştırdım lütfen hakkınızı helal edin.Minnettarım İyiki var excelçözüm ailesi

 

[azraep]

Çok Çok teşekkür ederim.Bütün taşlar yerine oturdu .Muhteşem oldu çok sevindim. Sizi çok uğraştırdım lütfen hakkınızı helal edin.Minnettarım İyiki var excelçözüm ailesi

banka extresi içende ekleme yaptım bunu da denerseniz işinize yarar umarayım
extrenizin içeriğini banka sayfasına kopyalamanız gerekli açıklama ekledim

 

[Alicimri]

Biraz geciktim, alternatif olsun.
İki dosyada aynı klasörde bulunsun, HAXZRLA düğmesine tıklayın, kontrol edin, YAZDIR düğmesine tıklayın.