+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Listbox da Tıklamayı Engelleme (/konu-listbox-da-tiklamayi-engelleme.html)
Listbox da Tıklamayı Engelleme - m_demir - 28/06/2020
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ı.
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 SubRE: Listbox da Tıklamayı Engelleme - feraz - 28/06/2020
Resimdeki boyalı kodları ilgili koda ekleyiniz.
RE: Listbox da Tıklamayı Engelleme - m_demir - 28/06/2020
Çok, çok teşekkürler Hocam ellerinize sağlık. Tam istediğim gibi oldu.
Hocam konuyu taşıyabilirsiniz. Saygılar.
RE: Listbox da Tıklamayı Engelleme - feraz - 28/06/2020
(28/06/2020, 16:28)m_demir yazdı: Çok, çok teşekkürler Hocam ellerinize sağlık. Tam istediğim gibi oldu.Rica ederim.
Hocam konuyu taşıyabilirsiniz. Saygılar.