28/06/2020, 13:43
m_demir
Merhaba Arkadaşlar.
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ı.
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