Yevmiye Defteri

[igultekin2000]

iyi akşamlar; yevmiye defterini raporlamaya bilmem için belli şekle gelmesi gerekiyor. örnek kaydı yükledim, yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim. 100, 120 ... ana hesapların kümülatif toplamı Borçta veya Alacakta ise altındaki alt hesaplarında borcuna ve alacağına gelmesi şeklinde

 

[Asri]

Bu şekilde deneyiniz.

Sub yevmiye_duzenle()
   sonsatir = Cells(Rows.Count, "B").End(3).Row + 1
   Range("F5:M" & sonsatir).ClearContents
   
   satir = 4
   For i = 4 To sonsatir
     maddeno = Cells(i, "A").Value
      tarihaciklama = Cells(i, "B").Value
     If Cells(i, "B").Value = "T O P L A M" Then Exit Sub


      If Left(maddeno, 1) = "-" Then
        madde = Replace(Replace(maddeno, " ", ""), "-", "")
        tarih = sayiayir(tarihaciklama)
        althesap = ""
        anakod = ""
        GoTo son
     End If
     
     If InStr(maddeno, " ") > 0 Then
        althesap = maddeno
        GoTo son
     End If
     
     If 0 + maddeno > 0 Then
        anakod = maddeno
        althesap = ""
     End If
     
son:
     If althesap <> "" And maddeno = "" Then
        satir = satir + 1
        aciklama = Cells(i, "B").Value
        borc = Cells(i, "C").Value
        alacak = Cells(i, "D").Value
        
        Cells(satir, "F").Value = madde
        Cells(satir, "G").Value = tarih
        Cells(satir, "H").Value = anakod
        Cells(satir, "I").Value = althesap
        Cells(satir, "J").Value = tarihaciklama
        Cells(satir, "K").Value = aciklama
        Cells(satir, "L").Value = borc
        Cells(satir, "M").Value = alacak
        borc = ""
        alacak = ""
        aciklama = ""
        tarihaciklama = ""
     End If
   Next i
End Sub

Function sayiayir(sadecesayistr)
  liste = "0123456789."
  For k = 1 To Len(sadecesayistr)
    harf = Mid(sadecesayistr, k, 1)
    If InStr(liste, harf) > 0 Then
       sayi = sayi & harf
    End If
  Next k
  sayiayir = sayi
End Function

 

[igultekin2000]

mümkünse bir ilave

merhaba; teşekkürler kod sorunsuz çalışıyor, maalesef bir sorunu eksik iletmişim. ana hesabın karşısında kümülatif toplam oluyor, o toplama göre genel toplam borçta ve alacakta ise ona göre altında altındaki hesap tutarlarının da borç veya alacağa gitmesi şeklinde güncellenmesi mümkünse çok iyi olacak. şimdiden teşekkürler.