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ı: 2)
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 Adlı Kullanıcıdan Alıntı: Ç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