Skip to main content

AccessTr.neT


Sayfa Alt Toplamlarını Almak

Sayfa Alt Toplamlarını Almak

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

Eklediğim uygulamada UserForm1 den aktif sayfaya veri aktarıyorum. Eklediğim resimdeki gibi alt toplamları sayfada ve ListBox1 göstermek istiyorum.

Bu konuda yardımlarınıza ihtiyacım var.
.rar Per.Çiz.rar (Dosya Boyutu: 262,54 KB | İndirme Sayısı: 2)
Cevapla
#2
(12/05/2020, 23:17)m_demir yazdı: Merhaba Arkadaşlar

Eklediğim uygulamada UserForm1 den aktif sayfaya veri aktarıyorum. Eklediğim resimdeki gibi alt toplamları sayfada ve ListBox1 göstermek istiyorum.

Bu konuda yardımlarınıza ihtiyacım var.
Tam olarak adım adım analtırmısınız.Resimde yok.
Cevapla
#3
Hocam resim eklemeyi unutmuşum. Kusura bakmayın.

[Resim: do.php?img=10190]
Cevapla
#4
Bir fonksiyon yazayım hem kaydet hem silme hemde güncellemede eklesim alttoplamları.
Cevapla
#5
Olur Hocam.
Cevapla
#6
Kod altta.
Private Sub UserForm_Initialize() buraya


If LCase(ActiveSheet.Name) = "sayfa1" Or LCase(ActiveSheet.Name) = "liste" Or LCase(ActiveSheet.Name) = "şablon" Then
    ListBox1.Clear
    Exit Sub
End If
If WorksheetFunction.CountA(Range("A7:A" & Rows.Count)) = 0 Then GoTo var
alttoplamAl
var:


yukarıdakileri ekledim.
ListBox1.RowSource = "A7:K" & [A65536].End(3).Row + 1
yerinede
ListBox1.RowSource = "A7:K" & [D65536].End(3).Row + 1
olarak değiştirdim.


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("F" & son) = WorksheetFunction.Sum(.Range("F7:F65536"))
        .Range("J" & son) = WorksheetFunction.Sum(.Range("J7:J65536"))
        .Range("K" & son) = WorksheetFunction.Sum(.Range("K7:K65536"))
        .Range("D7:K" & Rows.Count).Interior.ColorIndex = xlNone
        .Range("D" & son & ":K" & son).Interior.ColorIndex = 4
        .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..rar (Dosya Boyutu: 251,88 KB | İndirme Sayısı: 3)
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task