Aşağıdaki kodlarla ListBox da birer satır ara ile iki satır sayfa alt toplamlarını alıyorum. Bu iki satır alt toplamda tıklamayı engelleyebilir miyiz. TOPLAMLAR ve BORÇLUYUZ veya ALACAKLIYIZ satırları.
Kod:
Sub alttoplamAl()
With ActiveSheet
'.Unprotect 4455
son = .Range("A" & Rows.Count).End(3).Row + 1
.Range("A" & son & ":K" & 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("G" & son) = WorksheetFunction.Sum(.Range("G7:G65536"))
.Range("I" & son) = WorksheetFunction.Sum(.Range("I7:I65536"))
.Range("J" & son) = WorksheetFunction.Sum(.Range("J7:J65536"))
.Range("K" & son) = WorksheetFunction.Sum(.Range("K7:K65536"))
.Range("K" & son + 2).Value = Range("K" & son).Value
If .Range("K" & son + 2).Value > 0 Then .Range("J" & son + 2).Value = "ALACAKLIYIZ:"
If .Range("K" & son + 2).Value < 0 Then .Range("J" & son + 2).Value = "BORÇLUYUZ:"
.Range("D7:L" & Rows.Count).Interior.ColorIndex = xlNone
.Range("D" & son & ":L" & son).Interior.ColorIndex = 19
.Range("D" & son).HorizontalAlignment = xlRight
.Range("D7:K" & Rows.Count).Font.Bold = False
.Range("D" & son & ":K" & son).Font.Bold = True
'.Protect 4455
End With
End Sub
