Hesap kodlarının ayrı sayfalarda gösterilmesi

[1903emre34@gmail.com]

Merhaba,

Ana hesap sütündaki, 100,102,320 hesapların ayrı sayfada gösterilmesi, sayfa2 aktarılırken DEVİR ve BORÇ toplamı alıp,
kumüle bakiye yer alan eksi rakamların sayfa2'de ALACAK kısmına ve yanında 0,00 olacak şekilde nasıl kod oluşturabiliriz? (istenen sayfa2'de yapılmıştır)

 

[Asri]

Ben birşey anlamadım

Benim örnekten gördüğüm ana hesap karşısındaki kümüle kolonunda rakam + ise sayfa2 de borç a - ise alacak a yazılmış.

Devir+borç - lerin toplamı gibi şeyler nerede nasıl?

 

[1903emre34@gmail.com]

Dosyayı güncelledim;


Devirdeki sayıların (kırmızı çizgi) ve borç bölümündeki toplamı alınması bunun sonucunda alacakdaki rakamlarındakı çıkarılması (mavi çizgi)

yukarıdaki yapılan işlem sonucunda eksi rakam çıkarsa sayfa2'de alacak sutüna yerleştirilmesi ve yanlarında 0,00 olacak şekilde,

 

[Asri]

Kontrol ediniz.

Sub hesapaktar()
   Set shhesap = Sheets("Sayfa1")
   Set shsonuc = Sheets("Sayfa2")
   satir = 4
   sonsatir = shhesap.Cells(Rows.Count, "A").End(3).Row
   sonucsonsatir = shsonuc.Cells(Rows.Count, "B").End(3).Row
   If sonucsonsatir > 4 Then shsonuc.Range("B5:E" & sonucsonsatir).ClearContents
   
   For i = 6 To sonsatir
     hesap = shhesap.Cells(i, "A").Value
     If shhesap.Cells(i, "B").Value <> "" Then kisametin = shhesap.Cells(i, "B").Value
     If Len(hesap) = 3 Then
        satir = satir + 1
        tutar = (shhesap.Cells(i, "C").Value + shhesap.Cells(i, "D").Value) - shhesap.Cells(i, "E").Value
        shsonuc.Cells(satir, "B").Value = hesap
        shsonuc.Cells(satir, "C").Value = kisametin
        
        If tutar < 0 Then
           shsonuc.Cells(satir, "E").Value = tutar
           shsonuc.Cells(satir, "D").Value = 0
        Else
           shsonuc.Cells(satir, "D").Value = tutar
           shsonuc.Cells(satir, "E").Value = 0
        End If
     End If
     
   Next i
End Sub

 

[1903emre34@gmail.com]

Teşekkürler,

İyi çalışmalar