Skip to main content

AccessTr.neT


Etopla İşlemleri

Etopla İşlemleri

Çözüldü #1
Merhaba Arkadaşlar

Aşağıdaki kodlar ile ETOPLAMA, Toplama ve çıkarma işlemlerini yapıyorum. Kodları eklemeden dosya normal çalışıyordu. Bu kodları ekledikten sonra Gelir ve Gider satırlarına veri girmek için tıkladığım her hücrede meşgule duruma geçiyor. Beli bir süre sonra işlem yapıyor. Yani Excel sayfası ağırlaştı.

Bunun için yardımlarınıza ihtiyacım var.

Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Etopla başı
Range("L3:L" & Rows.Count).ClearContents
 
    With Range("L3:L18")
        .Formula = "=SUMIF($A$3:$A$150,K3,$D$3:$D$150)"
        .Value = .Value
    End With

Range("M3:M" & Rows.Count).ClearContents
 
    With Range("M3:M18")
        .Formula = "=SUMIF($F$3:$F$150,K3,$I$3:$I$150)"
        .Value = .Value
    End With 'Etopla sonu

Range("L20").Formula = "=Sum(D3:D150)"
Range("L21").Formula = "=Sum(I3:I150)"
Range("L22") = (Range("L20") - Range("L21"))
Range("N3") = (Range("L3") - Range("M3"))
Range("N4") = (Range("L4") - Range("M4"))
Range("N5") = (Range("L5") - Range("M5"))
Range("N6") = (Range("L6") - Range("M6"))
Range("N7") = (Range("L7") - Range("M7"))
Range("N8") = (Range("L8") - Range("M8"))
Range("N9") = (Range("L9") - Range("M9"))
Range("N10") = (Range("L10") - Range("M10"))
Range("N11") = (Range("L11") - Range("M11"))
Range("N12") = (Range("L12") - Range("M12"))
Range("N13") = (Range("L13") - Range("M13"))
Range("N14") = (Range("L14") - Range("M14"))
Range("N15") = (Range("L15") - Range("M15"))
Range("N16") = (Range("L16") - Range("M16"))
Range("N17") = (Range("L17") - Range("M17"))
Range("N18") = (Range("L18") - Range("M18"))
End Sub

.rar Gel-Gid.rar (Dosya Boyutu: 52,38 KB | İndirme Sayısı: 6)
Son Düzenleme: 31/05/2021, 23:44, Düzenleyen: m_demir.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Etopla İşlemleri - Yazar: m_demir - 31/05/2021, 23:43
RE: Etopla İşlemleri - Yazar: feraz - 01/06/2021, 00:54
RE: Etopla İşlemleri - Yazar: m_demir - 01/06/2021, 01:07
RE: Etopla İşlemleri - Yazar: feraz - 01/06/2021, 09:00
Re: Etopla İşlemleri - Yazar: feraz - 01/06/2021, 17:20
RE: Etopla İşlemleri - Yazar: m_demir - 01/06/2021, 17:46
RE: Etopla İşlemleri - Yazar: feraz - 01/06/2021, 17:59
RE: Etopla İşlemleri - Yazar: feraz - 01/06/2021, 18:09
RE: Etopla İşlemleri - Yazar: m_demir - 01/06/2021, 18:13
RE: Etopla İşlemleri - Yazar: feraz - 01/06/2021, 18:22
RE: Etopla İşlemleri - Yazar: feraz - 01/06/2021, 18:31
RE: Etopla İşlemleri - Yazar: m_demir - 01/06/2021, 18:48
RE: Etopla İşlemleri - Yazar: feraz - 02/06/2021, 16:09
RE: Etopla İşlemleri - Yazar: m_demir - 03/06/2021, 00:53
RE: Etopla İşlemleri - Yazar: feraz - 03/06/2021, 10:54
RE: Etopla İşlemleri - Yazar: feraz - 05/06/2021, 19:21
Re: Etopla İşlemleri - Yazar: m_demir - 06/06/2021, 15:19
Re: Etopla İşlemleri - Yazar: m_demir - 06/06/2021, 16:19
RE: Etopla İşlemleri - Yazar: feraz - 06/06/2021, 16:42
RE: Etopla İşlemleri - Yazar: m_demir - 06/06/2021, 16:53
RE: Etopla İşlemleri - Yazar: feraz - 06/06/2021, 16:58
RE: Etopla İşlemleri - Yazar: m_demir - 06/06/2021, 17:05
RE: Etopla İşlemleri - Yazar: feraz - 06/06/2021, 17:08
RE: Etopla İşlemleri - Yazar: m_demir - 06/06/2021, 17:10
RE: Etopla İşlemleri - Yazar: feraz - 06/06/2021, 17:15
RE: Etopla İşlemleri - Yazar: m_demir - 06/06/2021, 17:18
Task