ListBoxda Alttoplamları Göstermek

[yavuz829]

Merhaba Arkadaşlar.

Eklediğim kod ile sayfa alt toplamlarını ListBoxda gösteriyorum.

Benim istediğim Excel sayfasında alttoplamların altına L alttoplamın altına L alttoplamın aynısını gösyersin. L alttoplam büyük sıfır ise K hüzresine BİZ ALACAKLIYIZ. L alttoplamdaki rakam küçük sıfır ise BİZ BORÇLUYUZ yazısını yazsın ve ListBoxda göstersin.

Örneğin. L hücresi alttoplamı 500,00
L alttoplamı hücresinin altına tekrar 500,00 yanındaki K hücresine BİZ ALACAKLIYIZ.

L hücresi alttoplamı -500,00
L alttoplamı hücresinin altına tekrar -500,00 yanındaki K hücresine BİZ BORÇLUYUZ.

Sub alttoplamAl()
  
    With ActiveSheet
        '.Unprotect 4455
        son = .Range("A" & Rows.Count).End(3).Row + 1
        .Range("A" & son & ":L" & Rows.Count).ClearContents
        .Range("D" & son + 1) = "TOPLAMLAR"
        son = .Range("D" & Rows.Count).End(3).Row
        .Range("E" & son) = WorksheetFunction.Sum(.Range("E7:E65536"))
        .Range("F" & son) = WorksheetFunction.Sum(.Range("F7:F65536"))
        .Range("H" & son) = WorksheetFunction.Sum(.Range("H7:H65536"))
        .Range("J" & son) = WorksheetFunction.Sum(.Range("J7:J65536"))
        .Range("K" & son) = WorksheetFunction.Sum(.Range("K7:K65536"))
        .Range("L" & son) = WorksheetFunction.Sum(.Range("L7:L65536"))
        .Range("D7:L" & Rows.Count).Interior.ColorIndex = xlNone
        .Range("D" & son & ":L" & son).Interior.ColorIndex = 4
        .Range("D" & son).HorizontalAlignment = xlRight
        .Range("D7:L" & Rows.Count).Font.Bold = False
        .Range("D" & son & ":L" & son).Font.Bold = True
        '.Protect 4455
    End With
 
End Sub

 

[Korhan Ayhan]

Örnek dosya paylaşabilir misiniz?