Skip to main content

AccessTr.neT


Listbox da Tıklamayı Engelleme

Listbox da Tıklamayı Engelleme

Çözüldü #1
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 Sub

.rar Per-Çiz-6.rar (Dosya Boyutu: 256,78 KB | İndirme Sayısı: 3)
Son Düzenleme: 28/06/2020, 13:52, Düzenleyen: m_demir.
Cevapla
#2
Resimdeki boyalı kodları ilgili koda ekleyiniz.

[Resim: do.php?img=10381]
Cevapla
#3
Çok, çok teşekkürler Hocam ellerinize sağlık. Tam istediğim gibi oldu.

Hocam konuyu taşıyabilirsiniz. Saygılar.
Cevapla
#4
(28/06/2020, 16:28)m_demir yazdı: Çok, çok teşekkürler Hocam ellerinize sağlık. Tam istediğim gibi oldu.

Hocam konuyu taşıyabilirsiniz. Saygılar.
Rica ederim.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task